|
O ’z b e k ist o n r e sp u b L ik a si o L iy va o ’r t a m a X su s t a ’lim V a z ir L ig I o ’zbek jsto n r e sp u b L ik a siBog'liq boshqarish tizimlarini kompyuterli Elektr mash. fan.program rungi; uses crt;
const nurav =2;
type v e c to r2 ~ a rra y [ I ..nurav] o f real;
var
yO,y; vector2;
n, i j : integer;
a,b,x0.xl,h ;real;
pro ced u re pv(x: real; y: vector2; var dy: vector2);
begin
d y [ I]: = y [ l] + y [ 2 ] + 4 x - 1 ;
d y [2 ] := y [I ]-y [2 ] -2 *x *x-2 *x+1:
end;
p ro ced u re rungikytta(x: real; yO: vector2;
var dy: vector2);
va r v3 fcfk l,J k 2 ,fk 3 J k 4 : vector2;
begin
pv(x.yO fc);
f o r i : = l to nurav d o b e g in fk l[i]:= h * fc [i];
v 3 [i]: = y O [i]+ 0 .5 * jk l[i] end;
x := x + 0 .5 * h ; p v (x ,v 3 fc );
f o r i: = I to nurav d o b e g in fk 2 [i]:= h * fc [i];
v 3 ]i]:= y 0 [i]+ 0 .5 * fk 2 [i] end:
p v (x ,v 3 fc );
f o r i : = l to nurav d o begin J k 3 [i]:= h * fc[i];
v3 [i]: =yO[i] + fk 3 [i] end;
x := x + 0 .5 * h ; p v (x ,v 3 fc );
f o r i : = l to nurav d o begin fk 4 [i]:= h * fc [i] ;
dy[i]:=y0[i]+0.166666667*(fkl]i]+2*fk2[i]+2*fk3[i]+fk4[i])end;
end;
begin clrscr;
w r ite ( 'a - ) ; read(a);
w rite ('b = ); read(b);
w r ite ( 'n - ) ; read(n);
h:= (b-a)/n;
xO: =a;
f o r i : = l to nurav d o
begin
write('yO[',i: 1, '] = ); read(yO [i]);
end;
writeln; w riteln; w rite('x= ',x0:5:2);
f o r i : = l to nurav d o w rite С y [ ',i: l, ] = \ y O [ i] : 10:6);
|
|
Bosh sahifa
Aloqalar
Bosh sahifa
O ’z b e k ist o n r e sp u b L ik a si o L iy va o ’r t a m a X su s t a ’lim V a z ir L ig I o ’zbek jsto n r e sp u b L ik a si
|