|
|
0
1
2
3
4
5
|
0
0,2
0,4
0,6
0,8
1,0
|
1,0000
1,2000
1,3733
1,5294
1,6786
1,8237
|
0
0,3333
0,5928
0,7846
0,9532
|
1,0000
0,8667
0,7805
0,7458
0,7254
|
0,2000
0,1733
0,1561
0,1492
0,1451
|
1,0000
1,1832
1,3416
1,4832
1,6124
1,7320
|
Программасы:
Program eiler;
Const a=0;b=1; n=5;
Var x,y,dy:array[0..n] of real;
I:integer;
H:real;
Function f(x,y:real):real;
Begin
f:=y-(2*x)/y;
End;
Begin
h:=(b-a)/n;
Readln(y[0]);
x[n]:=b;
For i:=0 to n-1 do
Begin
x[i]:=a+i*h;
dy[i]:=h*f(x[i],y[i]);
y[i+1]:=y[i]+dy[i];
End;
For i:=0 to n do
Writeln(x[i]:5:4,’ ‘,y[i]:5:4);
End.
2-мысал:
Бастапқы шарттары:  .
Аралық [1, 1.5], қадам h=0.1 болсын. Мұндай жағдайда  алмастыру қолдану арқылы 1-ретті теңдеулер жүйесін құрып алуға болады:
Достарыңызбен бөлісу: |
