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

11: hiddecursor;

p:=1;

moymenu;

k10:=readkey;

while k10<>#13 do

begin

Case k10 of

#72: if p=1 then p:=4 else p:=P-1;

#80: if p=4 then p:=1 else p:=p+1;

end;

moymenu;

k10:=readkey;

end;

Case p of

1: Spravka;

2: runkut;

3: rukutm;

4: exit;

end;

goto 11;

END.

7. Результаты работы программы

После запуска программы в соответствии с поставленной задачей на проектирование выводится окно заставки программы, приведенное на рисунке 1.

Рисунок 1. Окно заставки.

После нажатия любой клавиши выводится окно с меню, представленное на рисунке 2.

Рисунок 2. Окно с меню.

При выборе пункта меню «Справка» открывается соответствующие окно в котором находится справочная информация о программе. Пример такого окна представлен на рисунке 3.