Программа эмуляции развития популяций животных

;Июнь';
 if (x>=181)and(x<=211) then col:='Июль';
 if (x>=212)and(x<=241) then col:='Август';
 if (x>=242)and(x<=272) then col:='Сентябрь';
 if (x>=273)and(x<=303) then col:='Октябрь';
 if (x>=304)and(x<=335) then col:='Ноябрь';
 if (x>=336)and(x<=365) then col:='Декабрь';
 mes:=col;
end;
{***********************************************************}
FUNCTION COLWORD;
VAR COLO:STRING;
BEGIN
 IF COL=0 THEN COLO:='ЧЕРНЫЙ';
 IF COL=1 THEN COLO:='СИНИЙ';
 IF COL=2 THEN COLO:='ЗЕЛЕНЫЙ';
 IF COL=3 THEN COLO:='ГОЛУБОЙ';
 IF COL=4 THEN COLO:='КРАСНЫЙ';
 IF COL=5 THEN COLO:='ФИОЛЕТОВЫЙ';
 IF COL=6 THEN COLO:='КОРИЧНЕВЫЙ';
 IF COL=7 THEN COLO:='СВЕТЛО-СЕРЫЙ';
 IF COL=8 THEN COLO:='ТЕМНО-СЕРЫЙ';
 IF COL=9 THEN COLO:='СВЕТЛО-СИНИЙ';
 IF COL=10 THEN COLO:='СВЕТЛО-ЗЕЛЕНЫЙ';
 IF COL=11 THEN COLO:='СВЕТЛО-ГОЛУБОЙ';
 IF COL=12 THEN COLO:='СВЕТЛО-КРАСНЫЙ';
 IF COL=13 THEN COLO:='СВЕТЛО-ФИОЛЕТОВЫЙ';
 IF COL=14 THEN COLO:='ЖЕЛТЫЙ';
 IF COL=15 THEN COLO:='БЕЛЫЙ';
 COLWORD:=COLO;
END;
{***********************************************************}

procedure fon;
 begin
  textbackground(x);
 end;

{***********************************************************}
procedure txt;
 begin
  textcolor(col);
 end;
{***********************************************************}
procedure ramka;  {вывести рамку}
 const
  a=#186;b=#187;c=#188;d=#200;e=#201;f=#205;
  {T}
 var i,j:integer;
 begin
  hiddencursor;
  gotoxy(x1,y1);
  write(e);
  for i:=(x1+1) to (x2-1) do write(f);
  write(b);
  for i:=(y1+1) to (y2-1) do
   begin
    gotoxy(x1,i);
    write(a);
    gotoxy(x2,i);
    write(a);
   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 из
любого места программы.

1 2 3 4

скачать работу

Отправка СМС бесплатно