Знаки условий

Программа: program prim;

var x,y:real;

begin

writeln('введи значение х');

read(x);

if x>0 then y:=x*x+3*x;

if x<=0 then y:=sqr(x)*x-25*abs(x);

writeln('при х=',x,'у=',y);

end.

Задача. Составить программу для вычисления значения функции

Примечание. В математике принято функцию обозначать f(x). В программировании значение функции обозначается какой-либо переменной, например F.

. Решение. program prim;

var x,f:real;

begin

writeln('введи значение х');

read(x);

if x>0 then f:=sqr(sin(x))*sin(x)-3*sin(x);

if x<=0 then f:=abs(x);

writeln('при х=',x,'функция=',f);

end.