Задание:Точки в треугольнике.Треугольник должен,именно рисоваться точками ,а не линиями.Задание:Точки в треугольнике.Треугольник должен,именно рисоваться точками ,а не линиями.Подскажите,пожайлуста.
Как программировать?
Учим по книжке функции дельфи, переменные, и т. д.
Далее программируем.
В противном случае, курс прослушали в зачетке.
На форму ложим Image1.
В процедуре назначаем координаты точек и вызываем рисование линий 3 раза:
procedure TForm1.Button1Click(Sender: TObject);
procedure pLine(X1, Y1, X2, Y2 : Integer; C : tColor); { процедура рисования линии }
var D : Integer; Dx, Dy, tX, tY : Real;
begin
if Abs(X2 - X1) > Abs(Y2 - Y1) then D := Abs(X2 - X1) else D := Abs(Y2 - Y1);
Dx := (X2 - X1) / D;
Dy := (Y2 - Y1) / D;
tX := X1; tY := Y1;
Image1.Canvas.Pixels[X1, Y1] := C;
repeat
tX := tX + Dx;
tY := tY + Dy;
X1 := Round(tX);
Y1 := Round(tY);
Image1.Canvas.Pixels[X1, Y1] := C;
Dec(D);
until D = 0;
end;
var
A, B, C : tPoint;
begin
A.X := 100; A.Y := 100;
B.X := 200; B.Y := 300;
C.X := 300; C.Y := 200;
Image1.Canvas.Brush.Color := $FFFFFF;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
pLine(A.X, A.Y, B.X, B.Y, $000000);
pLine(A.X, A.Y, C.X, C.Y, $000000);
pLine(B.X, B.Y, C.X, C.Y, $000000);
end;
У меня получилось вот так:
⇢