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

Впаскале нужно нарисовать дерево елочка дерево.все должно быть в одном окне

Ответ:

adonda994

03.10.2020 05:27

Uses
GraphABC;

begin
SetPenColor(ClGreen);
Line(100,100,120,140);
Line(100,100,80,140);
Line(80,140,120,140);
Line(100,140,70,190);
Line(100,140,130,190);
Line(70,190,130,190);
Line(100,190,50,250);
Line(100,190,150,250);
Line(50,250,150,250);
FloodFill(100,160,clGreen);
FloodFill(100,130,clGreen);
FloodFill(100,200,clGreen);
Line(300,100,320,140);
Line(300,100,280,140);
Line(280,140,320,140);
Line(300,140,270,190);
Line(300,140,330,190);
Line(270,190,330,190);
Line(300,190,250,250);
Line(300,190,350,250);
Line(250,250,350,250);
FloodFill(300,160,clGreen);
FloodFill(300,130,clGreen);
FloodFill(300,200,clGreen);
Line(500,100,520,140);
Line(500,100,480,140);
Line(480,140,520,140);
Line(500,140,470,190);
Line(500,140,530,190);
Line(470,190,530,190);
Line(500,190,450,250);
Line(500,190,550,250);
Line(450,250,550,250);
FloodFill(500,160,clGreen);
FloodFill(500,130,clGreen);
FloodFill(500,200,clGreen);
end.

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

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

orynbasar2001

16.02.2023 20:47

Решить в паскале. 60 бб напечатать по одному символу текста, непосредственно следующему за каждым из буквосочетаний ‘ой’. предусмотреть случай, когда в тексте нет таких буквосочетаний....

enotick3010

16.02.2023 20:47

Занятия могут состояться в одном из кабинетов, номера которых от 1 до 16. сколько информации содержит сообщение о том, что занятия будут проходить в кабинете 7...

hoggarthtanya

16.02.2023 20:47

Равна 256 сколько килобайт памяти потребуется чтобы сохранить 320 страниц текста содержащего в среднем 256 символов на каждой странице?...

Genius2020

16.02.2023 20:47

Форма информации, при которой информация может изменяться только в определенный момент времени и на определенную величину...

ЖенушкаV

25.04.2023 21:11

Пользователь вводит 21 число.Найти наибольшее число среди элементов с девятого по пятнадцатый включительно....

fiskevich2

05.09.2020 17:31

Определите, что является «лишним» (сточки зрения информатики) и почему?...

TheLidiKotic12

25.09.2021 17:19

Информатика, 7 класс, интернет урок, кому надо. 1. Какой носитель информации в ОС Windows может иметь имя С:?Жёсткий диск2. Как называется совокупность файлов на диске и взаимодействий...

rona3

17.07.2020 12:57

Python. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Сумму отрицательных элементов. 2. Произведение элементов, расположенных между максимальным...

smail130

19.03.2022 12:13

2. Сколько бит информации содержит сообщение объемом 64 Мб?...

вася784

13.02.2020 01:36

Запиши выражение (19+z)2 на языке паскаль. (при записи ответа используй прописные буквы)....

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

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