Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 06.06.2011, 19:30   #1 (permalink)
Юльза
Новичок
 
Регистрация: 22.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Расчет производной на языке турбо паскаль

Помогите, пожалуйста, написать программу для расчета производной многочлена Ax2+bx+c на языке турбо паскаль! Очень срочно…желательно, до вечера!
Юльза вне форума   Ответить с цитированием

Старый 06.06.2011, 19:30
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Тут можно найти много интересной для вас информации

Помогите составить программу на турбо паскаль
Турбо Паскаль
Турбо Паскаль.

Старый 06.06.2011, 20:30   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Юльза Посмотреть сообщение
Помогите, пожалуйста, написать программу для расчета производной многочлена Ax2+bx+c на языке турбо паскаль! Очень срочно…желательно, до вечера!
Фу, стыд какой! Прям детский сад...
Код:
VAR
 a,b,x:Real;
BEGIN
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 Write('x= ');
 Readln(x);
 Writeln('Derivative is ',a*2*x+b);
 Readln
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 06.06.2011, 20:32   #3 (permalink)
Юльза
Новичок
 
Регистрация: 22.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо)))Ну,я не на программиста учусь,поэтому мне можно...
Юльза вне форума   Ответить с цитированием
Старый 06.06.2011, 20:57   #4 (permalink)
Юльза
Новичок
 
Регистрация: 22.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

А как объявить функцию?я так понимаю,что перед VAR
Юльза вне форума   Ответить с цитированием
Старый 06.06.2011, 21:21   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Юльза Посмотреть сообщение
А как объявить функцию?я так понимаю,что перед VAR
Как - это не вопрос, вопрос - зачем? Объясните подробно, пожалуйста. Программа и так считает производную в любой точке.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 06.06.2011, 21:25   #6 (permalink)
Юльза
Новичок
 
Регистрация: 22.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Мне сказал преподаватель,что там еще нужно объявить эту функцию.
Юльза вне форума   Ответить с цитированием
Старый 06.06.2011, 21:40   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Юльза Посмотреть сообщение
Мне сказал преподаватель,что там еще нужно объявить эту функцию.
Уж эти мне преподаватели со своими указулями! Ну ладно, с функцией, так с функцией:
Код:
VAR
 a,b,x:Real;

Function Deriv(Xd:Real):Real;
begin
 Deriv:=a*2*Xd+b;
end;

BEGIN
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 Write('x= ');
 Readln(x);
 Writeln('Derivative is ',Deriv(x));
 Readln
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 07.06.2011, 01:35   #8 (permalink)
Юльза
Новичок
 
Регистрация: 22.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо вам огромное)))
Очень выручаете всегда!!!
Юльза вне форума   Ответить с цитированием
Старый 08.06.2011, 10:43   #9 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Уж эти мне преподаватели со своими указулями
Цитата:
Сообщение от Юльза Посмотреть сообщение
Мне сказал преподаватель,что там еще нужно объявить
Ох уж мне эти студентусы, не дослушивающие до конца задания и норовящие пораньше свалить с пар!
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 05.12.2012, 01:02   #10 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

MadamD!!!!!!!!!
Перестаньте дублировать по всем темам свои посты!
Léon вне форума   Ответить с цитированием
Ads

Яндекс

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


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:38.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.