Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти экстремумы функции
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Stellar_light
Помогите исправить программу
Задание:Найти экстремумы функции y = -0,5x3+6x2-x+5 в интервале [-5,+5]. Для проверки найденных значений построить график функций y y' в Excel или протабулировать функцию и ее первую производную в найденном интервале. Для нахождения корней y' использовать метод: половинного деления.

program extemum;
uses crt;
var x:integer;
extr:real;
f:text;
function Fx(var x:integer):real;
begin
Fx:=-0/5*x*x*x+6*x*x-5;
end;
function F1x(var x:integer):real;
begin
F1x:=-1/5*x*x+12*x;
end;

procedure polDel(var x:integer);
Var
Eps, a, b, c: real;
n: Integer;
begin
assign (f, 'C:/rez.txt');
rewrite(f);
ClrScr;
Writeln('Vvedite znachenia a , b'); Read(a, b);
WriteLn('Vvedite tochnost Eps'); Read(Eps);
n := 0;
Repeat
c := (a + b) / 2;
If (F1x(a) * F1x©) < 0 Then b := c
Else a := c;
Inc(n)
Until (b - a) <= Eps;
x := (a + b) / 2;
WriteLn('Koren raven x=', x:10:7);
WriteLn('Kollichestvo delenii = ',n);
ReadKey
end;
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
polDel(x);
end.

-TarasBer-
Вообще-то 1/5 - это одна пятая, а не полтора.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.