Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
17
Добавлен:
02.05.2014
Размер:
578 б
Скачать
Program Grad_ConstStep;
Uses crt;
Var
x,y,e,p,a: real;
k: integer;

Function f(x: real): real;
begin
f:=x*x-3.5*x+6;
end;

Function f1(x: real): real;
begin
f1:=2*x-3.5;
end;

begin
clrscr;
write('vvedite nachalnoe priblisenie Xo '); readln(x);
write('vvedite postoianij shag a '); readln(a);
write('vvedite uslovie ostanova e '); readln(e);
k:=0;
repeat
x:=x-a*p;
p:=f1(x);
k:=k+1;
until (abs(p)<e)or(abs(p)=e);
y:=f(x);
writeln('');
writeln('tochka minimuma imeet koordinati: ');
writeln('x= ',x:20:10);
writeln('y= ',y:20:10);
Readkey;
end.
Соседние файлы в папке 2.а