Как в pascal abc нарисовать танк командами вот пример танка.
Program Tank
uses Drawman
begin
Field (15,15)
ToPoint
Program Tank
uses Drawman
begin
Field (15,15)
ToPoint
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses Drawman;
begin
Field(20, 20);
ToPoint(8, 15);
PenDown;
ToPoint(8, 16);
ToPoint(11, 16);
ToPoint(11, 15);
PenUp;
ToPoint(12, 12);
PenDown;
ToPoint(12, 15);
ToPoint(7, 15);
ToPoint(7, 12);
PenUp;
ToPoint(15, 9);
PenDown;
ToPoint(17, 9);
ToPoint(17, 12);
ToPoint(2, 12);
ToPoint(2, 9);
ToPoint(15, 9);
ToPoint(16, 8);
ToPoint(16, 7);
ToPoint(15, 6);
ToPoint(14, 6);
ToPoint(13, 7);
ToPoint(13, 8);
ToPoint(14, 9);
PenUp;
ToPoint(13, 8);
PenDown;
ToPoint(12, 9);
PenUp;
ToPoint(11, 9);
PenDown;
ToPoint(10, 8);
ToPoint(10, 7);
ToPoint(11, 6);
ToPoint(12, 6);
ToPoint(13, 7);
PenUp;
ToPoint(7, 9);
PenDown;
ToPoint(6, 8);
ToPoint(6, 7);
ToPoint(7, 6);
ToPoint(8, 6);
ToPoint(9, 7);
ToPoint(9, 8);
ToPoint(8, 9);
PenUp;
ToPoint(6, 8);
PenDown;
ToPoint(5, 9);
PenUp;
ToPoint(4, 9);
PenDown;
ToPoint(3, 8);
ToPoint(3, 7);
ToPoint(4, 6);
ToPoint(5, 6);
ToPoint(6, 7);
PenUp;
ToPoint(7, 13);
PenDown;
ToPoint(1, 15);
ToPoint(1, 16);
ToPoint(7, 14);
PenUp;
ToPoint(0, 0);
end.