Program myprg; var x,y: integer; begin writeln('x='); readln (x); if (x>0) and (x<=1)...

Question

Program myprg;
var
x,y: integer;
begin
writeln('x=');
readln (x);
if (x>0) and (x<=1) then<br> y:=sqr(x)-x else y:=sqr(x)-sinpi*xsqr(x);
writeln ('y=',y);
end.

Program2.pas(8) : Неизвестное имя 'sinpi' если убрать пи то выходит так Program2.pas(8) : Нельзя преобразовать тип function(x: real): real к int64

Comments

спасибо что посмотрели

---

задача вот такая F(x)= {0, x<0

---

{ x квадрат-х , х меньше 1

---

х квадрат - син пи х квадрат

---

F(x) {0, x<0; x2-x, x<1, x2-sinpix2

Answer 1

Просто взять в скобки: sin(pi)
А переменнык X, Y:real; , потому что что корень, а особенно sin не всегда могут получатся целыми