Привет, помогите в написании программы TURBO PASCAL

[Skuttbin]

Привет, помогите в написании программы TURBO PASCAL

Вычислите значение функции, заданной графически:

 

[AlexZir]

if x<-4 then y:=5 
          else if x<0 then y:=-1.25*x
                         else if x<5 then y:=x
                                        else [COLOR=Red]y:=40/3-5/3*x[/COLOR];

Функцию, выделенную красным цветом, я составил приблизительно, она не вполне соответствует вашему чертежу, там скорее экпонента должна присутствовать. Остальное допишите сами, не так уж и сложно переменные определить.

 

[Skuttbin]

Нужна помощь по TURBO PASCAL

В прошлом вопросе график кривоват был, это уже точный, помогите составить программу, заранее спасибо.

Вычислите значение функции, заданной графически:

 

[AlexZir]

Не клонируйте темы, это реально раздражает.

Что вам непонятно в том, как я предложил реализовать условие?
Или вы настолько несамостоятельны, что не в состоянии написать обвязку к элементарной программе?

Вот исправленный вариант реализации условного оператора:

if x<-4 then y:=5
            else if x<0 then y:=-x
                          else if x<5 then y:=x
                                         else y:=8-x;

Определяете переменные x,y типа REAL, прописываете команду ввода координаты х. После чего вставляете вышеприведенный условный оператор и прописываете команду вывода значения y.