Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров
Программирование и комп-ры, Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров, Контрольная
... PrevisionLine^[J]; if J + 1 < Image1.Picture.Bitmap.Width then begin Summ := Summ + PrevisionLine^[J + 1]; end; end; if J > 0 then begin Summ := Summ ...
... J]; if J + 1 < Image1.Picture.Bitmap.Width then begin Summ := Summ + NextLine^[J + 1]; end; end; if (Summ div 9) <= Value then CurrentLine^[J] := Summ ...
Программа Клон
[нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая
... Возвращение рисунка для синих фишек 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 ...
... При нажатии активна красная (правая клавиша) if hod=false then BEGIN if a[i,j]=2 then begin if button=mbright then begin image2.Canvas.StretchDraw(b[i ...
Нейтрофилы
[нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты
... 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; end; if
... 0; for i:=1 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] ...
Нахождение кратчайшего пути
[нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая
... 1 to MyData.Dimension do if MyData.Matrix[Num,j]=1 then begin N:=MyDraw.FindByNumber(j); PolyLine([MPenPos,N]); end; end;} MyData.Remove(Num); MyDraw. ...
... for i:=Num to Dimension-1 do for j:=1 to Dimension do begin Matrix[j,i]:=Matrix[j,i+1]; MatrixLength[j,i]:=MatrixLength[j,i+1]; end; for i:=Num to ...
Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе
[нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая
... из структурной матрицы.} procedure MGSS; begin for s:=1 to n do begin i:=s;j:=s; while i<=n do begin while j<=m do begin if STM[i,j]<>0 then begin p
... j;i:=n;j:=m end;j:=j+1 end;i:=i+1 end; if p>s then for j:=1 to m do begin PR[j]:=STM[s,j]; STM[s,j]:=STM[p,j]; STM[p,j]:=PR[j] end; if g<>s then begin ...
Программная система обработки и анализа изображений
[нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая
... TMainForm.DefGradient(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 ...
... 2*dx else Range := dx; { Сканируем внутри квадрата по y } for y := y1 to y1+Range do begin { Сканируем внутри квадрата по x } for x := x1 to x1+Range ...
Разработка программы психотестирования
[нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая
... f:file of TResult; r:tresult; begin inc(defque); if defque=testnum then begin assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f ...
... for i:=spinedit1.value to testnum-1 do test[i]:=test[i+1]; dec(testnum); spinedit1change(sender); statictext1.Caption:='Всего вопросов '+inttostr( ...
Программа эмуляции развития популяций животных
[нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат
... i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin hr[j].done; hr[j].init
... until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0,0,0) ...
Программа эмуляции развития популяций животных
[нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных,
... if x1=0 then begin for i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin ...
... key:=true; break; end; end; if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} ...
Автоматизированная система распределения мест и оценок качества олимпиадных заданий
[нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним
... AddXY(GrPar[i],GrPercent[i]); end; end; if Sender=N21 then begin for j:=1 to Query1.RecordCount do begin parm[j]:=Query1.FieldValues['PARAM2']; Query1 ...
... with AddFieldDef do begin Name := 'MARK2'; DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; ...