72

Pascal ABC. Помогите. Нужно нарисовать елку в Pascal ABC

09 февраля 2023

Pascal ABC. Помогите. Нужно нарисовать елку в Pascal ABC

категория: информатика



42

Uses drawman; beginField (24,32); ToPoint (10,4); PenDown; ToPoint (10,1); ToPoint (14,1); ToPoint (14,4); ToPoint (22,4); ToPoint (16,14); ToPoint (20,14); ToPoint (15,22); ToPoint (18,22); ToPoint (12,31); ToPoint (6,22); ToPoint (9,22); ToPoint (4,14); ToPoint (8,14); ToPoint (2,4); ToPoint (14,4); PenUp; ToPoint (10,11); PenDown; ToPoint (10,10); ToPoint (9,10); ToPoint (8,9); ToPoint (8,7); ToPoint (9,6); ToPoint (11,6); ToPoint (12,7); ToPoint (12,9); ToPoint (11,10); ToPoint (10,10); PenUp; ToPoint (9,19); PenDown; ToPoint (9,18); ToPoint (8,17); ToPoint (9,16); ToPoint (10,17); ToPoint (9,18); PenUp; ToPoint (15,12); PenDown; ToPoint (15,11); ToPoint (14,11); ToPoint (14,9); ToPoint (16,9); ToPoint (16,11); ToPoint (15,11); PenUp; ToPoint (14,21); PenDown; ToPoint (14,20); ToPoint (13,19); ToPoint (14,18); ToPoint (15,19); ToPoint (14,20); PenUp; ToPoint (12,27); PenDown; ToPoint (12,26); ToPoint (11,25); ToPoint (11,24); ToPoint (13,24); ToPoint (13,25); ToPoint (12,26); PenUp; ToPoint (0,0); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...