95 БАЛЛОВ Написать программу(pascal ) program ... var ...
Answers & Comments
Mazay98
Program m1;var f,x:real;begin writeln('Введите x'); readln(x); if(x<=0)then f:=0 else if((x>0)and(x<=1)) then f:=(x*x)-x else if (x>1) then f:=(x*x)-sin(3.14*(x*x)); writeln('f(x)= ', f:2:2);end.
3 votes Thanks 2
Mazay98
program m1; var f,x:real; begin writeln('Введите x'); readln(x); if(x<=0)then f:=0 else if((x>0)and(x<=1)) then f:=(x*x)-x else if (x>1) then f:=(x*x)-sin(3.14*(x*x)); writeln('f(x)= ', f:2:2); end.
Answers & Comments
var f,x:real;
begin
writeln('Введите x');
readln(x);
if(x<=0)then
f:=0
else if((x>0)and(x<=1)) then
f:=(x*x)-x
else if (x>1) then
f:=(x*x)-sin(3.14*(x*x));
writeln('f(x)= ', f:2:2);
end.