Курсовая работа: Программа эмуляции развития

end;

gotoxy(x1,y2);

write(d);

for i:=(x1+1) to (x2-1) do write(f);

write(c);

hiddencursor;

end;

{***********************************************************}

procedure colorwind; {сделать окно с рамкой}

begin

window(v1,v2,v3,v4);

textbackground(fon);

clrscr;

textcolor(text);

ramka(1,1,v3-v1,v4-v2);

end;

{***********************************************************}

begin

end.

Приложение 4.

Инструкция пользователя.

Запустить на исполнение файл 'fauna.exe', который

должен находится в одномкаталогесфайлом 'egavga.bgi'.

На экране появиться основное горизонтальное меню, с тремя пунктами: 'Start', 'Option', 'Quit'.

Активизация графического режима и запуск отображения на экран произойдет при нажатии клавиш 's' или 'S'.

Выход из программы можно осуществить клавишами 'q' или 'Q'.

Активизация меню 'Option' произойдет при нажатии клавиш 'O' или 'o'. В этом меню появиться три пункта - 'Herbivorous', 'Beast of prey', 'Environment'. При нажатии 'H' или 'h' будут задаваться параметры травоядных. При нажатии 'B' или 'b' будут задаваться параметры хищников. При нажатии 'E' или 'e' будут задаваться параметры окружающей среды. При вводе параметров хищников, травоядных и окружающей среды надо следовать подсказкам появляющимся внизу экрана.

При нажатии клавиши 'Esc' произойдёт выход в DOS из

любого места программы.