Вопрос по информатике:
Pascal ABC.
Помогите.
Нужно нарисовать елку в Pascal ABC
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.08.2018 02:06
- Информатика
- remove_red_eye 5214
- thumb_up 85
Ответы и объяснения 1
Uses drawman;
begin
Field(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.
- 04.08.2018 06:55
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.