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

gotoxy(50,26);

Writeln(' Для прдолжения вычисления нажмите Y, для выхода -N');

ch:=readkey;

if ch=#121 then moymenu else Zastavka;

end;

Procedure runkut ;

label 2;

begin

clrscr;

textcolor(15);

NormCursor;

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

2: Write('Задайте положительный начальный h=');

read(h);

if h<=0 then

goto 2

else begin

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

read (x);

for j:=1 to n do

begin

Write('Задайте начальные y0[',j,']=');

readln(W[j]);

y[j]:=W[j];

end;

ur;

for j:=1 to n do

begin

v:=H*f[j];