программа вычисления производной

[J0n1cK]

Программа должна выводить результаты работы на гибкий диск в файл Rez.txt

Составить программу на языке Паскаль. Вычисление всех функций оформить в виде подпрограмм-функций, а численных методов – в виде подпрограмм-процедур.

Найти экстремумы функции y = -0,5 x^3+6x^2-x+5 в интервале [-5,+5]. Для проверки най-денных значений построить график функций y y в Excel или протабулировать функцию и ее первую производную в найденном интервале. Для нахождения корней y использовать один из численных методов: половинного деления, хорд или касательных..

вот как вычислить производную этой функции и найти корни я не знаю

вот что у меня получилось:

program extemum;
  var x:integer;
      extr:real;
      f:text;


  function Fx(var x:integer):real;
  var i:integer;
      h:real;
      t:real;
    begin
    h:=1;
    t:=1;
  for i:=1 to 3 do h:=h*x;
   for i:=1 to 2 do t:=t*x;
     Fx:=-0.5*h+6*t-x+5;
  end;


  procedure FoundExtr(var x:integer;var extr:real);
  begin
  assign (f, 'C:/rez.txt');
  rewrite(f);
  x:=-5;
  extr:=Fx(x);
  repeat
  writeln (f, Fx(x):1:2);
  if Fx(x)>extr then extr:=Fx(x);
  x:=x+1;
  until x>5;
  writeln (f, 'Functions Extremim Fx: ', extr:1:2);
  readln;
  close(f);
  end;


  begin
  FoundExtr(x,extr);
  end.

[Stilet]

на гибкий диск

Что так и написано в задании?

[puporev]

как вычислить производную этой функции и найти корни

производную на бумажке и в программу вводите как функцию, корни любым методом решения нелинейных уравнений, например дихотомии(бисекции), Ньютона, касательных, итераций.