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

Программа эмуляции развития популяций животных
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; end; m:=m+1+x; if (m>1000) or (m<=0) then begin ...
... j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin ...


Программа эмуляции развития популяций животных
Зоология, Программа эмуляции развития популяций животных, ... to m do begin x1:=hr[j].getx; y1:=hr[j].gety; at1:=hr[j].daiage; ct1:=hr[j].daizwet; hr[j].done; hr[j-1].init(x1,y1,at1,ct1); hr[j-1].show; end; hr[m] ...
... end; end; if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... add(mode,S,a); if mode<1 then add(1,D,a); if mode<3 then add(3,M,a); if mode<5 then add(5,Y,a); if not DTErr then DTErr:=a.day>DayInMonth(a.month,a. ...
... a.month; n:=(A.day+2*m+trunc(0.6*(m+1))+y+(y div 4)-(y div 100)+(y div 400)) mod 7; dweek:=n; end; Function STime (st:string):Word; var i,e,mode:byte; ...


Создание игры [нестрогое соответствие]
Программирование и комп-ры, Создание игры , Работа Курсовая ... x:=x-3; if x<10 then begin putimage(x,y,pp^,copyput); x:=580; end; putimage(x,y,p^,copyput); end; if a=chr(32) then begin for m:=y-2 downto 56 do ...
... движение курсора вверх} b:=wherey; gotoxy(26,b); write(' '); if b<=10 then b:=20; gotoxy(26,b-1); write('>>>'); gotoxy(25,b-1); sound(4000); delay( ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... While tmp2<>Nil Do Begin If tmp2^.Name=#0 Then Begin GotoXY(50,WhereY); inc(i); End; GotoXY(WhereX,i); If tmp2^.Name<>#0 Then Write(tmp2^.Name); tmp2: ...


Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... i]:=nil; for j:=1 to raz do begin spro:=true; if j=raz then goto Er; if j=i then inc(j); n:=nil; n:=lst[j]; if lst[j]<>nil then repeat if n^.inf=ver[i ...
... j]>ver[j+1] then begin exch:=ver[j]; el:=lst[j]; em:=m[j]; ver[j]:=ver[j+1]; lst[j]:=lst[j+1]; m[j]:=m[j+1]; ver[j+1]:=exch; lst[j+1]:=el; m[j+1]:=em; ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... a>='0') and (a<='9')) or (a='.') then begin LI[y]:=a; write(a); y:=y+1 end; if a=#8 then begin y:=y-1; gotoXY(ad.x+y-1,ad.y); write(' '); gotoXY(ad.x+ ...
... wri_val(manual[j],j,true); case a of rightarrow, downarrow : j:=j+1; leftarrow, uparrow : j:=j-1; end; if j>10 then j:=10; if j<0 then j:=0; end; if


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... из структурной матрицы.} procedure MGSS; begin for s:=1 to n do begin i:=s;j:=s; while i<=n do begin while j<=m do begin if STM[i,j]<>0 then begin p
... i:=i+1 end; if p>s then for j:=1 to m do begin PR[j]:=STM[s,j]; STM[s,j]:=STM[p,j]; STM[p,j]:=PR[j] end; if g<>s then begin for i:=1 to n do b[i]:=STM ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin Writeln('4') Writeln(b1,"4"); End; else If z>=40 Then Begin Writeln('3') Writeln(b1,"3" ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... c5); for w:=2 to 79 do begin gotoxy(w,h); write(c2); end; gotoxy(w,h); write(c6); for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h) ...
... c10); for h:=2 to 24 do begin gotoxy(w,h); write(chr(179)); end; gotoxy(w,20); write(c8); gotoxy(59,25); write(c9); gotoxy(62,4); writeln('F1-Помошь' ...