Курсовая работа: Разработка программы поиска решения системы дифференциальных уравнений двумя методами: Рунге-Кутта и Рунге-Кутта-Мерсона

y[j]:=W[j]+v/2;

end;

ur;

for j:=1 to n do

begin

v:=H*f[j];

k[j]:=k[j]+2*v;

y[j]:=W[j]+v/2;

end;

ur;

for j:=1 to n do

begin

v:=H*f[j];

k[j]:=k[j]+2*v;

y[j]:=W[j]+v;

end;

ur;

Textcolor(5);

Writeln('решение системы дифференциальных уравнений:');

for j:=1 to n do

begin

y[j]:=W[j]+(k[j]+h*f[j])/6;

writeln('y[',j,']=',y[j]:12:9);

W[j]:=y[j];

end;

HiddeCursor;

textcolor(14);

gotoxy(1,24);

writeln('Для продолжения вычисления нажмите <Y>,');