Pascal ABC.Помогите.Нужно нарисовать елку в Pascal ABC

Question

Pascal ABC.
Помогите.
Нужно нарисовать елку в Pascal ABC

Answer 1

Uses drawman;
begin

Field(24,32);ToPoint(10,4);PenDown;ToPoint(10,1);ToPoint(14,1);ToPoint(14,4);ToPoint(22,4);ToPoint(16,14);ToPoint(20,14);ToPoint(15,22);ToPoint(18,22);ToPoint(12,31);ToPoint(6,22);ToPoint(9,22);ToPoint(4,14);ToPoint(8,14);ToPoint(2,4);ToPoint(14,4);PenUp;ToPoint(10,11);PenDown;ToPoint(10,10);ToPoint(9,10);ToPoint(8,9);ToPoint(8,7);ToPoint(9,6);ToPoint(11,6);ToPoint(12,7);ToPoint(12,9);ToPoint(11,10);ToPoint(10,10);PenUp;ToPoint(9,19);PenDown;ToPoint(9,18);ToPoint(8,17);ToPoint(9,16);ToPoint(10,17);ToPoint(9,18);PenUp;ToPoint(15,12);PenDown;ToPoint(15,11);ToPoint(14,11);ToPoint(14,9);ToPoint(16,9);ToPoint(16,11);ToPoint(15,11);PenUp;ToPoint(14,21);PenDown;ToPoint(14,20);ToPoint(13,19);ToPoint(14,18);ToPoint(15,19);ToPoint(14,20);PenUp;ToPoint(12,27);PenDown;ToPoint(12,26);ToPoint(11,25);ToPoint(11,24);ToPoint(13,24);ToPoint(13,25);ToPoint(12,26);PenUp;ToPoint(0,0);

end.

Comments

Спасибо но не так мне надо вот так например нарисовать.
program dsd;
uses graphABC;
var i:integer;
begin
For i:=1 to 100 do
begin
Line(100-i,i,100+i,i);
Line(100-i,i+100,100+i,i+100);
end;
end.

---

почему не писал, что графом, а не чертежником?

---

Да мне чертежником не надо.Препод сказал графом

---

Pascal ABC.Помогите.Нужно нарисовать елку в Pascal ABC
Pascal ABC.
Помогите.
Нужно нарисовать елку в Pascal ABC

---

Вот твой текст

---

Ага

---

Большое спасибо.Но блин чертежником не пойдет(