Похожие работы на «Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей »

Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... routers[2].x,routers[2].y,whi te); Circle(routers[3].x,routers[3].y,10);FloodFill(routers[3].x,routers[3].y,whi te); Circle(routers[4].x,routers[4].y, ...
... 10,routers[4].y-6); Line(routers[3].x,routers[3].y-10,routers[2].x+2,routers[2].y+10); Line(routers[3].x,routers[3].y+10,routers[4].x,routers[4].y-10) ...


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(9,6); LineTo(9,11); Pen.Width:=2; Pen.Color:=clBlack; Rectangle(1,1,17,17); MoveTo(6,8); LineTo ...
... i:integer; s:string; begin Error:=0; Count:=0; if WorkMode=1 then begin for i:=0 to 24 do if E[i]=F[i] then Error:=Error+1; if Error=0 then s:='Хорошо ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... var Gx, Gy: real; x,y: word); var a, b, c, d, e, g, h, i: byte; begin with Image.Canvas do begin if Pixels[x-1,y-1] = clBlack then a := 0 else a
... Pixels[x+1,y-1] = clBlack then c := 0 else c := 1; if Pixels[x-1,y] = clBlack then d := 0 else d := 1; if Pixels[x+1,y] = clBlack then e := 0 else e ...


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


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... рисунка для синих фишек if (a[i,j]=0) then if button=mbLeft then begin if (abs(i-vi)<3) and (abs(j-vj)<3) then begin if (abs(i-vi)=2) or (abs(j-vj)=2) ...
... image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap); V2i:=i; v2j:=j; end else begin image2.Canvas.StretchDraw(b[v2i,v2j],image3.picture.bitmap) ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... Real;K:Integer;Stop:Real); Procedure ElRefresh; Procedure Prepare; Procedure Stop; Procedure Redactor; Procedure PaintLines; Function CheckEkviBegin(X ...
... X+1,Y)=0 then Exit; If Potenc(X-1,Y)=0 then Exit; If O=1 then begin Ekv[X+1,Y+1]:=True; Ekv[X-1,Y+1]:=True; end; If O=2 then begin Ekv[X-1,Y-1]:=True; ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... 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 ...
... Pole[ey,ex]:=Pole[cy,cx]; Pole[cy,cx]:=0; ex:=cx; ey:=cy; Form1.ShowPole; if Finish then begin pole[H,W]:=H*W; Form1.ShowPole; r:=MessageDlg('Цель ...


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... 1]:=1; target[indexBtnNextClick,2]:=-1; end else if RadioButtonEven.Checked then begin target[indexBtnNextClick,1]:=-1; target[indexBtnNextClick,2]:=1 ...
... Font.Color:=clWindowText; BtnNext.Caption:='finished'; LabelInput.Font.Color:=clRed; LabelInput.Visible:=True; end else begin BtnNext.Caption:='next' ...


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... Roots.Cells[Succ(ACol),ARow]:=FloatToStr(- StrToFloat(Value)); if StrToFloat (Value) = 0 then StringGrid_Roots.Cells [Succ(ACol),ARow] := FloatToStr(0 ...
... TMatrix.SetSingle; var i: Word; begin if FCols <> FRows then Raise EMatrixOperatingError.Create ('Единичная матрица должна быть '+ 'квадратной') else ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... X, Y: Integer); begin if Button=mbLeft then begin MyIO.FormMouseDown( X, Y); if (MyIO.State=msMove)then if MyIO.FirstPointActive then Cursor ...
... MyDraw.SetActive(Te); if State=msDelete then RemovePoint(Te); Exit; end; if not flag then begin if FSnapToGrid then IONewPoint(StepRound(x,GrigStep) ...