Похожие работы на «Закраска гранично-заданной области с затравкой, Машинная графика, C++ Builder 4.0»
Закраска гранично-заданной области с затравкой, Машинная графика, C++ Builder 4.0
Программирование и комп-ры, Закраска гранично-заданной области с затравкой, Машинная графика, C++ Builder 4.0, Курсовая
... tx][ty]=kraska; tx=tx-1; if (tx<=0) break; if (ty<=0) break; if (tx>420) break; if (ty>420) break; } tx=tx+1; if(Form1->PaintBox1->Canvas->Pixels[tx-1 ...
... y=ty; } tx=tx+1; while(((Form1->PaintBox1->Canvas- >Pixels[tx][ty]==bcolor)|| (Form1->PaintBox1->Canvas- >Pixels[tx][ty]==kraska))&&(txxl)) {tx=tx+1; ...
Алгоритм компактного хранения и решения СЛАУ высокого порядка
[нестрогое соответствие]
Математика, Алгоритм компактного хранения и решения СЛАУ высокого порядка , Рефераты
... FE[Current][4] - 1] = tz; if (fabs((tx = 0.5*(X[FE[Current][2] - 1] + X[FE[Current][1] - 1])) - X[FE[Current][5] - 1]) > Eps) X[FE[Current][5] - 1] ...
... X[FE[Current][3] - 1] + X[FE[Current][2] - 1])) - X[FE[Current][9] - 1]) > Eps) X[FE[Current][9] - 1] = tx; if (fabs((ty = 0.5*(Y[FE[Current][3] - 1] ...
Исследование и моделирование с помощью компьютера электрических полей
[нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат
... Inc(I,25); end; I:=0; While (I<=Form1.Height) and (I<1201) do begin Form1.Canvas.MoveTo(0,I); Form1.Canvas.LineTo(Form1.Width,I); Inc(I,25); end; End; ...
... 0 then Exit; Form1.Canvas.Pen.Color:=clWhite; If Qc[X,Y]>0 then Form1.Canvas.Brush.Color:=clRed else Form1.Canvas.Brush.Color:=clBlue; Circle(X*25+13, ...
Трехмерная компьютерная графика
[нестрогое соответствие]
Программирование и комп-ры, Трехмерная компьютерная графика, Курсовая
... x основной цикл for i = 1 to (x Plot ( x ,y ) While ( [pic] ( 0 ) If Обмен = 1 then x = x + s1 else y = y + s2 end if [pic] = [pic] ( 2 * (x end while ...
... 0 then Флаг = 1 x = x + 1 end while помещаем в стек крайний справа пиксел if Флаг =1 then if ( x = Xправ and Пиксел ( x, y ) ( Гран_значение and ...
Разработка программного обеспечения
[нестрогое соответствие]
Программирование и комп-ры, Разработка программного обеспечения, Диплом
... NEXT maxy:=kontur[4] maxx:=kontur[3] tx[5])*(maxy-tx[5])))<(((maxx-tx[4])*(maxx-tx[4]))+((maxy- tx[5])*(maxy-ty[5])))}) tx[4])+kwad(tx[5]))>(kwad(maxx ...
... AND. c1<>0 .AND. c20 //определения конца области endc2=c1 //поиска в пределах текущего ELSE //компонента endc2=65001 ENDIF IF c3<>0 //определ.стороны ...
Нахождение кратчайшего пути
[нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая
... then Cursor := crMyCursor else begin Repaint; Cursor := crDefault; end; end else MyIO.MakeLine(X, Y); end; procedure TForm1.FormCreate(Sender:
... msLining then begin MyData.Rebro(ActivePoint,i); if AutoLength then begin V1:=MyDraw.FindByNumber(ActivePoint); V2:=MyDraw.FindByNumber(i); MyData. ...
Задача остовных деревьев в k-связном графе
[нестрогое соответствие]
Математика, Задача остовных деревьев в k-связном графе , Диплом и связанное с ним
... не менее двух общих вершин, то граф G1[pic]G2 также 2-связен; 3) если граф G 2-связен и Р-простая цепь, соединяющая две его вершины, то граф G[pic]P ...
... b then begin Canvas.Brush.Color := clRed; canvas.Ellipse(x-10,y-10,x+10,y+10); inc(i); canvas.TextOut(x-3,y-6,inttostr(i)); Data[i].x1:=x;Data[i].y1: ...
Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости
[нестрогое соответствие]
Математика, Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости, Курсовая
... Pen.Color :=clGreen; if sn<>nil then begin t:=sn; x:=x0+Trunc(t^.x*mx); y:=y0+Trunc(t^.y*my); Canvas.MoveTo(x,y); while t<>nil do begin x:=x0+Trunc(t^ ...
... x-p^.x)*(m^.y-p^.y)<(m^.x-p^.x)*(m^.p^.y-p^.y)); fn:=((n^.n^.x-p^.x)*(n^.y-p^.y)>(n^.x-p^.x)*(n^.n^.y-p^.y)) or ((n^.p^.x-p^.x)*(n^.y-p^.y)<(n^.x-p^.x ...
Программа распознавания символов
[нестрогое соответствие]
Программирование и комп-ры, Программа распознавания символов, Контрольная
... 1 < Image1->Picture->Bitmap->Width) { Summ += NextLine[J + 1]; } } if ((int)(Summ / 9) <= Value) CurrentLine[J] = (Byte) Summ / 9; } } Image1->Visible ...
... Height)) { X++; goto FindedLabel; } // Если прошли до самого правого края, расширяем границы поиска до низа if (X + 1 == FromImage->Width) { X
VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования
[нестрогое соответствие]
Программирование и комп-ры, VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования , Рефераты
... соответстующего потомка. xmid = (xmax + xmin) / 2 ymid = (ymax + ymin) / 2 If X <= xmid Then If Y <= ymid Then Set LocateLeaf = NWchild.LocateLeaf( ...
... new_dist Then best_dist = new_dist Set best_item = new_item End If Exit Sub End If ' Найти потомков, которые удалены не больше, чем на best_dist ' от ...
