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

0 голосов
210 просмотров

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


image

Информатика (14 баллов) | 210 просмотров
Дан 1 ответ
0 голосов

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.

(3.7k баллов)