Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

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

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

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

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

Нарисуйте ракету - Pascal ABC
Ракета должна двигаться Добавлено через 19 минут Вот я нарисовала,сделайте,чтобы двигалась) Program raketa; Uses...

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

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

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

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

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

4
sheldon-yura
30 / 30 / 7
Регистрация: 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
КонецСвета
Почетный модератор
7924 / 3894 / 940
Регистрация: 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 положительным числам нарисуйте столбиковую диаграмму - Pascal ABC
По заданным 10 положительным числам (взять самостоятельно) нарисуйте столбиковую диаграмму (пистограмму). Столбики должны быть нарисованы...

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

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

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


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

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

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