Нужна помощь по программированию)

на картинке Восьмое надо сделать(8)
Задание:
составить грфическую схему алгоритма и написать программу для вычисления значений переменной Y по заданной формуле.Вычислить Y для всех значений переменной X.
Работу провести в программе PascalABC
Ну кто поможет?

 

ап

 

ап

 

up

 

Не могу фотку увеличить

 

var x,y: real;
begin
readlln(x);
if (x>0) and (x<>8) then y:=1-3x;
if (x<-1) then y:=x*x-sin(x);
if (-1<=x<=0) and(x=88) then y:=cos(x);
writeln(y);
end.

 

ишет ошибка в 4 строчке а именно
if (x>0) and (x<>8) then y:=1-3x;

 

пишет неверное выражение

 

мозги включи
1-3*x

 

теперь ошибка здесь
if (-1<=x<=0) and(x=88) then y:=cos(x);

 

cos(88), сильно конечно =)

 

там 8 должно было быть. а что тебя смущает? в школе радианы не проходили?

var x,y: real;
begin
readln(x);
if (x>0) and (x<>8) then y:=1-3*x
else if (x<-1) then y:=x*x-sin(x)
else y:=cos(x);
writeln(y);
readln;
end.

 

можешь написать правильно?