Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
15.05.2012, 18:54 0

Нарисуйте дерево

15.05.2012, 18:54. Просмотров 7028. Ответов 4
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses graphABC;
var i,j: integer;
 
begin
 setwindowsize(400,500);
 setbrushcolor(clgreen);
 rectangle(0,400,400,500);
 setbrushcolor(clblue);
 rectangle(0,0,400,400);
 setbrushcolor(clyellow);
 circle(350,50,30);
 setpenwidth(8);
 setpencolor(clbrown);
 line(150,300,200,400);
 line(250,300,200,380);
 setpenwidth(1);
 setpencolor(clblack);
 setbrushcolor(clbrown);
 rectangle(190,300,210,450);
 setbrushcolor(clgreen);
 ellipse(100,50,300,350);
 circle(50,370,50);
 circle(70,400,30);
 circle(25,410,20);
 setpencolor(cllime);
 for i:=1 to 100 do
     circle(random(120)+140,random(250)+80,5);
 for i:=1 to 100 do
     circle(random(180)+110,random(150)+150,5);
 setpencolor(clyellow);
 setbrushcolor(clred);
 for i:=1 to 30 do
     circle(random(120)+140,random(250)+80,10);
circle(250,450,10);
circle(290,420,10);
end.


Вернуться к обсуждению:
Нарисуйте дерево
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2012, 18:54
Готовые ответы и решения:

Нарисуйте ракету
Ракета должна двигаться Добавлено через 19 минут Вот я...

Нарисуйте олимпийский флаг
Нарисуйте олимпийский флаг. ГРАФ

Нарисуйте Компьютер в Паскале
Я с паскалем не очень, надеюсь на вашу помощь, буду благодарен. Компьютер...

Нарисуйте шахматную доску с шашками
Нарисуйте шахматную доску с шашками пжл

Нарисуйте картинку и опишите выполнение программы
нарисуйте картинку и опишите выполнение программы

4
Другие темы раздела
Pascal ABC Составьте программу периодического увеличения значений http://www.cyberforum.ru/pascalabc/thread575317.html
1)Иваныч открыл счет в банке 1 января на сумму 20000 руб под 14% годовых.начисление происходитпервого числа каждого месяца и добавляется к сумме клада.состояние идорова за год по месяцам. НЕЗНАЮ...
Pascal ABC (5!-2!)/(1-3!). решить с помощью функции (5!-2!)/(1-3!). решить с помощью функции. http://www.cyberforum.ru/pascalabc/thread575310.html
Pascal ABC Файлы. Каждый заданный символ заменить на заданную последовательность символов
1. Дан символьный файл f. Написать программу, которая каждый встречающийся в файле заданный символ заменяет на заданную последовательность символов. Результат записать в файл g. 2. Дан символьный...
помогите пожалуйста сделать в программе функции и процедуры Pascal ABC
Program kursa4; Uses CRT; Const Max=50; {max razmer matrici} Type Number=1..Max; {type of index} Matrix=array of real; {matrix type} Var {vhodniye danniye} ...
Pascal ABC Записи.Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени. http://www.cyberforum.ru/pascalabc/thread575039.html
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах,...
Pascal ABC Из двумерного массива сформировать однонаправленный список Из двумерного массива А(m,6) сформировать однонаправленный список, i-й элемент которого содержит все элементы i-й строки.Данные вводятся из файла.Ребят помогите пожалуйста, уже 3ий день сижу, кроме... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru