Я впервые узнал про этот модуль в паскале и решил попробовать, так как я многого в нем не знаю, а от части вообще ничего о нем не слышал, так что не знаю особенностей построения рисунка, и вот что получилось
uses Drawman;
begin
Field(20,20);
ToPoint(5,2);
PenDown;
ToPoint(15,2);
ToPoint(15,10);
ToPoint(5,10);
PenUp;
ToPoint(3,10);
ToPoint(17,10);
ToPoint(10,15);
ToPoint(6,9);
ToPoint(9,9);
ToPoint(9,6);
ToPoint(6,6);
ToPoint(14,2);
ToPoint(14,8);
ToPoint(10,8);
ToPoint(10,2);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Я впервые узнал про этот модуль в паскале и решил попробовать, так как я многого в нем не знаю, а от части вообще ничего о нем не слышал, так что не знаю особенностей построения рисунка, и вот что получилось
uses Drawman;
begin
Field(20,20);
ToPoint(5,2);
PenDown;
ToPoint(15,2);
ToPoint(15,10);
ToPoint(5,10);
ToPoint(5,2);
PenUp;
ToPoint(3,10);
PenDown;
ToPoint(17,10);
ToPoint(10,15);
ToPoint(3,10);
PenUp;
ToPoint(6,9);
PenDown;
ToPoint(9,9);
ToPoint(9,6);
ToPoint(6,6);
ToPoint(6,9);
PenUp;
ToPoint(14,2);
PenDown;
ToPoint(14,8);
ToPoint(10,8);
ToPoint(10,2);
end.