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

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

Writeln(' Правые части системы дифференциальных уравнений заданы в подпрограммах ');

Writeln(' функциях f1 и f2 соответственно. В данных подпрограммах можно задать');

Writeln(' свои функции вместо исходных.');

Writeln(' После перехода в меню выберите клавишами управления курсора');

Writeln(' необходимый пункт.');

Writeln('При выборе пунктов меню "Метод Рунге-Кутта " или "Метод');

Writeln('Рунге-Кутта-Мерсона " введите исходные данные , программа выведет’);

writeln(' полученные результаты.');

Window(2,2,79,24);

Textcolor(15);

gotoxy(5,20);

write( ' Для возврата в меню нажмите любую клавишу... ' ) ;

ch:=readkey;

End;

Procedure moymenu;

begin

clrscr;

Okno(10,5,60,20,3,15);

For i:=1 to 4 do

begin

Gotoxy(15,i+5);

if i=p then Textbackground(4) else

Textbackground(3);

write(Menu[i]);

end;

End;

procedure Exitfrom;

begin