Лабораторные работы3 / №1 / 1.ж / METOD1

program met_kasa;
uses crt;
var n:integer;
a,b,y1,y2,z1,z2,s,y,e,x,z:real;

function f(x:real):real;
begin
f:=x*x-3.5*x+3;
end;

function p(x:real):real;
begin
p:=2*x-3.5;
end;

begin
clrscr;

writeln('vvedite a '); read(a);
writeln('vvedite b '); read(b);
writeln('vvedite n '); read(n);

y1:=f(a);
z1:=p(a);
y2:=f(b);
z2:=p(b);

repeat

n:=n-1;
s:=(z2*b-z1*a-y2+y1)/(z2-z1);
z:=p(s);

if z<0 then
begin
a:=s;
y1:=f(a);
z1:=p(a);
end;

if z>0 then
begin
b:=s;
y2:=f(b);
z2:=p(b);
end;

until (z=0)or(n=0);

x:=(a+b)/2;
y:=f(x);
e:=(b-a)/2;
writeln('');writeln('');
writeln('x=',x:10:5);
writeln('');
writeln('y=',y:10:5);
writeln('');
writeln('E=',e:10:5);

readkey;
end.