Срочно информатикаЧерез Uses GRAPHabc

Question

Срочно информатикаЧерез Uses GRAPHabc

---

Comments

изи)

---

ща будет)

---

Жду

---

Ну

---

я тут заметил процедуру triangle

---

и остановился...

---

что-то я с ней не встречался

---

могу линиями,вхвх)

Answer 1

uses graphabc;

var i: integer;

procedure Triangle(x1, y1, x2, y2, x3, y3: integer);

begin

 line(x1, y1, x2, y2);  

 line(x2, y2, x3, y3);  

 line(x3, y3, x1, y1)

end;

begin

 setwindowsize(600, 300);

 for i := 0 to 5 do

   Triangle(0 + i * 100, 200, 50 + i * 100, 100, 100 + i * 100, 200);

end.