Басылым: төртінші -бет

Түбірлерді айыру алгоритмінің схемасы бойынша программаны оңай құрастыруға болады. Төменде Turbo Pascal тілінде құрылған программаны ұсынамыз:

Program Separat_root;

uses crt;

var a,b,x1,x2,y1,y2,h:real; n,k:integer;

function f(x:real):real; {уравнение вида F(x)=0}

begin f:=cos(x)-0.1*x;

end;

clrscr;

k:=0; x1:=a; x2:=x1+h; y1:=f (x1);

while x2

begin y2:=f (x2);

if y1*y2<0 then

begin inc(k);

writeln (k, '-й корень

[ ', x1:4:1, , ' ; ' , x2:4:1, , ' ] ' )

end;

x1:=x2; x2:=x1+h; y1:=y2;

end;

repeat until keypressed

end.

Программаның орындалу нәтижесі: