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

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

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

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

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

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

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

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

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

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
КонецСвета
Почетный модератор
7929 / 3900 / 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

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

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

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


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

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

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