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

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

↓

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

aliceBRATSKAIA

19.01.2020 01:12

Напишите процедуру которая выводит на экран в столбик все цифры введённого числа, начиная с последней (python) ...

иван1159

09.03.2020 18:26

Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m». Для какого наименьшего натурального числа А формула (ДЕЛ(x, A) Λ...

2005282

28.12.2020 09:32

3. Кестені қажетті ақпараттармен толтырыңдар...

Nier

28.12.2021 04:49

я вас умолчю любое четырёхзначное число нужно перевести в двоичную восьмеричную и шестнадцатеричную и сделать проверку...

sahka03

15.04.2022 13:05

Запишите код программы с операторов интегрированной среды программирования для заданного алгоритма: Алг ПримерНачВвести (x, y)если (x y) то (z=x-y) иначе (z=y-x) вывод...

vasyapupkin121212

26.12.2021 04:17

3. Напишите блок-схему и код программы для решения следующей задачи : Задача:Как оплатить суммув 785 тенге с наименьшего количества монет номиналом100, 50, 10,5.1 тенге?...

Ffgfgdcbgdf

08.07.2022 11:30

Вариант 8 1. Законы де Моргана. Доказательство с таблицы истинности. 2. Дана функция: (ave) и (вис) Выполнить 1. Упростить с законов алгебры логики. 2. Построить таблицу...

VikaKharitoniv

19.02.2020 20:17

Что бы открыть новое окно в программе , Python нужно СОР ПО ИНФОРМАТИКЕ...

ALINASVETLYRULIT

25.10.2020 11:01

Write a program that reports whether or not someone is old enough to vote in the U.S. You should do the following in your program: Ask the user for their age, and store...

sasharomanov03

25.07.2022 02:20

Классификация алгоритмов по структуре: (выберите несколько ) Линейный (следование) Разветвленный (ветвление, выбор, альтернатива) Циклический (повтор действий) Графический...

Ответ:

xXEliteXx

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 Оформи подписку