Question

Помогите, пожалуйста))
PascalABC. Составьте программу рисования ряда треугольников с использованием процедуры Triangle.

Answer 1

uses GraphABC;

var

 i, tmp: integer;

procedure Triangle(x, y, x2, y2, x3, y3: integer);

begin

 line(x, y, x2, y2);

 line(x2, y2, x3, y3);

 line(x3, y3, x, y);

end;

begin

 SetWindowSize(600, 300);

 for i := 0 to 5 do

 begin

   tmp := i * 100;

   Triangle(0 + tmp, 200, 50 + tmo, 100, 100 + tmp, 200);

 end;

end.