Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/19: Рейтинг темы: голосов - 19, средняя оценка - 4.53
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
1

Закрасить круги разными цветами

09.12.2011, 15:35. Просмотров 3601. Ответов 16
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses graphABC;
 var i,d:integer;
 begin
 d:=25;
 for i:=1 to 10 do
 begin
 setpencolor(RGB(random(255),random(255),random(255)));
 setbrushstyle(bsClear);
 if i>1 then floodfill(d+i*20-35,200,clRed);
 d:=d+40;
 end;
 end.
Помогите закрасить круги разными цветами а то у меня за границы выходит. Заранее спасибо)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 15:35
Ответы с готовыми решениями:

Закрасить все сектора рандомными цветами
НЕ могу закрасить все сектора рандомными цветами, если и закрашиваются, то не...

Кубик рубик с разными цветами+подпись
в Pascal Срочно нужно, заранее спасибо!!

Нарисовать 3 графика на плоскости координат разными цветами
1 график: y=x*x+3x-4 2 график: z=|sin3x| 3 график: k=ln(x*x+3x+1)

Нарисовать 3 графика на оси координат разными цветами
Y:=x*x+3*x-4 Z:=abs(sin(3*x)) K:=ln(x*x+3*x+1) Заранее спасибо.

Выведите на экран разными цветами старую и новую строки
Анализируйте информацию введенную с клавиатуры в строковую переменную и...

16
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 17:32 2
Цитата Сообщение от BOT Посмотреть сообщение
а то у меня за границы выходит.
А круги-то где?
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:34  [ТС] 3
Программу запусти увидишь)
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 17:39 4
Цитата Сообщение от BOT Посмотреть сообщение
Программу запусти увидишь)
Да ты что? А мужики-то и не знали.... Там только красное поле и все. А то что там нет кругов и так из кода видно, найди где у тебя circle или ellipse...

Добавлено через 1 минуту
Тем более что это типа моя программа.
0
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:43  [ТС] 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses graphABC;
 var i,d:integer;
 begin
 d:=25;
 for i:=1 to 10 do
 begin
 setpencolor(RGB(random(255),random(255),random(255)));
 setbrushstyle(bsClear);
 circle(d+i*20,200,40);
 if i>1 then floodfill(d+i*20-35,200,clRed);
 d:=d+40;
 end;
 end.
Извини, просто 2 строчки почему то удалились)
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 17:46 6
И что у тебя не закрашивает? Там условие такое было, закрасить области пересечения окружностей.
0
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:50  [ТС] 7
Мне еще надо закрасить все круги разными цветами, у меня почему-то выходит за границы)
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 17:51 8
Тогда пиши полное условие задачи.
0
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:55  [ТС] 9
Нарисуйте 10 окружностей разного цвета, пересекающихся в 2-х точках. Цвет областей пересечения должен отличаться от цветов окружностей, которые эту область образуют.
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 18:00 10
А я что нарисовал? Ты вообще читать и смотреть умеешь?
Цвет закрашенных областей отличается от цвета окружностей?
0
Миниатюры
Закрасить круги разными цветами  
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:02  [ТС] 11
Я хочу чтобы каждый круг имел свой цвет.
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 18:06 12
В условии не круги, а окружности.
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:17  [ТС] 13
Можешь посоветовать какую-нибудь литературу по паскалю. В школе вообще паскаль не проходил, а в универе нам задали 13 практических и сказали сделать, а как правильно составлять программы даже не показали, у нас вся группа не в до умении) Тебе самому сложно было научиться? Заранее спасибо за ответ)))
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 18:19 14
Чисто по АВС я не знаю литературы, а вообще по Паскалю в интернете море учебников.
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:21  [ТС] 15
Ты самоучка или тебе все конкретно преподаватели объясняют?)
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,277
09.12.2011, 18:25 16
Я все сам.
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:28  [ТС] 17
От души))) Спасибо за ответы)) Извини, если напрег тебя)
0
09.12.2011, 18:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 18:28

Выведите свое имя разными цветами на разном фоне по главной диагонали экрана.
CRT Выведите свое имя разными цветами на разном фоне по главной диагонали...

Как сделать линии разноцветными, и чтоб квадратики были закрашены, тоже разными цветами!
uses graphabc; var x,z,y,n,rgb:integer; begin setwindowsize(800,500); for...

Несколько раз разными цветами напечатать фразу «ONE MOMENT, PLEASE...», расположив эти надписи лесенкой
На экране несколько раз разными цветами напечатать фразу «ONE MOMENT,...


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

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

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