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

gotoxy(2,3);

write(s,' т. травы и ',ht,' туш нужно на прокорм животных');

gotoxy(2,4);

write('Max возраст травоядных ',v,', хищников',w);

gotoxy(2,5);

write('Детородный возраст травоядных от ',tmin,' до ',tmax);

gotoxy(2,6);

write('Детородный возраст хищников от ',hmin,' до ',hmax);

gotoxy(2,7);

write('Помет травоядных до ',tp,', хищников до ',hp);

gotoxy(2,8);write('Травы ',tree,' тонн ');

str(tr:1:2,s);

gotoxy(2,9);write('Прирост травы на каждый месяц ',s,'%');

if (kata=0) or (kata=1) then s:='отсутствует' else

s:='присутствует';

gotoxy(2,10);write('Вероятность катаклизмов ',s);

s:=colword(ct);

gotoxy(2,11);write('Цвет травоядных ',s);

s:=colword(ch);

write(' Цвет хищников ',s);

end;

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

procedure Gmenu;

begin

fon(black);

clrscr;

colorwind(1,1,80,4,black,darkgray);

txt(14);

gotoxy(5,2);