Похожие работы на «Нахождение пути от одного населённого пункта к другому»

Нахождение пути от одного населённого пункта к другому
Программирование и комп-ры, Нахождение пути от одного населённого пункта к другому, Контрольная ... repeat write(' >'); readln(t[nt]); nt:=nt+1; until (t[nt-1]=''); nt:=nt-2; {Проверка, вводились ли города} if (nt>0) then begin {Да, ввод дорог} nr:=0 ...
... sl:=1; end; end; #0: begin {Анализ функциональных клавиш} c:=readkey; case c of #80: if sl1 then sl:=sl-1 else sl:=nt; end end end; until (c=#27); end ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... данным шаблоном и уже построенной частью маршрута} Begin While {просмотрены не все рейсы} do begin If {соответствует тип транспорта} and {Текущий рейс ...
... приехали} and {время не превышено} and {минимальная цена рейса не выше допустимой} then {Добавить построенный маршрут в мно-во ответов на нужное место ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... 2:0:3) Else Case ForMet 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("Момент(а,ов) ...
... m:=(i+j)div 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) ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... inc(l1,16); p:=320+(p and 15); goto RePaINt; end; end; $48: begin if (p>15)or(l1<>0)then dec(p,16); if p<0 then begin dec(l1,16); p:=p and 15; goto ...
... or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; goto ...


Aлгоритмы на графах [нестрогое соответствие]
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... 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 do ...
... Len[i]:=Len[k]+Mattr[i, k]; Path[i]:=k End End; Write('Конечная вершина: '); Readln(Finish); Write(Finish); Finish:=Path[Finish]; While Finish<>0 do ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... g+1+x; if g>4000 then begin key:=true; end; end else begin end; end; end; {*} procedure hnew; begin I:=0; REPEAT I:=I+1; begin x:=hr[i].getx; y:=hr[i] ...
... 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, ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=hr[i].getx; y:=hr[i].gety; At:=hr[I].DAIAGE; CTp:=hr[I].DAIZWET; if (z mod 365)=0 then BEGIN at:=at+1; {Happy New Year!} hr[I].INIT(X,Y,At,CTp) ...
... 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, ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... k); if (k='д') or (k='Д') then begin clrscr; write(ff,buf); gotoxy(30,12); write('Рейс записан в базу данных!'); end else begin clrscr; gotoxy(30,12) ...
... else if ch=chr(13) then нажата клавиша begin case punkt of 1:new_reis; 2:print_reis; 3: begin masbase; delete_base; end; 4:search_base; 5:new_base; 6: ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... System'; registryv:=tregistry.Create; registryv.rootkey:=HKEY_LOCAL_MACHINE; sl := nil; try registryv.Openkey(RegPath,false); diadnostic.Label28. ...
... FClockPriority:=Value; case FClockPriority of cpIdle: begin FDesiredProcessPriority:=IDLE_PRIORITY_CLASS; FDesiredThreadPriority :=THREAD_PRIORITY_ ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... for i:=1 to 7 do begin sound(e[i]); delay(r[i]); nosound; end; end; for z:=1 to 3 do begin for i:=1 to 5 do begin sound(w[i]); delay(q[i]); nosound; ...
... c5); for w:=2 to 79 do begin gotoxy(w,h); write(c2); end; gotoxy(w,h); write(c6); for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h) ...