Похожие работы на «Aлгоритмы на графах»

Aлгоритмы на графах
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... False, False, False), (True, False, True, False, False, False, True, True, False), (True, True, False, True, True, False, False, False, False), (False ...
... False, False, False), (True, False, True, False, False, False, True, True, False), (True, True, False, True, True, False, False, False, False), (False ...


Математическое моделирование физических задач на ЭВМ
Физика, Математическое моделирование физических задач на ЭВМ, Диплом ... Ad Of 0: Begin i:=Ai+1; j:=Aj-1; End; 1: Begin i:=Ai-1; j:=Aj+1; End; 2: Begin i:=Ai-1; j:=Aj+1; End; 3: Begin i:=Ai+1; j:=Aj-1; End; End; While Flag1 ...
... End; Else Flag1:=False; End; End; End; If Sheme[i,j,1] In [14..18] Then Begin With A[Index] Do Begin Str:=i; Col:=j; Num:=Sheme[i,j,2]; Typ:=Sheme[i,j ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... 1; while (iN)do begin j:=i+1; while(j<=N)and Not((j in A[i])and(B[i]+B[j]=[1..M]))do Inc(j); Inc(i); End; InTwoNear:=j<=N; End; Function AddIfCan(mode ...
... byte; Var i,j:integer; Begin i:=1; j:=N+1; while (iN)do begin j:=i+1; While (j<=N)and (not(j in A[i])or(B[i]+B[j]<>[1..m])or Not((SOne=[])or(STwo= ...


Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... 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 ...
... 1]:=el; m[j+1]:=em; end; end; {=} begin while menu<>'4' do begin textmode(1); textbackground(blue); clrscr; textcolor(red); gotoxy(16,3); writeln('Г Р


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Символ |Шаг 1 (начало построения) |Последний шаг (результат) | |(U) |L(U) |R| |L(U) |R(U) | ... | |U| | ... | |J |( p |)| |( p |) p | | | |p| | | | |T ...
... принимают только три значения (< = >), попытаемся построить два целочисленных вектора f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i ...


Задача остовных деревьев в k-связном графе [нестрогое соответствие]
Математика, Задача остовных деревьев в k-связном графе , Диплом и связанное с ним ... а, исходящее из вершины а) и входящее в вершину b (подходящее к вершине b, заходящее в вершину b). Как в случае ориентированного, так и в случае ...
... 1 to i do if (sqr(X-data[k].x1)+sqr(Y-data[k].y1)<=100) then begin canvas.arc(data[k].x1,data[k].y1- 30,data[k].x1+50,data[k].y1+30, data[k].x1+5,data ...


Метод Гурвица [нестрогое соответствие]
Программирование и комп-ры, Метод Гурвица, Курсовая ... 2 to m do begin if C_b[i,j]b_b[i] then b_b[i]:=C_b[i,j]; end; {вычисления расчетных выигрышей игрока В} for j:=1 to k do V_b[i,j]:=al[j]*b_m[i]+(1-al[ ...
... cells[2,0]:='b_большая'; for j:=1 to n do begin tabliza.cells[1,j]:=intToStr(b_m[j]); tabliza.cells[2,j]:=intToStr(b_b[j]); end; for i:=1 to n do for ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... if (X>=Mini)and(X=(k*X+b-8) )and ( Y<=(k*X+b+8)) then begin Flag:=true; Select(i,j); Exit; end; end; inc(i); until(Flag)or(i>Dimension); inc(j); i:=1; ...
... stream.ReadInteger; finally stream.Free; st.Free; end; end; procedure TData.Remove(Num:integer); var i,j:integer; begin for i:=Num to Dimension-1 do ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... getx; y1:=tg[k].gety; at1:=tg[k].daiage; ct1:=tg[k].daizwet; tg[k].done; tg[k-1].init(x1,y1,at1,ct1); tg[k-1].show; until k>=g; TG[G].INIT(0,0,0,0); G ...
... 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) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... 1].show; until k>=g; TG[G].INIT(0,0,0,0); G:=G-1; j:=j-1; end else begin end; until j>=g; end; end; {*} procedure havka; begin if ((z mod 365)=0) and ...
... 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, ...