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

Skuttbin · 18.12.2012, 19:09

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

AlexZir · 18.12.2012, 19:33

Код:

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;

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

Skuttbin · 19.12.2012, 01:08

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

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

AlexZir · 19.12.2012, 08:03

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

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

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

Код:

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.

18.12.2012, 19:09	#1 (permalink)
Skuttbin Новичок Регистрация: 16.12.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Привет, помогите в написании программы TURBO PASCAL Вычислите значение функции, заданной графически:

18.12.2012, 19:33	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: if x<-4 then y:=5 else if x<0 then y:=-1.25x else if x<5 then y:=x else y:=40/3-5/3x; Функцию, выделенную красным цветом, я составил приблизительно, она не вполне соответствует вашему чертежу, там скорее экпонента должна присутствовать. Остальное допишите сами, не так уж и сложно переменные определить.

19.12.2012, 01:08	#3 (permalink)
Skuttbin Новичок Регистрация: 16.12.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужна помощь по TURBO PASCAL В прошлом вопросе график кривоват был, это уже точный, помогите составить программу, заранее спасибо. Вычислите значение функции, заданной графически:

19.12.2012, 08:03	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Не клонируйте темы, это реально раздражает. Что вам непонятно в том, как я предложил реализовать условие? Или вы настолько несамостоятельны, что не в состоянии написать обвязку к элементарной программе? Вот исправленный вариант реализации условного оператора: Код: 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.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070