Похожие работы на «Синтез комбинацонных схем и конечных автоматов, сети Петри»

Синтез комбинацонных схем и конечных автоматов, сети Петри
Программирование и комп-ры, Синтез комбинацонных схем и конечных автоматов, сети Петри, Курсовая ... 300+150,185); Line(counter*300+150,215,counter*300+150,273); Line(counter*300+150,277,counter*300+150,335); Line(counter*300+150,365,counter*300+150, ...
... 300+150,273,counter*300+148,264); Line(counter*300+150,273,counter*300+152,264); Line(counter*300+150,335,counter*300+148,326); Line(counter*300+150, ...


Расчет сетевой модели методом Форда (с программой) [нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... starx[i]:=round(random(640)); stary[i]:=round(random(480)); starc[i]:=round(31-random(16)); end; end; PROCEDURE draw_menu; begin cleardevice; for i
... 1)*25,menu[menulevel,j]); end; PROCEDURE redraw_menu; begin for j:=nline*30+10 downto 1 do begin setcolor(0); line(210,110+j,470,110+j); line(200,100+ ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... построить два целочисленных вектора f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i]G[j], если i > j - построить ребро графа F[i]<-G[ ...
... 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


Решение обратной задачи вихретокового контроля [нестрогое соответствие]
Физика, Решение обратной задачи вихретокового контроля , Диплом и связанное с ним ... 1 ); for i:=1 to m+1 do begin k:=1; x1:=0; x0:=( i-1 )/m; for j:=1 to nPoints-1 do begin xL:=( j-1 )/( nPoints-1 ); if( ( xL < x0 ) AND ( x0 <= xL+dx ...
... type : '); case approx of apSpline : begin writeln('SPLINE'); getSiFunction := siSpline; end; apExp : begin writeln('EXP'); getSiFunction := siExp; ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... 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
... to 30 do with cell[i] do begin for j:=2 to 100 do begin z:=round(sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j- 1]))); shift[z]:=shift[z]+1 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... random(630)+5),(random(462)+18),0,ch); hr[y].show; end; m:=m+1+x; if (m>1000) or (m<=0) then begin key:=true; end; end; end; end; {*} procedure dead
... 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>0 then ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if t>0 then begin x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0, ...
... key:=true; break; 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;{мор травоядных} ...


Помехоустойчивое кодирование, распознавание символов [нестрогое соответствие]
Разное, Помехоустойчивое кодирование, распознавание символов, Курсовая ... то ещё делим} while fl do {пока можно делить...} begin inc(j); {...увеличиваем нижнюю границу} if (z[j] <> z[j - 1]) or (j > m - 1) then fl := false ...
... 400; var nn,ss,ii:integer; sr:string; driver,mode,errcode:integer; begin driver:=detect; initgraph(driver, mode,''); {инициализация графики} errcode: ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x [нестрогое соответствие]
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... Www); Bar3D(410,100,470,120,20,true); Bar3D(410,120,470,250,20,false) end; '2':begin Bar3D(200,250,300,300,30,true); Bar3D(200,300,300,320,30,true) ...
... until Atr.P3='*'; readkey; GOTO 3; end else Read(F33,Atr); until Atr.P1='*'; end until Atr.P1='0'; end else 3:end; until At.P1='0'; Close(F32); Close( ...


Кодирующее устройство для кода Файера [нестрогое соответствие]
Коммуникации и связь, Кодирующее устройство для кода Файера, Курсовая ... i:=1 to _N do Begin IF F[i]=1 Then Begin t:=1; For j:=i to i+_M-1 do Begin K[j]:=Sum(F[j],P[t]); F[j]:=K[j]; t:=t+1; End; End; End; t:=1; For i:=_N+1 ...
... Schot:=1; For i:=1 to _N do Begin IF Delimoe[i]=1 Then Begin t:=1; For j:=i to i+_M-1 do Begin K[j]:=Sum(Delimoe[j],P[t]); Delimoe[j]:=K[j]; t:=t+1; ...