Похожие работы на «Задача о коммивояжере»
Задача о коммивояжере
Экономико-математическое моделирование, Задача о коммивояжере, Курсовая
... y, l : byte ; gg : char ; var qq : char ; var a : real ; var s : string ; st_r : boolean; scroll : boolean ; attrib : byte); Процедура ввода строки с ...
... byte - координаты начала строки ввода. l : byte - ширина строки ввода. gg : char - последний введенный символ до начала редактирования. var qq : char ...
Расчет сетевой модели методом Форда (с программой)
[нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая
... Function |min; |Вычисляет минимальное значение вектора| |type : | |k[i]; | |real | | | |Procedure|set_graph_mode; |Устанавливает графический режим; ...
... ramka; |Выводит рамку по краям экрана; | |Procedure|save; |Сохранение результатов в файл; | |Procedure|about_program; |Выводит информацию о программе; ...
Построение функции предшествования по заданной КС-грамматике
[нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая
... построить два целочисленных вектора f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i]G[j], если i > j - построить ребро графа F[i]<-G[ ...
... Ex:Boolean; Begin If l<>Nil Then Begin j:=1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; Ex:=False; While (l<>nil) ...
Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ...
[нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ...
... с данным шаблоном и уже построенной частью маршрута} Begin While {просмотрены не все рейсы} do begin If {соответствует тип транспорта} and {Текущий ...
... 2]=('Mo','Tu','We','Th','Fr','Sa','Sa'); Const RWeek:array[0..6] of string[2]=('?','"в','"а','-в','?в','"Ў','"б'); procedure newdat(a:dat; delay:word ...
Процедуры в Паскале
[нестрогое соответствие]
Программирование и комп-ры, Процедуры в Паскале , Работа Курсовая
... имя, например: type Proc = Procedure (a, b, с : real; Var d : real); Proc2 = Procedure (var a, b); РгосЗ = Procedure; В программе могут быть объявлены ...
Procedure В (j : byte); forward; Procedure A (i : byte); begin B(i); End; Procedure B; Begin .
Нахождение кратчайшего пути
[нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая
... Load(FileName:string); procedure SetActive(Num:integer); procedure SetUnActive(Num:integer); procedure SetAllUnActive; procedure Move(number,x,y: ...
... 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 ...
Программирование на языке Турбо Паскаль
[нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие
Наш модуль предназначается для операций с трехмерными векторами: unit Vectors; interface type tVec3D = record x,y,z: real; end; procedure VecAdd(a,b: ...
... l: tItemPtr); begin l:=nil end; procedure AddItemToHead(var l: tItemPtr; d: tData); var p: tItemPtr; begin new(p); p^.data:=d; p^.next:=l; l:=p; end; ...
Основы программирования на языке Паскаль
[нестрогое соответствие]
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат
... от друга количеством ячеек | |памяти (байтов), отводимых для хранения соответствующей переменной. | |Логическое же отличие проявляется в интерпретации ...
... Integer; {C - независимая локальная переменная} | |Begin | | C:=A; A:=B; B:=C {Меняем местами содержимое A и B} | |End; | |Begin | |Writeln('Введите ...
Программная реализация модального управления для линейных стационарных систем
[нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая
... pic] где [pic]- коэффициенты характеристического уравнения (4). Матрица [pic] в канонической форме имеет вид [pic] 7. Составляем вектор [pic] ...
... Re := StrToFloat(StringGrid_Roots.Cells[j, 1]); cvRoots.Data[j].Im := StrToFloat(StringGrid_Roots.Cells[j, 2]); end; for j := 1 to Order do begin if ...
Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
[нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним
... Receive(batch:TBatch;byRouter:boolean); {receive batch} END; TYPE TRouter = object num :byte; x,y :integer; memory :Tbatch; state :boolean; {active or ...
... domain,'.', batch.from.comp); if byRouter then writeln(' by router',tmpTo.router); End; {-Router procedures-} Procedure TRouter.CalcMinPath(sender, ...
