Напишите программу в ABC Pascal.

Question

Напишите программу в ABC Pascal.

---

Answer 1

Program n1;
var x,f: real;
begin
readln(x);
if x<=0 then f:=0 else if (x>0) and (x<=1) then f:=x*x-x <br>else f:=x*x-sin(pi*x*x);
write(f);
end.

Comments

По моему в условии записано x^2 - sin(пи*x^2), или я не прав ?

---

Да, так написано.

Answer 2

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

Comments

Если в трансляторе нет константы pi, то вместо нее можно записать 6*arctan(1/sqrt(3))