Похожие работы на «Расчет сетевой модели методом Форда (с программой)»

Расчет сетевой модели методом Форда (с программой)
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... i]:=mas[0,i]+mas[i,j] else k[i]:=-1; mas[0,j]:=min; mas[j,0]:=mas[0,j]; end; {4} repeat l:=true; for i:=1 to n do for j:=1 to n do if (mas[0,j]-mas[0, ...
... begin for j:=nline*30+10 downto 1 do begin setcolor(0); line(210,110+j,470,110+j); line(200,100+j,210,100+j); setcolor(8); if j<10 then begin setcolor ...


Арканоид на Паскале
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... end; end; procedure search_y; begin case y of 22..42: begin y:=42; stroika; end; 43..63: begin y:=63; stroika; end; 64..84: begin y:=84; stroika; end; ...
... y:=189; stroika; end; 190..210:begin y:=210; stroika; end; 211..231:begin y:=231; stroika; end; 232..252:begin y:=252; stroika; end; 263..273:begin y: ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) then begin New(Q^.Next); Q:=Q^.next end else Q^.next:=nil ...
... c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) ...


Создание игры [нестрогое соответствие]
Программирование и комп-ры, Создание игры , Работа Курсовая ... 300);delay(100);nosound; end; key:=keypressed; if key=false then goto 2; a:=readkey; if a=chr(77) then begin x:=x+3; if x>580 then begin putimage(x,y, ...
... 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 begin putimage(x+8,m,p1^,copyput); delay ...


Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна [нестрогое соответствие]
Технология, Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна, ... iii1; fcount:=fcount+1; fsign:=-1; end; end else begin if y[8]-old_cur >= 0 then begin if fcount = 0 then fpoint:=iii1; fcount:=fcount+1; fsign:=1; ...
... i]:=sign[i+1]; end; sign[500]:=y[8]; end; end; if(iii1>249) then begin { control circle } if (mark=1) then begin mark:=0; setcolor(14); circle(xg+phas ...


Разработка игровой программы [нестрогое соответствие]
Программирование и комп-ры, Разработка игровой программы, Курсовая ... min+1; tps:=0; end else begin tpm:=min; tps:=sec+po; end; end; xnp:=round(sin(fi)*24+320); ynp:=round(cos(fi)*15+406); xkp:=round(sin(fi)*38+320); ykp ...
... Повоорт дула вправо} if ord(a)=27 then menu:=true; {Выход в меню} if fi3*pi/2 then fi:=3*pi/2; if a=' ' then begin {Выстрел} if (not(fire.v)) and (not ...


Программирование с использованием генератора случайных чисел [нестрогое соответствие]
Программирование и комп-ры, Программирование с использованием генератора случайных чисел, Курсовая ... 72: if j>1 then j:=j-1; #80: if j<32 then j:=j+1; #27: exitpar:=true; end; for i:=1 to 19 do begin gotoxy(2,i+4); if i+j-1<10 then write(' ',i+j-1, ...
... i:=1 to 10 do begin x:=0; for j:=1 to 10 do x:=x+posle[(i-1)*10+j]; mat[i]:=x/10; mat0:=mat0+x; end; mat0:=mat0/100; for i:=1 to 10 do for j:=1 to 10


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin hr[j].done; hr[j].init
... 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) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if x1=0 then begin for i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin ...
... 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;{мор травоядных} ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... MaxX, MinY+5, 'X'); End; procedure ShowLine(_iN:TNerav); var s: String; Begin if _iN.b/_iN.y<0 then begin{если коэффиц. при Y меньше 0} MoveTo(MinX+ ...
... Esc - Отмена)'); {считаем координаты выхода} c:=0; cTmp:=0; repeat if i=1 then SolveOprtel(Matr[1], MainF, c, XResult, YResult) else for j:=1 to i-1 ...