четверг, 14 октября 2010 г.

лабораторная работа № 2

 Код программы.
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;       

     Интерфейс.





Блок-схема.


Комментариев нет:

Отправить комментарий