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

Программа распознавания символов
Программирование и комп-ры, Программа распознавания символов, Контрольная ... if (B < 255) { Direct = North; cY--; Line = (Byte*)FromImage->ScanLine[cY]; // Может это самая верхняя точка? if (TopPoint.Y > cY) { TopPoint.Y = cY
... if (B < 255) { Direct = South; cY++; Line = (Byte*)FromImage->ScanLine[cY]; if (MaxY < cY) MaxY = cY; } // Иначе поворачиваем "направо" else { Direct ...


Алгоритмы выделения контуров [нестрогое соответствие]
Программирование и комп-ры, Алгоритмы выделения контуров, Контрольная ... cY]; ToLine[cX] = 0; Direct = North; cY--; Line = (Byte*)FromImage->ScanLine[cY]; } // Иначе поворачиваем "направо" else { Direct = South; cY++; Line ...
... cY]; ToLine[cX] = 0; Direct = South; cY++; Line = (Byte*)FromImage->ScanLine[cY]; } // Иначе поворачиваем "направо" else { Direct = North; cY--; Line ...


Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров [нестрогое соответствие]
Программирование и комп-ры, Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров, Контрольная ... 0 then begin Summ := Summ + CurrentLine^[J - 1]; end; Summ := Summ + CurrentLine^[J]; if J + 1 < Image1.Picture.Bitmap.Width then begin Summ := Summ ...
... Height then begin NextLine := Image1.Picture.Bitmap.ScanLine[I + 1]; if J > 0 then begin Summ := Summ + NextLine^[J - 1]; end; Summ := Summ + NextLine ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... vj]:=0; image2.Canvas.StretchDraw(b[vi,vj],image5.picture.bitmap); image2.Canvas.StretchDraw(b[i,j],image1.picture.bitmap); a[i,j]:=1; vi:=255;vj:=255 ...
... do begin b[i,j].Left:=i*(image1.Width); b[i,j].top:=j*(image1.Height); b[i,j].Bottom:=b[i,j].Top+image1.Height; b[i,j].Right:=b[i,j].Left+image1.Width ...


Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 [нестрогое соответствие]
Программирование и комп-ры, Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 , Рефераты ... 8 бит по 768х576 pics), а по сигналам R-Y и B-Y кодируется либо половина (8 бит по 384х288 pics), либо четверть (8 бит по 192х144 pics) для каждого из ...
... fil); return;} ud = h_data(w); uhc = (char*)&p[256+128]; if(uhc[249] != 2-ud->ps) return; if(ud->scale2d == 1) { pp = h_malloc(nx*4); pq = h_malloc(nx ...


Алгоритм компактного хранения и решения СЛАУ высокого порядка [нестрогое соответствие]
Математика, Алгоритм компактного хранения и решения СЛАУ высокого порядка , Рефераты ... X[FE[i][cData[j][6]]]; cy = Y[FE[i][cData[j][6]]]; cz = Z[FE[i][cData[j][6]]]; } else { cx = X[FE[i][cData[j][4]]]; cy = Y[FE[i][cData[j][4]]]; cz = Z ...
... x1 = X[FE[i][cData[j][0]]]; y1 = Y[FE[i][cData[j][0]]]; z1 = Z[FE[i][cData[j][0]]]; x2 = X[FE[i][cData[j][1]]]; y2 = Y[FE[i][cData[j][1]]]; z2 = Z[FE[ ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... readkey; wri_val(manual[j],j,true); case a of rightarrow, downarrow : j:=j+1; leftarrow, uparrow : j:=j-1; end; if j>10 then j:=10; if j<0 then j:=0; ...
... to 30 do with cell[i] do begin for j:=2 to 100 do begin z:=round(sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j- 1]))); shift[z]:=shift[z]+1 ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... st) mod 60); end; procedure writedat(b:dat); begin write(b.time div 60,':',b.time mod 60,' ',b.day,'.',b.month,'.',b.year,' ',Rweek[b.dweek]); end; ...
... 1440)) mod 1440; delay:=(delay div 1440)+((a.time+(delay mod 1440)) div 1440); while delay+b.day>DayInMonth(b.month,b.year) do begin delay:=delay-1- ...


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


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... T (правила 2 и 3) T > J | T^J (правила 4 и 5) J > (B) | p (правила 6 и 7) Видно, что эта грамматика является грамматикой операторного предшествования.
... Символ |Шаг 1 (начало построения) |Последний шаг (результат) | |(U) |L(U) |R| |L(U) |R(U) | ... | |U| | ... | |J |( p |)| |( p |) p | | | |p| | | | |T ...