Бірінші түбірі [0,1] аралығында, ал екінші түбірі [2,6] аралығында жататыны суретте көрініп тұр. Енді осы аралықтағы қай нүкте (2.1)-ші теңдеуді қанағаттандыратынын анықтаймыз.
Программасы
program Otdel_koren;
label 1,2,3;
var a,b,h,x1,x2,y1,y2:real;k:integer;
function f(x:real):real;
begin
f:=exp(x)-10*x;
end;
begin
writeln('аралыкты және кадамды енгізу');
read(a,b,h);
k:=0;
x1:=a;
x2:=x1+h;
y1:=f(x1);
2: if x2>b then goto 1
else
begin
y2:=f(x2);
if y1*y2>0 then goto 3
else
begin
k:=k+1;
writeln(k,'-ші түбір=','[',x1:3:3,' ',x2:3:3,']');
end;
3: x1:=x2;x2:=x1+h; y1:=y2;
goto 2;
end;
1: end.
2-есеп
жүйесі берілген. Теңдеулердің графигін сызу (2-суретте.) арқылы бастапқы жуықтауларды табамыз
Достарыңызбен бөлісу: |
