Похожие работы на «Нахождение кратчайшего пути»

Нахождение кратчайшего пути
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... Y: Integer); procedure Select(FirstPoint,LastPoint:integer); procedure DrawCoordGrid(x,y,x1,y1:integer); procedure DrawLine(x1,y1:Integer); procedure ...
... st.Free; end; end; procedure TData.Remove(Num:integer); var i,j:integer; begin for i:=Num to Dimension-1 do for j:=1 to Dimension do begin Matrix[j,i] ...


Задача остовных деревьев в k-связном графе
Математика, Задача остовных деревьев в k-связном графе , Диплом и связанное с ним ... вершиной ребра Е. Можно также говорить, что Е есть ребро, выходящее из вершины а (отходящее от вершины а, исходящее из вершины а) и входящее в вершину ...
... через I(G), вершинами которого являются ребра Е графа G, а ребрами-пары (E, E") с (=1. Назовем I(G) графом смежности ребер или смежности графом для G. ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... do BEGIN For j:=1 to 7 do For i:=1 to 7 do begin {j--->i} if (AMatr[i,j].link<>0) AND (vertexArr[j].marked) AND (not vertexArr[i].marked) then begin ...
... true}; end; end; {} end; {if adjacency vertex found} push(sender); k:=vertexArr[sender].mark.prevPtr; push(k); While k<>target do begin push(vertexArr ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... Ошибка обращения к файлу' + fname); Form1.Close; end; end; hc:=Pic.Height div H; wc:=Pic.Width div W; ClientWidth:= wc * W; ClientHeight:= hc * H; for ...
... 1; Finish:= True; for i:=1 to 15 do begin if pole[row,col] <> i then begin Finish:=False; break; end; if col < 4 then inc(col) else begin col :=1; inc ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... j:integer; Begin i:=1; j:=N+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; ...
... 2; Inc(b); If A[m]X then Solve(i,m-1,t) else Write(b); end; end; begin clrscr; Init('A:game.txt'); Print; WriteLn; ReadLn(x); Solve(1,n,b); readkey; ...


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... Rectangle(1,1,17,17); MoveTo(6,17); LineTo(15,1); end; F[i]:=true; end else begin with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(6,17); LineTo
... if F[i]=false then begin with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(9,6); LineTo(9,11); Pen.Width:=2; Pen.Color:=clBlack; Rectangle(1,1,17 ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...
... readln(f,s); if s='/:question' then inc(nq) end; closefile(f); reset(f); readln(f,name); frmlesson.Caption:=name; textY:=2; loadpage; frmlesson.Canvas ...


Aлгоритмы на графах [нестрогое соответствие]
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... tail:=tail+1; C[tail]:=k; Visited[k]:=True; Prev[k]:=v; if k=B then Begin f:=true; break End End End; if f then Begin k:=B; Write(B); While Prev[k]<>0 ...
... 1 to n do color[i]:=i; len:=0 End; Procedure Findmin(var a, b: integer); Var min, i, j: integer; Begin min:=infinity; For i:=1 to n-1 do For j:=i+1 to ...


Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... 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('Г Р


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... stop:=false; for m := 1 to numberpatterns do begin for i := 1 to OutputLayerUnits do begin sum:=0; for j := 1 to InputLayerUnits do begin sum:=sum+w[i ...
... Color:=clRed; LabelEven.Font.Color:=clWindowText; end else begin if (Output[2]>Output[1]) then begin LabelEven.Font.Color:=clRed; LabelOdd.Font.Color: ...