Похожие работы на «Поиск в ширину на графах»

Поиск в ширину на графах
Программирование и комп-ры, Поиск в ширину на графах, Курсовая then {} repeat {} write(m[i]^.inf,'-'); {} m[i]:=m[i]^.next; {} until m[i]=nil; {} writeln(''); writeln; {} end; {} writeln('КОЛ-ВО РЕБЕР СОЗДАННОГО ...
... связей u-й вершины} while m[u]<>nil do begin if m[u]^.inf=ver[v] then begin rebro:=true; break; end; m[u]:=m[u]^.next; end; end; {если связь все таки ...


Разработка системы задач (алгоритмы-программы) по дискретной математике
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... of 1: write((time+1)/2:0:3); 2: write(time/2+1/4:0:3); 3: write(time/2:0:3,"+1/",(time mod 2+1)*3); End; WriteLn("Момент(а,ов) времени"); End; End; ...
... var m:integer; begin If i>j then Writeln('No') else begin m:=(i+j)div 2; Inc(b); If A[m]X then Solve(i,m-1,t) else Write(b); end; end; begin clrscr; ...


Aлгоритмы на графах
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... B then Begin f:=true; break End End End; if f then Begin k:=B; Write(B); While Prev[k]<>0 do Begin Write('<-', Prev[k]); k:=Prev[k] end End else Write ...
... доказано для всех mnil do Begin Write(l^.i:3); l:=l^.next End End; Begin stack1:=nil; stack2:=nil; Write('Начальная вершина: ');readln(v); Push(v, ...


Построение функции предшествования по заданной КС-грамматике
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... s[i]='<') Then Begin Error(1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть ...
s[i]='|' Then Begin inc(i); Goto More; End; Blank; If s[i]='|' Then Begin inc(i); Goto More; End; If i<=Len Then{не дошли до конца правила} Begin i:=i ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним 1) 0<=ф(u)<=с(u) 2) ф(u) - ф(u) = 0 для любой вершины x=/=x0, x=/=z. u ?Е+(х) u ?Е-(х) При этом поток не может "накапливаться" ни в одной вершине ...
... then begin if Size div 1024 <> 0 then begin SubItems.Add(IntToStr(Size div 1024)); SubItems[0] := SubItems[0] + 'KB'; end else SubItems.Add(Size); end ...


Математическое моделирование физических задач на ЭВМ
Физика, Математическое моделирование физических задач на ЭВМ, Диплом ... Inc(i); Ad:=1; 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] ...
... Then Begin If L<>Nil Then Begin L^.GetData(s); Dispose(L,Done); End; i:=0; val(s,M,i); End; If D<>Nil Then Dispose(D,Done); End; ElMatter:=M; End; ...


Поиск клик в графах [нестрогое соответствие]
Математика, Поиск клик в графах , Работа Курсовая ... дуг, инцидентной вершине х, являются степенью вершины х Р(х). Вершины, степень которых Р(х)>2, называются узлом, а со степенью Р(х)<2 - антиузлом.
... lenstolb; for i1:=1 to lenstolb do klika.Klikmass[i1]:=Kstring[i1]; write(fileKlics,klika); end; end; end; {конец пеpебоpа возможных мест в стpоке} ...


Задача остовных деревьев в k-связном графе [нестрогое соответствие]
Математика, Задача остовных деревьев в k-связном графе , Диплом и связанное с ним ... а, исходящее из вершины а) и входящее в вершину b (подходящее к вершине b, заходящее в вершину b). Как в случае ориентированного, так и в случае ...
... ровно одну общую вершину, именно вершину eE, определяемую единственным ребром Е, соединяющим e и e". Таким образом, I(G) имеет такое непересекающееся ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... NextRef >= Symbol_Table_Length); end; if Offset[0] <> Chr(0) then begin write(f_out, tab, tab); case Prefix of REP: begin write(f_out, 'REP '); Prefix ...
... f_out, 'SS:'); Prefix := NoPrefix end; DS: begin write(f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, Operand2); end else write(f_out, ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... из более простых, переходить от графа к более простому, разбивать графы на более простые и т.д. Среди одноместных операций наиболее употребительны: ...
... определяющую кратчайший путь из s в t. begin CTEK := ? ; CTEK ? t; v:= t; while v ? s do begin u := вершина, для которой D[v] = D[u] + A[u, v]; CTEK ...