Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
s01aris_rus
1 / 1 / 0
Регистрация: 22.05.2014
Сообщений: 10
1

Рисование кругов

30.05.2014, 21:40. Просмотров 1084. Ответов 1
Метки нет (Все метки)

В целочисленный массив, размерность (количество элементов) которого задается в программе константой, занесите с помощью датчика случайных чисел значения, задающие радиусы кругов. Минимально возможный радиус круга равен 1, а максимально возможный таков, что центры кругов (их количество определяется размерностью массива) равномерно распределяются по всей ширине графического окна. Нарисуйте в середине (по высоте) графического окна круги, используя значения радиусов из массива. При этом круг (круги, если их несколько) с минимальным значением радиуса в массиве рисуется синим цветом, а с максимальным значением радиуса в массиве — желтым. Все остальные круги рисуются красным цветом.

P.S. использовать библиотеку GraphABC
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2014, 21:40
Ответы с готовыми решениями:

Рисование расходящихся кругов на воде
Составьте программу, имитирующую расходящиеся круги на воде от капель дождя Похожую программу...

Рисование кругов в Паскале
Пишу курсовую (игра), лягушка прыгает по болоту. И вот на что наткнулся Код: uses graph; ...

площади кругов
помогите написать программу плиз... Даны пять кругов с радиусами r1,r2,r3,r4,r5 и координатами...

Покраска кругов
Написал программу рисует 30 кругов со случайными координатами,радиусом и цветом. Круги то нарисовал...

Расположение трех кругов
Ребята пожалуйста сделайте хоть одну задачку мне очень-очень надо.Если она будет правильна я...

1
Puporev
Модератор
56338 / 43118 / 29825
Регистрация: 18.05.2008
Сообщений: 102,469
31.05.2014, 13:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses graphABC;
const n=20;
var r:array[1..n] of integer;
    x,y,i,mx,mn:integer;
begin
randomize;
x:=windowwidth div 2;
y:=windowheight div 2;
for i:=1 to n do
 begin
  r[i]:=1+random(y);
  if i=1 then
   begin
    mx:=r[1];
    mn:=r[1];
   end
  else if r[i]<mn then mn:=r[i]
  else if r[i]>mx then mx:=r[i]
 end;
setbrushstyle(bsClear);
for i:=1 to n do
 begin
  if r[i]=mn then setpencolor(clBlue)
  else if r[i]=mx then setpencolor(clYellow)
  else setpencolor(clRed);
  circle(x,y,r[i])
 end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2014, 13:19

Установить факт пересечения кругов
описать тип записи круг, содержащий информацию о радиусе и центре(координаты х и у). ввести массив...

Подсчитать площади десяти кругов
как решить вот эту задачу не подскажите подсчитать площади десяти кругов с радиусами от 1 см с...

Построение кругов по данным из массива
Вот задачка. Кому не сложно, дайте, пожалуйста, указания к работе. Заранее огромное спасибо! ...


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

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

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