daur1996
Спасибо но не так мне надо вот так например нарисовать. 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.
blowberryninja
почему не писал, что графом, а не чертежником?
daur1996
Да мне чертежником не надо.Препод сказал графом
blowberryninja
Pascal ABC.Помогите.Нужно нарисовать елку в Pascal ABC Pascal ABC. Помогите. Нужно нарисовать елку в Pascal ABC
Answers & Comments
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.
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