Похожие работы на «Моделирование схемы Жизнь»

Моделирование схемы Жизнь
Программирование и комп-ры, Моделирование схемы Жизнь, Курсовая ... end; {} {} end; {} {} {} end; {} End; Procedure Setup; {} {} var {} i,j:integer; {} Begin {} {} Randomize; {} for i:=1 to 50 do {} for j:=1 to 30 do ...
... var {} i,j:integer; {} Begin {} {} live:=0; {} for i:=1 to 50 do {} for j:=1 to 30 do {} if A[i,j] then live :=live+1; {} End; BEGIN Setup; i:=9; j:=1 ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... Возвращение рисунка для синих фишек if (a[i,j]=0) then if button=mbLeft then begin if (abs(i-vi)<3) and (abs(j-vj)<3) then begin if (abs(i-vi)=2) or ...
... true; for i:=0 to 9 do for j:=0 to 9 do begin b[i,j].Left:=i*(image1.Width); b[i,j].top:=j*(image1.Height); b[i,j].Bottom:=b[i,j].Top+image1.Height; b ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0,0,0) ...
... x:=x0; y:=y0; End; Function Tposition.Getx:integer; Begin GetX:=x End; Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0, ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; While (l<>Nil) and (l^.Name<>x.Name) Do l:=l^.Next; If l<>Nil Then ...
... PutPixel(18+i*25+5,27+j*24+3-40,3); End; 2:Begin OutTextXY(18+i*25,27+j*24-40,'>'); PutPixel(18+i*25-1,27+j*24+3-40,3); End; 3:Begin OutTextXY(18+i


Модули, записи и файлы [нестрогое соответствие]
Программирование и комп-ры, Модули, записи и файлы, Курсовая ... a:matr); function max(c:vect):real; procedure pr(a:matr;var c:vect); implementation procedure vivod (var a:matr); var i,j:integer; begin for i:=1 to n ...
... function max( c:vect):real; var i:integer; m:real; begin m:=-2; for i:=1 to n do if c[i]>m then m:=c[i]; max:=m end; procedure pr(a:matr;var c:vect) ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... Z Формы 1 определены только внутри этих процедур, аналогично переменной G в Процедуре_У Формы 2. Эти переменные определены только в рамках своих ...
Более того, для одноименных переменных G в Процедуре Z и в Процедуре Y выделяются разные ячейки памяти и изменение значения переменной G в одной из ...


Процедуры в Паскале [нестрогое соответствие]
Программирование и комп-ры, Процедуры в Паскале , Работа Курсовая ... которая также предусматривает, что 0! и 1! =1} L:=l-1; end; end; .... begin .... {теперь рассмотрим вызов процедуры} FL(5,a); FL(2,b); FL(2+5,c) ...
... a:=sqr(a); b:=sqr(b); writeln("в квадрате они выглядят так: ",a,", ",b); end; ........ begin a:=4; b:=6; writeln("внимательно посмотрите на эти числа: ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей [нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... target].mark.prevPtr:=target; vertexArr[target].marked:=true; AllVertexMarked:=false; While not AllVertexMarked do BEGIN For j:=1 to 7 do For i:=1 to ...
... 4;computers[i].addr.domain:=2; computers[i].addr.comp:=j;inc(j); end; j:=1; for i:=26 to 30 do begin {router 5, domain 1} computers[i].addr.router:=5; ...


Программирование на Object Pascal в среде Delphi [нестрогое соответствие]
Программирование и комп-ры, Программирование на Object Pascal в среде Delphi , Работа Лабораторная ... строки 1: r:=Random(1000); // генерирование случайного числа for k:=1 to i do for l:=1 to j do if r=pA^[k]^[l] then // если такое число уже есть в ...
... StringGrid1 StringGrid1.Cells[j-1,i-1]:=IntToStr(pA^[i]^[j]); { Поиск min и max значений среди элементов массива} max:=pA^[1]^[1]; min:=max; for i:=1 ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... на экране Таблица 2.2 Переменные используемые в процедуре Loc |Переменная |Назначение | |X |Позиция курсора по X | |С2 |Позиция курсора по Y | 2.2.4. ...
... or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; goto ...