Question

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

Answer 1

Var x,y: real;
begin
write('x = ');
readln(x);
if (x>=0)and(x<=1) then y:=x*x-x
else y:=x*x-sin(pi*x*x);
writeln('y = ',y:6:4);
end.

Пример:
x = 1.5
y = 1.5429