Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
PomoshnikYa
10.01.2023 12:17 •
Информатика
Как можно нарисовать петуха в паскале
Показать ответ
Ответ:
tanyamonter
06.10.2020 05:43
Uses Graphabc;
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
silvia16
04.03.2023 21:17
Вычислить значение арифметического выражения, записанного на языке Фортран (при необходимости округлив результат до сотых), и указать тип результата а)sqrt(25.)+3*2**2/661-35/7=...
egorilin1626hdhudn
26.12.2021 12:25
Ребят . Вот такие задания. Надеюсь, кто-нибудь Задача 1: Изба-пятистенка Изба-пятистенка или пятистенок — жилая деревянная прямоугольная постройка, разделенная внутренней...
ks441934
19.06.2021 02:31
Изба-пятистенка или пятистенок — жилая деревянная прямоугольная постройка, разделенная внутренней поперечной стеной на две неравные части: избу (горницу) и сени. Пятая...
верадубовая2007
01.02.2020 10:43
Площадь параллелограмма с углом 60° равна 210√3, а периметр — 88. найдите диагонали параллелограмма....
Ухв
01.02.2020 10:43
Перечислите черты жанра в легенде об арионе . завтра экзамен...
anton20063
01.02.2020 10:43
20+(7 1/3-6 3/8): 3/4-(5 1/4-4 21/40): 1 9/20×112 нужно решение и ответ...
Carroty13
01.02.2020 10:43
Условие и решение 90 кг мандаринов, уложенных в ящики по 6 кг в каждой,развезли в два магазина в первый магазин 10 ящиков сколько ящиков с мандаринами во второй магазин...
кря201
01.02.2020 10:43
Какие 3 причины возникновения кочевова скотоводства?...
Weronika2017
01.02.2020 10:43
Вычислите координаты вершины пораболы y=x²-10x+5....
tanyaprokudina
01.02.2020 10:43
Первое число = 1,44 что составляет 40 % второго числа найдите произведение первого и второго числа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.