Получить векторное представлкние всех десятичных - вопрос №5227045 от AliAlinka2006 05.10.2022 23:25

Question

Информатика: Получить векторное представлкние всех десятичных цифр в стандарте почтового индекса ( как пишут на конвертах) цифры от 0 до 9 , я вас умоляю, я честно не знаю как это делать, мозг уже сломала вас, я выберу вас лучшим ответам если !

AliAlinka2006 · Answer

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC;
begin
Pen.Width:=3;
// 0
DrawRectangle(20,20,70,120);
// 1
Line(90,70,140,20);
Line(140,20,140,120);
// 2
MoveTo(160,20);
LineTo(210,20);
LineTo(210,70);
LineTo(160,120);
LineTo(210,120);
// 3
MoveTo(230,20);
LineTo(280,20);
LineTo(230,70);
LineTo(280,70);
LineTo(230,120);
// 4
MoveTo(300,20);
LineTo(300,70);
LineTo(350,70);
Line(350,20,350,120);
// 5
MoveTo(70,140);
LineTo(20,140);
LineTo(20,190);
LineTo(70,190);
LineTo(70,240);
LineTo(20,240);
// 6
Line(90,190,140,140);
DrawRectangle(90,190,140,240);
// 7
MoveTo(160,140);
LineTo(210,140);
LineTo(160,190);
LineTo(160,240);
// 8
DrawRectangle(230,140,280,240);
Line(230,190,280,190);
// 9
DrawRectangle(300,140,350,190);
Line(350,190,300,240)
end.

Получить векторное представлкние всех десятичных цифр в стандарте почтового индекса ( как пишут на к

Получить векторное представлкние всех десятичных цифр в стандарте почтового индекса ( как пишут на к