Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Thad
0 / 0 / 1
Регистрация: 25.04.2013
Сообщений: 17
#1

Построить круги и закрасить

26.04.2013, 10:30. Просмотров 788. Ответов 2
Метки нет (Все метки)

дано последовательность из 40 натуральных чисел х1, у1, r1 .... x10, и y10, r 10.
Каждая тройка чисел х итовое, y итовое, r итовое и задает положение круга на екранe.Построить все круги и закрасить зеленым цветом те круги, которые имеют четные номера и красным-кола, имеющих нечетные номера

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

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

Построить и закрасить круги
Даны числа n, a0, a1, a2,...a3n-1. Каждая тройка чисел ai, ai+1, ai+2, где i...

Построить и закрасить треугольники
Помогите решить задачу) Даны натуральные числа В1,...Вn-Число...

Построить и закрасить треугольник
Может у кого что примерное есть...... 1)Построить и закрасить треугольник с...

Построить треугольник по данным и закрасить его
с клавиатуры вводятся длины сторон треугольника a,b,c. Построить треугольник по...

Построить 4 концентрических квадрата. Внутреннюю область закрасить
Я в безвыходном положении, господа.. и поэтому прошу вас решить эту "простую"...

2
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
26.04.2013, 13:52 #2
Лучший ответ Сообщение было отмечено Thad как решение

Решение

Вот для Турбо Паскаль
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
Uses Graph;
Var
  d,m,i: Integer;
  x,y,r: Array [1..10] of Integer;
BEGIN
d:=Detect;
InitGraph(d,m,'');
Randomize;
For i:=1 to 10 do
begin
  x[i]:=Random(GetMaxX);
  y[i]:=Random(GetmaxY);
  r[i]:=Random(50)+5;
  If Odd(i) Then
  begin
    SetFillStyle(1,Red);
    FillEllipse(x[i],y[i],r[i],r[i]);
  end
  Else
  begin
    SetFillStyle(1,Green);
    FillEllipse(x[i],y[i],r[i],r[i]);
  end;
end;
Readln;
CloseGraph
END.
1
Thad
0 / 0 / 1
Регистрация: 25.04.2013
Сообщений: 17
26.04.2013, 14:18  [ТС] #3
Спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2013, 14:18

Построить круг и закрасить его каким-либо цветом
Нужно построить круг и закрасить его каким-либо цветом. Пробовал использовать...

Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана
Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен...

Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана
35. Построить и закрасить квадрат со стороной 30 пикселов, центр которого...


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

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

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