Информатика: 40 ,нарисуйте рисунок в паскале,кроме: елки,домика.

40 ,нарисуйте рисунок в паскале,кроме: елки,домика.

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

↓

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

ЛАПУЛЛЯ

21.02.2023 00:46

Вопрос для знатоков Java: правда, что если в одном классе есть примитивный тип string, то в этом же классе не может быть ссылочного типа String?...

vladislava240203444

20.01.2021 05:02

Информатика 6 класс ❤️ ❤️ ❤️ ❤️ ❤️ ...

violka5

10.11.2022 05:06

Одна из старейших фигур в киперспорте, соучредитель и управляющий директор немецкой компании, издателя компьютерных игр, основанная в 90х, кто это? ...

davidgjggjj

02.11.2022 11:18

Как сделать заголовок по центру в html странице?...

nikolak1632

22.12.2020 21:31

Алфавит некоторого языка состоит из 32 символов. С данного алфавита был составлен текст, который занимает 3 страницы, на каждой странице 20 строк по 10 символов. Определите...

sveta05011

18.10.2021 05:51

Установіть відповідність між типом даних та його вмістом: 1. Integer... 2. String... 3. Boolean... 4. Float......

Кристинаlike

10.06.2022 12:16

Необходимо изготовить прямоугольный параллелепипед со сторонами a, b, c (a b c) из развёртки. Прямоугольный параллелепипед — это «коробка», у которой все грани — прямоугольники....

samat314

11.03.2023 15:45

Сдать решение задачи 7-Лес Полный : 100 Ограничение времени: 1 с Ограничение памяти: 512M Ограничение размера стека: 64M Задача 7: Лес Миша заблудился в лесу и пытается...

fkireeva

10.08.2022 17:20

Используя стандартную программу БЛОКНОТ, определить, какая фраза в кодировке Windows задана последовательностью числовых кодов и продолжить код.Запустить БЛОКНОТ. С дополнительной...

veron001

19.05.2020 05:27

Задание для выполнения в программе mathcad...

Ответ:

beka1098

21.08.2020 10:21

// 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.

40 ,нарисуйте рисунок в паскале,кроме: елки,домика.

40 ,нарисуйте рисунок в паскале,кроме: елки,домика.

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

Ответ:

dsayui56

21.08.2020 10:21

ответ в файлах)

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

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

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