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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

vikki01092

15.06.2020 03:16

Книга содержит 121 страниц. На каждой странице 33 строк. В каждой строке 60 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется...

vytriskoivan

29.09.2021 00:43

Звернутися до елементу за його ключем і присвоїти його значення інформатика...

тима156

12.03.2021 14:02

Дан текст. Подсчитайте количество букв «е» и удалите их все из текста. Паскаль...

AnnI820

12.03.2021 14:02

Определить, есть ли в данном массиве положительные элементы, кратные t (t вводится с клавиатуры)....

Galerina

11.07.2021 17:03

Ақпараттын үш түрлі формасы...

гулие

09.04.2020 18:25

Халықаралық интернетсіз күні қай айда аталып өтеды ...

skidan2002

07.02.2022 14:06

решить! А то вообще ни чего не понимаю....

ириша182300

28.02.2023 23:40

Составьте программу на c++ для вывода на экран «лесенкой» трех последовательно идущих трехзначных чисел. Первое число вводится, а остальные должны вычисляться в программе....

Arse12345

09.06.2022 04:27

Злая мачиха заставила сварить суп который по рецепту варится 20 мин у Золушки только двое песчаных часов одни отмеряют 9 мин а другие 7 мин Составте алгоритм для Золушки...

selemenevakrist

10.08.2021 15:56

информатика пятый класс домашнее задание 1 Проведите на английском языке следующие слова и запишите их...

Ответ:

Hadeyac23

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

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

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