Похожие работы на «Программная система обработки и анализа изображений»

Программная система обработки и анализа изображений
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... if Image.Canvas.Pixels[x,y] <> clWhite then Inc(Count); end; { for x } end; { for y } x1 := x1+dx; { Следующий квадрат по горизонтали } end; { for j ...
... Canvas.Pixels[x,y] <> clWhite then Inc(BlackCnt); end; { for x } end; { for y } {-} TotCnt := dx*dy; P := BlackCnt/TotCnt; { Плотность пикселов в ...


SCADA системы
Программирование и комп-ры, SCADA системы , Работа Экзаменационная ... begin with nidata do begin cbSize := SizeOf(TNotifyIconData); Wnd := Self.Handle; uID := 1; end; Shell_NotifyIcon(NIM_DELETE, @nidata); end; Работа ...
... 5*(xsin-20*trunc(xsin/20))); //пилообразный сигнал asm mov dx,379h in al,dx and al,80h mov LPTbyte,al end; DDEItem200.Text:=inttostr(LPTbyte*100) ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... col] <> i then begin Finish:=False; break; end; if col < 4 then inc(col) else begin col :=1; inc(row); end; end; end; procedure TForm1.Formmas; var i, ...
... 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('Цель ...


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... 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:='Хорошо ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... 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; ...


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... next'; end; end; //*MAIN* if (indexBtnNextClick)=numberpatterns then begin repeat stop:=false; for m := 1 to numberpatterns do begin for i := 1 to ...
... Font.Color:=clWindowText; BtnNext.Caption:='finished'; LabelInput.Font.Color:=clRed; LabelInput.Visible:=True; end else begin BtnNext.Caption:='next' ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... 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] ...


Операции многократной точности (операции с длинными числами) [нестрогое соответствие]
Программирование и комп-ры, Операции многократной точности (операции с длинными числами) , Работа Курсовая ... если а>b, то сравнение=1 если аla then sravnenie:=-1; if lbb[i] then begin sravnenie:=1; exit; end; if a[i]'-')) then begin zzz:=true; b:=copy(b,2,300 ...
... rab:='-'+rab; delen:=rab; if ((rab='-')or(rab=''))then delen:='0'; end; function po_ch_num(ch:string;var znach:string):boolean; var bol:boolean; i: ...


Взаимодействие основных частей ЭВМ при выполнении программы [нестрогое соответствие]
Программирование и комп-ры, Взаимодействие основных частей ЭВМ при выполнении программы, Курсовая Char; | |N: Byte; | |begin | |ClearDevice; | |MainWin; | |N := 0; | ... | ArrowsAndEsc := [Back, Next, F1, Esc]; | |repeat | |ExtentedKey := False; ...
... I: Integer; | |begin | |DX := 1; | |DY := 1; | |SetColor(Green); | |if D < 0 then | |begin | |DX := -1; | |DY := -1; | |end; | |case XY of | |1: DY ...


База данных Бюро знакомств [нестрогое соответствие]
Программирование и комп-ры, База данных Бюро знакомств, Курсовая ... SaveDialog1.Execute then memo1.Lines.SaveToFile(SaveDialog1.FileName);//Открываем окно диалога сохранения файла и сохраняем текстовую область Memo1 в ...
... OpenDialog1.Execute then memo1.Lines.LoadFromFile(OpenDialog1.FileName);//Открываем окно диалога открытия файла и заполняем текстовую область Memo1 из ...