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

k:=0;

for i1:=0 to nf-1 do

if a100[i1]<0 then begin k:=i1;break end;

b:=0;

for i1:=0 to nf-1 do

if a100[i1]<0 then if b<abs(a100[i1]) then b:=abs(a100[i1]);

a1:=a100;

end;

procedure gran(k1:integer;b1,a5:real;var nk:real);{границы}

begin

if (k1<>0)and(b1<>0) then nk:=1+exp(1/k1*ln(b1/a5))

else nk:=0;

end;

function znachenie(a100:ff;xx:real):real; {значение в тч ХХ}

var y:real;

i100:integer;

begin

y:=a100[0];

for i100:=1 to nf-1 do

y:=y*xx+a100[i100];

znachenie:=y;

end;

procedure delenie(a,b:real);

const dx=0.1;

var z,z1,c:real;

begin

iprom:=0;

prom[0]:=a;

While b>a do begin