Курсовая работа: Метод наближеного обчислення коренів Програма

c:=a;

repeat

a:=a+dx;

z1:=znachenie(f0,a);

until (z*z1<0)or(b<a);

if z*z1<0 then begin iprom:=iprom+1;

prom[iprom-1]:=c;

prom[iprom]:=a;

end;

end;

end;

procedure korni(a8,b8:real);

const eps=0.0001;

var x0:real;

begin

x0:=(a8+b8)/2;

while abs(b8-a8)>eps do begin

if znachenie(f0,a8)*znachenie(f0,X0)<0 then begin b8:=x0;end;

if znachenie(f0,x0)*znachenie(f0,b8)<0 then begin a8:=x0;end;

x0:=(a8+b8)/2 end;

kpol[i]:=x0;

end;

begin clrscr;

assign(fil, ‘polinom.dat’);

reset(fil);

write(‘f=’);

readln(fil,nf);

{****************************************}

for i:=0 to nf-1 do {begin }