Можете помочь нарисовать рисунок в Pascal ABC. ОЧЕНЬ СРОЧНО
Answers & Comments
Giammy uses DrawMan; var i:integer; begin Field(22,14); for i:=1 to 4 do begin ToPoint(6,7+i); PenDown; OnVector(5,-5); OnVector(5,5); OnVector(i,-i); OnVector(-i,-i); OnVector(-5,5); OnVector(-5,-5); OnVector(-i,i); OnVector(i,i); PenUp; end; end.
Answers & Comments
uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
PenDown;
OnVector(5,-5);
OnVector(5,5);
OnVector(i,-i);
OnVector(-i,-i);
OnVector(-5,5);
OnVector(-5,-5);
OnVector(-i,i);
OnVector(i,i);
PenUp;
end;
end.