четверг, 3 декабря 2009 г.

функция рисования треугольника

функция рисования треугольника

program triangle;

Uses GraphABC;

procedure drawTriangle(x1, y1, x2, y2, x3, y3: integer);
begin
     moveto(x1, y1);
     lineto(x2, y2);
     lineto(x3, y3);
     lineto(x1, y1);
end;

begin
     drawTriangle(10, 10, 20, 100, 100, 40);
end.

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

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