Question

Используя вспомогательные алгоритмы нарисовать запрограммируйте рисование следующих фигур

Answer 1

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses drawman;

begin 
// поле 5 на 20 
Field(20, 5); 
// 1 
ToPoint(1, 2); 
PenDown; 
OnVector(1, 0); 
Onvector(0, 1); 
OnVector(1, 0); 
Onvector(0, -1); 
OnVector(1, 0); 
Onvector(0, 1); 
OnVector(1, 0); 
Onvector(0, -1); 
OnVector(1, 0); 
PenUp; 
//2 
ToPoint(7, 2); 
PenDown; 
Onvector(0, 1); 
OnVector(1, 0); 
OnVector(0, 1); 
OnVector(1, 0); 
OnVector(0, -1); 
Onvector(1, 0); 
OnVector(0, -1); 
OnVector(-1, 0); 
OnVector(0, -1); 
OnVector(-1, 0); 
OnVector(0, 1); 
OnVector(-1, 0); 
PenUp; 
//3 
ToPoint(11, 4); 
PenDown; 
OnVector(0, -2); 
OnVector(0, 1); 
OnVector(1, 0); 
OnVector(0, 1); 
OnVector(0, -2); 
PenUp; 
//4 
ToPoint(13, 4); 
PenDown; 
OnVector(0, -2); 
OnVector(1, 0); 
OnVector(0, 2); 
OnVector(-1, 0); 
PenUp; 
//5 
ToPoint(16, 4); 
PenDown; 
OnVector(-1, 0); 
OnVector(0, -2); 
OnVector(1, 0); 
PenUp; 
//6 
ToPoint(17, 1); 
PenDown; 
OnVector(0, 1); 
OnVector(1, 0); 
OnVector(0, 1); 
OnVector(1, 0); 
OnVector(0, 1); 
OnVector(1, 0);
end.