Технический форум - Привет, помогите в написании программы TURBO PASCAL

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

Код:

if x<-4 then y:=5 

          else if x<0 then y:=-1.25*x

                         else if x<5 then y:=x

                                        else y:=40/3-5/3*x;

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

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

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

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

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

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

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

Код:

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.