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

Pascal ABC

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

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

09.12.2011, 15:35. Просмотров 3440. Ответов 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 ABC
НЕ могу закрасить все сектора рандомными цветами, если и закрашиваются, то не все сектора. помогите пожалуйста (в данном случае нет кода...

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

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

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

Выведите на экран разными цветами старую и новую строки - Pascal ABC
Анализируйте информацию введенную с клавиатуры в строковую переменную и максимально используйте ее, для того чтобы получить имя файла ...

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

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

Добавлено через 1 минуту
Тем более что это типа моя программа.
0
BOT
44 / 0 / 0
Регистрация: 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
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
09.12.2011, 17:46 #6
И что у тебя не закрашивает? Там условие такое было, закрасить области пересечения окружностей.
0
BOT
44 / 0 / 0
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:50  [ТС] #7
Мне еще надо закрасить все круги разными цветами, у меня почему-то выходит за границы)
0
Puporev
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
09.12.2011, 17:51 #8
Тогда пиши полное условие задачи.
0
BOT
44 / 0 / 0
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 17:55  [ТС] #9
Нарисуйте 10 окружностей разного цвета, пересекающихся в 2-х точках. Цвет областей пересечения должен отличаться от цветов окружностей, которые эту область образуют.
0
Puporev
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
09.12.2011, 18:00 #10
А я что нарисовал? Ты вообще читать и смотреть умеешь?
Цвет закрашенных областей отличается от цвета окружностей?
0
Миниатюры
Закрасить круги разными цветами  
BOT
44 / 0 / 0
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:02  [ТС] #11
Я хочу чтобы каждый круг имел свой цвет.
0
Puporev
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
09.12.2011, 18:06 #12
В условии не круги, а окружности.
1
BOT
44 / 0 / 0
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:17  [ТС] #13
Можешь посоветовать какую-нибудь литературу по паскалю. В школе вообще паскаль не проходил, а в универе нам задали 13 практических и сказали сделать, а как правильно составлять программы даже не показали, у нас вся группа не в до умении) Тебе самому сложно было научиться? Заранее спасибо за ответ)))
0
Puporev
Модератор
54039 / 41672 / 14751
Регистрация: 18.05.2008
Сообщений: 97,991
09.12.2011, 18:19 #14
Чисто по АВС я не знаю литературы, а вообще по Паскалю в интернете море учебников.
1
BOT
44 / 0 / 0
Регистрация: 26.10.2011
Сообщений: 115
09.12.2011, 18:21  [ТС] #15
Ты самоучка или тебе все конкретно преподаватели объясняют?)
0
09.12.2011, 18:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 18:21
Привет! Вот еще темы с ответами:

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

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

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

Треугольник и круги - Pascal ABC
Задание на картинке. Помогите пожалуйста.


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

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

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