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

Нужно нарисовать простой рисунок для паскаля с объяснением

Ответ:

Mussa1

07.10.2020 19:27

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
var p1:=Arr((220,100),(260,100),(300,140),(240,140),(240,180),
(280,220),(280,280),(220,320),(160,320),(100,260),(140,260),
(180,220),(220,220),(200,180),(200,140));
DrawPolygon(p1); FloodFill(200,300,clYellow); // тело
p1:=Arr((160,320),(160,340),(200,340),(180,360),(160,340));
Polyline(p1); FloodFill(180,350,clDarkOrange); // лапа 1
p1:=Arr((220,320),(220,340),(260,340),(240,360),(220,340));
Polyline(p1); FloodFill(240,350,clDarkOrange); // лапа 2
Line(260,140,280,120); FloodFill(280,130,clRed); // клюв
Brush.Color:=clWhite; Circle(260,120,5); // контур глаза
Brush.Color:=clBlack; Circle(260,120,2) // зрачок
end.

Нужно нарисовать простой рисунок для паскаля с объяснением

Нужно нарисовать простой рисунок для паскаля с объяснением

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

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

VASILIEVAALEXANDRA

23.03.2020 04:13

Таблица модель. график или диаграмма. схема объекта- магнитофон !...

rrrf1

23.07.2020 02:36

Определите, что будет выведено на экран после выполнения фрагмента программы на языке программирования turbo pascal: x : = 0; y : = 6; while y 0 do begin y : = y - 3; x : = x + y;...

2017mariana

09.03.2022 06:46

Ученик использовал переменные при создании игры...

cvvb

14.02.2022 20:42

44. выразите объём информации в различных единицах,заполняя таблицу: бит байт кбайт 1 1536 16384 2560 2(15сверху) 2(3сверху)...

ivettapopova045

25.04.2020 03:32

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

siemens227

14.02.2022 20:42

Количество информации в сообщении, содержащем 4096 символов, составил 1/1024 часть мбайта. каков размер алфавита, с которого было записано сообщение?...

maksim2657

14.02.2022 20:42

Выделите подсистемы в следующих системах: система подсистема1 подсистема2 школа компьютер государство солнечная система человек таблицу составить...

NatashaShvecova

22.10.2020 05:13

Объявите переменные l1-целая,srd-вещественная...

ivanovasasha2

04.03.2022 07:35

Python 3 на вход подаётся 12 чисел: среднемесячная температура за каждый из месяцев 2018 года. вывести количество месяцев, в которых средняя температура была ниже 0....

математика634

17.12.2020 02:22

Сканируется цветное несжатое изображение размером 2×3 дюйма. разрешающая сканера 600×600 dpi, глубина цвета 8 битов. какой информационный объем будет иметь полученный графический...

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

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