Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alinabugajcuk38
26.02.2023 07:06 •
Информатика
Как нарисовать оленя в pascal abc ?
Показать ответ
Ответ:
sasharsm
06.10.2020 05:06
Uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.
Эта
0,0
(0 оценок)
Популярные вопросы: Информатика
tupoeMango
19.09.2020 00:29
ПАСКАЛЬ1) Создать свою программу с процедурой без параметров. Процедура должна использовать две локальные переменные любого разного типа (integer, real и т.д.) и три глобальные...
АэлинкаМалинка
19.09.2020 00:29
Написать два варианта программы с использованием процедуры и функции Даны действительные числа а1, ..., аN, b1,..., bm. В последовательности а1, ..., аN в последовательности...
plisetskayakatoy4che
18.01.2023 06:43
Одномерный массив, блок схема. Отрицательные элементы заменить максимальным элементом...
rustamzade2018
13.09.2021 08:55
Ща сколько минут скачается фаил если надо скачать 1 гб а скорость скачивания 900кб...
Vыдыhaй1235
16.07.2022 04:28
А УРН Р 2 Дайте ответу на во Какие свойства имеет объект текстового документа символ? Какие значения они могут приобретать? 2 . Какими средствами текстового процессора...
daryamelikhova
27.05.2020 13:47
Скорость передачи данных через adsl-соединение равна 128000 бит в секунду через данное соединение файл размером 125 кбайт определите время передачи файла в секундах...
linochka1083
20.03.2021 20:42
Нарисуй в окне дерево бусин,в котором ровно пять уровней вершин,ровно три пути длины 2,ровно четыре пути длины 4 и ровнопять путей длины 3....
Пава1305
29.10.2022 09:13
Некоторое сигнальное устройство за одну секунду передает один из пяти сигналов. сколько различных сообщений длиной в шесть секунд можно передать при этого устройства?...
ногл289
13.04.2022 02:20
Составьте блок схему вычисления площади круга при r 4...
Анасія
09.04.2022 22:15
Из чисел a, b, c, d выбрать максимальное. решение!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.
Эта