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

if e2<=e1 then

if e2<e1/20 then d2:=d2+1 else

e3:=0;

end;

if e3<>0 then begin

x:=x-h;

for j:=1 to n do begin

y[j]:=W[j];

end;

H:=H/2;

end

else k2:=1;

if d2=n then H:=H+H;

Textcolor(5);

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

for i:=1 to n do begin

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

W[i]:=y[i];

end;

HiddeCursor;

textcolor(14);

gotoxy(1,24);

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

writeln('для выхода <N>');

ch:=readkey;

if ch=#121 then rukutm else moymenu;

end; end;

BEGIN

Clrscr;