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

Напишите программу для ежика из смешариков, нарисовать в pascal abc. размер поля 800*600.

Ответ:

homie51

06.10.2020 10:43

Uses GraphABC;
Begin
SetWindowSize(800,600);
SetWindowTitle ('Ёжик');
SetPenWidth(15);
{рисуем ноги}
SetPenColor(clMaroon);
MoveTo(320,520);
LineTo(320,600);
LineTo(460,600);
LineTo(460,520);
LineTo(420,520);
LineTo(390,580);
LineTo(360,520);
LineTo(320,520);
MoveTo(390,580);
LineTo(390,600);
FloodFill(340,540,clFuchsia);
FloodFill(440,540,clFuchsia);
{рисуем туловище}
Circle(390,315,200);
FloodFill(390,315,clFuchsia);
{рисуем очки}
SetPenColor(clPurple);
Circle(320,300,70);
Circle(460,300,70);
MoveTo(260,260);
LineTo(220,240);
MoveTo(520,260);
LineTo(560,240);
{рисуем глаза}
Circle(340,310,30);
FloodFill(340,310,clBlack);
Circle(440,310,30);
FloodFill(440,310,clBlack);
{рисуем нос и рот}
SetPenColor(clMaroon);
MoveTo(360,370);
LineTo(420,370);
MoveTo(390,370);
LineTo(390,400);
SetPenColor(clRed);
MoveTo(360,440);
LineTo(420,440);
LineTo(390,460);
LineTo(360,440);
{рисуем челку}
SetPenColor(clMaroon);
MoveTo(380,120);
LineTo(390,180);
LineTo(400,120);
MoveTo(380,140);
LineTo(340,190);
MoveTo(400,140);
LineTo(440,190);
{рисуем руки}
MoveTo(200,400);
LineTo(180,440);
LineTo(180,500);
LineTo(200,520);
LineTo(240,520);
LineTo(240,480);
LineTo(220,480);
LineTo(220,460);
LineTo(240,450);
FloodFill(200,440,clFuchsia);
MoveTo(580,400);
LineTo(600,440);
LineTo(600,500);
LineTo(580,520);
LineTo(540,520);
LineTo(540,480);
LineTo(560,480);
LineTo(560,460);
LineTo(540,450);
FloodFill(580,440,clFuchsia);
{рисуем иголки}
SetPenColor(clPurple);
MoveTo(180,330);
LineTo(100,240);
LineTo(140,220);
LineTo(180,220);
LineTo(180,120);
LineTo(200,100);
LineTo(220,120);
LineTo(280,120);
LineTo(390,20);
LineTo(500,120);
LineTo(560,120);
LineTo(580,100);
LineTo(600,120);
LineTo(600,220);
LineTo(640,220);
LineTo(680,240);
LineTo(600,330);
FloodFill(380,80,clBlue);
End.

Напишите программу для ежика из смешариков, нарисовать в pascal abc. размер поля 800*600.

Напишите программу для ежика из смешариков, нарисовать в pascal abc. размер поля 800*600.

0,0(0 оценок)

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

santop

31.05.2021 22:52

Рассчитайте объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 512 х 768 и количеством отображаемых цветов,...

youyousiis

13.01.2020 16:28

Нарисуйте плз в пеинте рисунок на тему день победы 9 мая только не слишком красиво...

dianaroza01

13.07.2021 23:09

Дан массив размерностью n*n (n=5), n - четное. определить сумму элементов и максимальные элементы в указанной области ( квадрат, проведены диагонали и полученные 4 треугольника,...

elizavetadeomi

13.07.2021 23:09

Что лишнее? : принтер наушники монитор микрофон...

10count

13.07.2021 23:09

Даны четыре числа найти наибольшее среди них. надо блок схему и алгоритм...

1XyJIuraH1

17.08.2022 06:47

Надо! в массиве а(8) найдите max и min элементы и их порядковые номера. составьте программу...

Vlada434

24.04.2023 11:27

Совокупность технических устройств, предназначенных для кодирования,обработки,хранения и передачи информации в цифровой форме называют...

алмазантейтоппппп

24.04.2023 11:27

Переход двоичного числа 11010010 в десятичных систему счисления...

Любимка97

24.04.2023 11:27

Взависимости от введённого символа l, s, v программа должна вычислять длину окружности; площадь круга; объём цилиндра. составить программу на паскале....

mahamde

24.04.2023 11:27

Звук длительностью 2 минуты оцифрован с частотой 11000 гц. разрядность кодирования - 24 бита. определите размер полученного файла в мбайтах. результат округлите до двух...

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

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