Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
sobik21
08.09.2022 20:07 •
Информатика
Мне задали нарисовать елку с елочными игрушками в паскале, !
Ответ:
Isabekov1
07.09.2020 13:27
Program HappyNewYear;
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kjgftgv
30.11.2021 10:39
Дано 3 числа, расположить их в порядке возрастания(в паскале)...
mlkalxa78
30.11.2021 10:39
Мне надо в free pascal сделать так что бы весь текст был белый (автоматический) и только одна строчка выделена в красный, как правильно прописать команду textcolor?...
dduma030
27.10.2020 03:19
Вотеле имеется два вида номеров: люкс и полулюкс. среди них 36 номеров люкс. сообщеине о том, что отдыхающего поселили в полулюкс, несет 4 бита информации . сколько всего...
AnVe
27.10.2020 03:19
На клумбе росло 32 тюльпана. сколько информации несет сообщеине о том, что один тюльпан был сорван ? всем за )...
HiКАK
04.02.2023 07:31
Вчем разница между одноранговой сетью и сетью с выделенным сервером...
katya2007
18.11.2020 09:21
В треугольнике DEP (p=90°) pk высота. Найдите гипотенузу DE если PE 16 см а KE 8 см с решением 7 класса...
помоги269
09.01.2021 18:25
решить, если можно с объяснением ...
хорошист547
16.04.2023 20:39
Музыка и поэзия проект напишите ...
Aisezim2002
02.01.2021 14:21
Найдите неизвестное 2 1/3 + x = 9,45 x - 17,6 = 4 1/3...
xato2003
01.01.2021 09:16
терриконы размываются дождевой водой и вредные вещества попадают в естественные водоемы это оказывает влияния на...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.