Расчет производной на языке турбо паскаль

[Юльза]

Расчет производной на языке турбо паскаль

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

 

[Vladimir_S]

Помогите, пожалуйста, написать программу для расчета производной многочлена 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.

 

[Юльза]

Спасибо)))Ну,я не на программиста учусь,поэтому мне можно...

 

[Юльза]

А как объявить функцию?я так понимаю,что перед VAR

 

[Vladimir_S]

А как объявить функцию?я так понимаю,что перед VAR

Как - это не вопрос, вопрос - зачем? Объясните подробно, пожалуйста. Программа и так считает производную в любой точке.

 

[Юльза]

Мне сказал преподаватель,что там еще нужно объявить эту функцию.

 

[Vladimir_S]

Мне сказал преподаватель,что там еще нужно объявить эту функцию.

Уж эти мне преподаватели со своими указулями! Ну ладно, с функцией, так с функцией:

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.

 

[Юльза]

Спасибо вам огромное)))
Очень выручаете всегда!!!

 

[AlexZir]

Уж эти мне преподаватели со своими указулями

Мне сказал преподаватель,что там еще нужно объявить

Ох уж мне эти студентусы, не дослушивающие до конца задания и норовящие пораньше свалить с пар!

 

[Léon1]

MadamD!!!!!!!!!
Перестаньте дублировать по всем темам свои посты!