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

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

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

Ответ:

vitalicc

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

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

инкара10

31.07.2022 00:53

Составьте алгоритм перевозки 3-х пар на остров посередине реки. в лодке помещаются только двое; плавать никто не умеет; оказавшись отдельно от мужа, ни одна не должна находиться...

АвторУлыбки

23.02.2021 23:50

Знаю что во не по теме этого приложения, но я хочю купить видеокарту для компьютера и незнаю как её выбрать. Да и вообще после покупки её нужно поставить в слот или ещё...

qwerty681

13.11.2021 20:01

Нужно письменно обьяснить все действия задания задания на ПК....

якура

09.08.2020 14:47

Ваквариуме плавали 16 рыбок,все разных видов.какое количество информации содержится в сообщении о том что кот выловил из аквариума гуппи?...

Mironshiha

10.11.2020 21:15

Какую функцию обеспечивают устройства ввода информации...

Sofia621

21.05.2020 06:57

Напишите программу для решения следующей .девятиклассники участвовали в викторине по . необходимо было ответить на 20 вопросов. победителем викторины считается участник,...

Татьяна201712

02.08.2021 08:09

Блок схема даны три числа. найти среднее из них (то есть число, расположенное ме-жду наименьшим и наибольшим)....

MiraQeen

05.12.2021 23:40

Сколько нулей в двоичном представлении числа 19? а) 1 б) 2 в) 3 г) 4...

redckast

20.07.2021 21:15

Pascal abc тема записи с клавиатуры вводится номер школы. файл содержит сведения: фамилию, имя ученика, номер школы. определить кол-во учеников в школе с заданным номером...

Аолвлвьвтадвлвл

20.07.2021 21:15

Даны числа a и b. необходимо найти все числа, являющиеся полными квадратами, на отрезке [a; b] на !...

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

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