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

50 разноцветных геометрических фигур со случайным расположением

07.02.2013, 21:43. Показов 1607. Ответов 1
Метки нет (Все метки)

Написать программу, порождающую 50 разноцветных геометрических фигур со случайным расположением, «пульсирующими».

Объект — окружность с параметрами: координата центра, радиус, цвет. Пусть методами будет
а) порождение окружности;
б) изменение ее радиуса.

Добавлено через 52 минуты
Нашёл программу по моему заданиб,но там 1 круг,а не 50 и не меняется радус.Помогите подправить её.
Описание объектного типа
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2013, 21:43
Ответы с готовыми решениями:

Разработать приложение, рисующее на экране круги со случайным расположением центра, случайным размером радиуса
Разработать приложение, рисующее на экране круги со случайным расположением центра, случайным...

Получить графическое изображение Т-образного дерева со случайным расположением ветвей (рекурсивно)
получить с помощью рекурсивной процедуры изображение Т-образного дерева с случайным расположением...

Построить семейство разноцветных случайным образом размещенных шестиугольников.
Построить семейство разноцветных случайным образом размещенных шестиугольников.

Построить семейство разноцветных случайным образом расположенных линий
Помогите пожалуйста решить задачу Построить семейство разноцветных случайным образом...

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
08.02.2013, 13:51 2
Лучший ответ Сообщение было отмечено snape как решение

Решение

Можно наверное так
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt,graph;
type
Tokrg=object
      x,y,r,cv:integer;
      procedure Init;
      procedure Izm_Rad(d:integer);
     end;
procedure TOkrg.Init;
begin
setcolor(cv);
circle(x,y,r);
end;
procedure Tokrg.Izm_Rad(d:integer);
begin
r:=r+d;
end;
var g,d,i:integer;
    o:array[1..50] of TOkrg;
begin
randomize;
initgraph(g,d,'');
for i:=1 to 50 do
 begin
  o[i].r:=10;
  o[i].x:=o[i].r+random(GetMaxX-2*o[i].r);
  o[i].y:=o[i].r+random(GetMaxY-2*o[i].r);
  o[i].cv:=i;
  if i mod 16=0 then o[i].cv:=9;
  o[i].Init;
 end;
repeat
 if o[50].r<=11 then d:=1;
 for i:=1 to 50 do
  begin
   o[i].Izm_Rad(d);
   o[i].Init;
  end;
 delay(10);
 cleardevice;
 if o[50].r>50 then d:=-1
until keypressed;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2013, 13:51

Построить семейство разноцветных случайным образом вырезанных секторов окружностей
Построить семейство разноцветных случайным образом вырезанных секторов окружностей

Генерация на экране разноцветных смайликов, расположенных случайным образом (MFC)
Здравствуйте, не пойму как с помощью MFC реализовать вывод графики в приложении Windows. Собственно...

Построить семейство разноцветных случайным образом расположенных линий в 4 координатной четверти
Разделить экран на 4 части двумя линиями. Построить семейство разноцветных случайным образом...

Построение геометрических фигур.
Ребят, нужна помощь. http://s013.***********/i323/1010/ca/eef76aee9cc7.gif unit Unit1; ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru