Войти Регистрация Спроси ai-bota

Как нарисовать оленя в pascal abc ?

Показать ответ

Ответ:

annelya009

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 оценок)

Популярные вопросы: Информатика

GOrzen32

22.07.2021 08:06

Программа С#,Дан массив A целых чисел, содержащий 30 элементов. Вычислить и вывести количество и сумму тех элементов, которые делятся на 5 и не делятся на 7Решить в...

Мялан

06.06.2023 23:49

выполните действия в двоичной системе счисления: 10001(2)+635(10)...

askarovavikuly

08.08.2022 19:28

Укажи, к какому информационномупроцессу относится видеосъемкапраздника в школе.ОобработкаОхранениепредставлениесообщенияОсборОпередача...

Ruslan5278

25.02.2022 05:26

Решите задачу. Три ученицы – Тополева, Берёзкина и Клёнова посадили возле школы три дерева: березку, тополь и клён. Причем ни одна из них не посадила то дерево, от...

dshvedova06

10.11.2020 19:50

Записать на Паскале логическое выражение истинное только при выполнении следующего условия: хотя бы одно из чисел x, y, z является нечетным....

крист34

21.03.2023 01:15

Підсумкова контрольна робота з інформатики 8 клас Оберіть правильну відповідь 1. Числовий код призначений для опрацювання людиною та використовується для впорядкованого...

fgrtyrrrrty

09.01.2021 06:10

На диске доступно 32000 свободных кластеров по 4 Кб каждый. Какое максимальное количество непустых файлов можно разместить на диске?...

Притти

18.05.2020 19:09

Дан список учащихся (15 человек), их оценки за экзамен по математике и русскому языку. Составить програмиу которая выводит: 1) средний оценок по математике и средний...

Ландыш098

21.06.2020 05:58

РЕБЯТА УМОЛЯЮ НУЖНО ОЧЕНЬ ОЧЕНЬ РЕШАЕТСЯ СУДЬБА АТТЕСТАТА 15.1 На бесконечном поле имеются две перпендикулярные друг другустены, расположенные в виде буквы «Т», длины...

AlicaWolker16

04.07.2020 00:40

Переведите число 922 из десятичной системы счисления в двоичную...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку