Похожие работы на «Линейные списки. Стек. Дек. Очередь»

Линейные списки. Стек. Дек. Очередь
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... do q := q^.Next; h := q^.Next; q^.Next := h^.Next; if h <> nil then Dispose(h); RoundList := q^.Next; end; end; if RoundList <> nil then begin q ...
... begin q := q^.Next; Inc(i); end; r := q^.Next; if r <> nil then //Если он существует, то удаляем его begin if r^.Next <> nil then r^.Next^.Prev := q; ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...
... frmlesson.Height); if (x in [pic1.Left..pic1.Left+pic1.Width]) or (y in [pic1.Top..pic1.Top+pic1.Height]) then exit; q:=frmlesson.canvas.pixels[x,y] ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... real; { Угол, под которым выделять линии } xStart, xEnd, yStart, yEnd: word; BegSelect: boolean; procedure DefGradient(var Gx, Gy: real; x,y: word) ...
... число не белых пикселов } if Image.Canvas.Pixels[x,y] <> clWhite then Inc(Count); end; { for x } end; { for y } x1 := x1+dx; { Следующий квадрат по ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... города отправления} i:=(i mod 4)+1; if i=1 then Q:=Q^.next; end; repeat b:=Q^.way[i].city<>L; {Проверка города на дублирование} i:=(i mod 4)+1; if i=1 ...
... For I:=1 to MClass do If P^.class[I] then Read(Source,Q^.Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... FClockPriority:=Value; case FClockPriority of cpIdle: begin FDesiredProcessPriority:=IDLE_PRIORITY_CLASS; FDesiredThreadPriority :=THREAD_PRIORITY_ ...
... for testing small block of // code when it must be put in the processor cache begin FDeltaValue:=0; if FCounterSupported and assigned(FPrecizeProc) ...


Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости [нестрогое соответствие]
Математика, Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости, Курсовая ... y:=e^.y; e^.y:=x; end; exit; end; p:=b; q:=e; while (p<>q)and(p^.next<>q) do begin p:=p^.next; q:=q^.prev; end; if p=q then q:=q.next; p^.next:=b; b^ ...
... if b=e then exit; if b^.next=e then begin if (b^.xq)and(p^.next<>q) do begin p:=p^.next; q:=q^.prev; end; if p=q then q:=q.next; p^.next:=b; b^.prev


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Blank; If not (s[i]='>') Then Begin Error(2); Goto New; End Else{записываем нетерминал} Begin NotT.Name:='<'+term+'>'; If Search(NotTerminalL,NotT)>0 ...
... Name<>x.Name) Do l:=l^.Next; If l<>Nil Then Begin new(q); q^.Name:=d.Name; q^.Next:=l^.Next; l^.Next:=q; End; End; End; Procedure Add_(ListLR:NotTerm


Программирование на Object Pascal в среде Delphi [нестрогое соответствие]
Программирование и комп-ры, Программирование на Object Pascal в среде Delphi , Работа Лабораторная ... ElSt занести значение из Edit1 PTek^.inf:=ElSt; // в информационную часть стека занести ElSt PTek^.adr:=PVer; // в адресную часть занести указатель на ...
... вывести заголовок repeat Memo1.Lines.Add(#9+IntToStr(PTek^.inf));// вывод элементов PVer:=PTek^.adr; Dispose(PTek); // освободить память PTek:=PVer ...


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... Order, Pred(NumReturn)); for Serie := 1 to Order do begin ChartFX.SerLeg[Pred(Serie)] := 'X ' + IntToStr(Serie); ChartFX.ThisSerie := Pred(Serie); for ...
... TMatrix.SetSingle; var i: Word; begin if FCols <> FRows then Raise EMatrixOperatingError.Create ('Единичная матрица должна быть '+ 'квадратной') else ...


Создание теста в Delphi [нестрогое соответствие]
Программирование и комп-ры, Создание теста в Delphi, Курсовая ... a of {Фактор А} 1..5:begin FormTest.Memo1.Lines.Add('"Шизотермия"'); . end; end; end; {добавление вопросов в Memo} procedure addtest; begin if nomer=1 ...
... buttonnext.Caption:='Завершить'; buttonnext.Visible:=false; BFinish.Visible:=true; Label1.Visible:=false; Label3.Visible:=false; end; addtest; {if n>0 ...