Код программы.
procedure TForm1.Button1Click(Sender: TObject);var ax, ay, bx, by, cx, cy:integer;
begin
ax:= StrtoInt(Edit1.Text);
ay:= StrtoInt(Edit2.Text);
bx:= StrtoInt(Edit3.Text);
by:= StrtoInt(Edit4.Text);
cx:= StrtoInt(Edit5.Text);
cy:= StrtoInt(Edit6.Text);
Image1.Canvas.Rectangle(0, 0, 500, 500);
Image1.Canvas.MoveTo(ax,ay);
Image1.Canvas.pen.Color := clblue;
Image1.Canvas.LineTo(bx,by);
Image1.Canvas.pen.Color := clred;
Image1.Canvas.LineTo(cx,cy);
Image1.Canvas.pen.Color := clgreen;
Image1.Canvas.LineTo(ax,ay);
end;
Интерфейс.
Блок-схема.
Комментариев нет:
Отправить комментарий