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

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

09.12.2011, 15:35. Просмотров 3448. Ответов 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 ABC):

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

Кубик рубик с разными цветами+подпись
в 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) Заранее спасибо.

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

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

16
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
09.12.2011, 17:32 #2
Цитата Сообщение от BOT Посмотреть сообщение
а то у меня за границы выходит.
А круги-то где?
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:34  [ТС] #3
Программу запусти увидишь)
0
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
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
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
09.12.2011, 17:46 #6
И что у тебя не закрашивает? Там условие такое было, закрасить области пересечения окружностей.
0
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:50  [ТС] #7
Мне еще надо закрасить все круги разными цветами, у меня почему-то выходит за границы)
0
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
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
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
09.12.2011, 18:00 #10
А я что нарисовал? Ты вообще читать и смотреть умеешь?
Цвет закрашенных областей отличается от цвета окружностей?
0
Миниатюры
Закрасить круги разными цветами  
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:02  [ТС] #11
Я хочу чтобы каждый круг имел свой цвет.
0
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
09.12.2011, 18:06 #12
В условии не круги, а окружности.
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:17  [ТС] #13
Можешь посоветовать какую-нибудь литературу по паскалю. В школе вообще паскаль не проходил, а в универе нам задали 13 практических и сказали сделать, а как правильно составлять программы даже не показали, у нас вся группа не в до умении) Тебе самому сложно было научиться? Заранее спасибо за ответ)))
0
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
09.12.2011, 18:19 #14
Чисто по АВС я не знаю литературы, а вообще по Паскалю в интернете море учебников.
1
BOT
44 / 0 / 1
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:21  [ТС] #15
Ты самоучка или тебе все конкретно преподаватели объясняют?)
0
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
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
Привет! Вот еще темы с решениями:

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

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

Почему сообщение количество гласных букв равно выводится на экран до вывода символов разными цветами
Uses GraphABC; Var St,g: string; n,i,k,p: integer; Begin...

нарисовать круг по команде с клавиатуры, разбить его на 8 секторов и закрасить их поочередно разными цветами
нарисовать круг по команде с клавиатуры, разбить его на 8 секторов и закрасить...


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

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

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