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

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

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

Ответ:

mohammadroshann

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

Ответ:

2008089

21.08.2020 10:21

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

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

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

orehskonastia

26.01.2021 17:06

Постройте дерево каталогов по следующим полным именам файлов. c: /рисунки/природа/небо.bmh c: /рисунки/природа/снег.bmh c: /рисунки/компьютер/монитор.bmh c: /мои документы/доклад.doc...

SemyaTanya

26.01.2021 17:06

Решить классный руководитель директору, что у него в классе появилась компания из 3-х учеников, один из которых всегда говорит правду, другой всегда лжет, а третий говорит через раз...

ник5047

13.12.2022 05:40

Сколько текстовых файлов объемом 900 байт можно записать на жесткий диск если емкость жесткого диска равна 2 гбайта? на скольких дискетах емкостью 140 кб можно разместить содержимое...

vikyliya

29.03.2021 12:29

Телеграфистка в течение пяти минут пере- давала информационное сообщение со скоростью 20 байт в секунду. сколько символов содержало данное сообщение, если она использовала алфавит...

Zhenya13551

15.03.2020 18:05

Вычислись площадь прямоугольника через программу паскаль...

nastyaTYANnastya

10.03.2023 18:59

1*? +2 *? +3 *? =40гб 2*? +4*? +9*? =104гб 1*? +6*? +3*? =58гб решить ,решения обязательно. не могу уже 3 дня решить....

adikaeva1973

18.08.2020 12:39

Перевести числа в восьмеричную систему 1011011(2)...

lena08m

13.04.2023 05:03

Пользователь вводит длину последовательности n (где n-натуральное). определить количество трехзначных чисел в последовательности....

Заяцэ

20.10.2022 14:10

Перевести из десятичной в двоичную 163, 102, 55, 98...

neush

07.06.2022 07:58

Запишите как изменится формула при копировании из с2 в с4, в d2 =(2×b1-a1)/$a$2...

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

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