Шпаргалка по программированию на Турбо Паскаль
Подождите немного. Документ загружается.
xn:=0; yn:=1; xk:=1; h:=0.1;
x[1]:=xn; y[1]:=yn; i:=1;
repeat
k0:=h*f(x[i],y[i]);
k1:=h*f(x[i]+h/2,y[i]+k0/2);
k2:=h*f(x[i]+h/2,y[i]+k1/2);
k3:=h*f(x[i]+h,y[i]+k2);
y[i+1]:=y[i]+(k0+2*k1+2*k2+k3)/6;
x[i+1]:=x[i]+h;
i:=i+1;
until x[i]>xk;
n:=i;
Writeln('----------------------');
Writeln('| № | x | y |');
Writeln('----------------------');
for i:= 1 to n do
Writeln('|', i:2, ' |', x[i]:5:2, ' |', y[i]:7:4, ' |');
Writeln('----------------------');
Readln;
End.