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

writeln;

znach(f0,f0);

gran(k,b,f0[0],n0);

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

for i:=0 to nf-1 do f1[i]:=f0[nf-1-i];

znach(f1,f1);

gran(k,b,f1[0],n1);

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

for i:=0 to nf-1 do

if odd(nf-1-i)=true then f2[i]:=-1*f0[i]

else f2[i]:=f0[i];

znach(f2,f2);

gran(k,b,f2[0],n2);

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

for i:=0 to nf-1 do

if odd(nf-1-i)=true then f3[i]:=-1*f0[nf-1-i]

else f3[i]:=f0[nf-1-i];

znach(f3,f3);

gran(k,b,f3[0],n3);

if n0<>0 then begin

writeln(‘відрізок додатних коренів [‘,1/n1:1:3,’ ; ‘,n0:1:3,’]’);

delenie(1/n1,n0);

for i:=0 to iprom-1 do begin

korni(prom[i],prom[i+1]);

writeln(kpol[i]:1:2{,’ ‘,znachenie(f0,kpol[i]):1:2}); end; end

else writeln('немає додатніх коренів');

if n3<>0 then begin

writeln('Відрізок від’ємних коренів [',-1*n2:1:3,' ; ',-1/n3:1:3,']');

delenie(-1*n2,-1/n3);