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

ch:=readkey;

if ch=#121 then runkut else moymenu;

end;end;

Procedure rukutm;

label 3;

begin

clrscr;

textcolor(15);

NormCursor;

Writeln('Метод Рунге-Кутта-Мерсона ');

3: Write('задайте положительный начальный шаг h=');

read(h);

if h<=0 then

goto 3

else begin

Write('Задайте погрешность вычислений e=');

read(e1);

write ('Задайте начальное Xo=');

read (x);

for j:=1 to n do

begin

write('Введите начальное Y0[',j,']=');

readln(w[j]);

y[j]:=W[j];

end;

k2:=0;

e3:=0;

ur;

d2:=0;