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

жүктеу/скачать 19,22 Mb.

бет	3/47
Дата	29.06.2017
өлшемі	19,22 Mb.
	#20661

1 2 3 4 5 6 7 8 9 ... 47

Мысал 2.

теңдеуінің

кесіндідегі түбірлерін 0,1 қадаммен бөліктерге бөліңдер.

Бұл есепті Excel көмегімен шешуге болады. Компьютер экранында

функциясының графигінен басқа мәндері анықталған кесте және одан 0,1 қадаммен жеті бөлінген кесінділердің нәтижесін алуға болады:

;

Түбірлерді айыру алгоритмінің схемасы бойынша программаны оңай құрастыруға болады. Төменде 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;

begin

clrscr;

writeln (' Введите a,b,h '); read (a,b,h);

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.
Программаның орындалу нәтижесі:

жүктеу/скачать 19,22 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 ... 47