Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 27, средняя оценка - 4.63
Romaan
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 6
#1

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

15.05.2012, 16:35. Просмотров 6545. Ответов 4
Метки нет (Все метки)

Нужно срочно нарисовать дерево в Pascal ABC
http://www.cyberforum.ru/pascalabc/thread1021337.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2012, 16:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нарисуйте дерево (Pascal ABC):

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

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

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

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

Нарисуйте последовательность из 16 разноцветных заполненных звезд
помогите... нарисуйте последовательность из 16 разноцветных заполненных звезд..

4
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
15.05.2012, 17:14 #2
Pascal
1
2
3
4
5
6
uses
    graphABC;
begin
 ellipse(300,50,400,200);
 line(350,110,350,300)
end.
______________________________________
Какое задание, такое и решение!!!
0
Romaan
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 6
15.05.2012, 17:42  [ТС] #3
А чё слабо нормально нарисовать?
0
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
15.05.2012, 18:54 #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
Romaan
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 6
15.05.2012, 19:14  [ТС] #5
Во, это да!!! Модеру 10+
0
15.05.2012, 19:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2012, 19:14
Привет! Вот еще темы с решениями:

По заданным 10 положительным числам нарисуйте столбиковую диаграмму
По заданным 10 положительным числам (взять самостоятельно) нарисуйте...

Нарисуйте окружность состоящую из 36 разноцветных пятиугольных звёзд
Нарисуйте окружность состоящую из 36 разноцветных пятиугольных звёзд, цвет...

Нарисуйте 10 окружностей разного цвета, пересекающихся в двух точках
Нарисуйте 10 окружностей разного цвета, пересекающихся в двух точках. Цвет...

Нарисуйте домик попроще но разукрашенный и чтобы ничего не двигалось
Нарисуйте домик попроще но разукрашенный и чтобы ничего не двигалось


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru