Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
wnmkr
0 / 0 / 0
Регистрация: 13.11.2012
Сообщений: 71
1

ООП: Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет

12.04.2013, 12:34. Просмотров 527. Ответов 3
Метки нет (Все метки)

Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет. Пусть методами будут А) порождение сектора; Б) изменение его цвета; В) изменение его размера. Опишите массив из 50 объектов, используя его в программе, порождающей 50 разноцветных секторов со случайным расположением, “пульсирующих”. Добавьте объект типа закрашенный сектор, дочерний для типа сектор. Объекты типа закрашенный сектор должны “стихийно” то увеличиваться, то уменьшаться.

Добавлено через 1 час 5 минут
up!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2013, 12:34
Ответы с готовыми решениями:

Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет
Опишите тип объектов – равносторонних секторов с параметрами: координаты...

Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет
Опишите тип объектов – равносторонних секторов с параметрами: координаты...

Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет
Опишите тип объектов – равносторонних секторов с параметрами: координаты...

ООП: Опишите тип объектов – круг с параметрами: координаты центра, радиус, цвет
1. Опишите тип объектов – круг с параметрами: координаты центра, радиус, цвет....

Опишите тип объектов – круг с параметрами: координаты центра, радиус, цвет
Опишите тип объектов – круг с параметрами: координаты центра, радиус, цвет....

3
Puporev
Модератор
55454 / 42566 / 29416
Регистрация: 18.05.2008
Сообщений: 100,703
12.04.2013, 12:43 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
uses graph,crt;
type sect=object
          x,y,r,u,c:integer;
          procedure Init;{порождение}
          procedure NewColor(c1:integer);{изменение цвета}
          procedure NewRazmer(r1,u1:integer);{изменение размеров}
          end;
     zkr_sct=object(sect)
             {наследуются от объекта rect
              x,y,r,u,c
              procedure Init
              procedure NewColor
              procedure NewRazmer}
             procedure Draw;{новая}
            end;
procedure sect.Init;
begin
setcolor(c);
arc(x,y,0,u,r);
line(x,y,x+r,y);
line(x,y,x+round(r*cos(u*pi/180)),y-round(r*sin(u*pi/180)));
end;
procedure sect.NewColor(c1:integer);
begin
c:=c1;
end;
procedure sect.NewRazmer(r1,u1:integer);
begin
r:=r1;
u:=u1
end;
procedure zkr_sct.Draw;
begin
setcolor(c);
setfillstyle(1,c);
pieslice(x,y,0,u,r);
end;
var xc,yc,i,r1,u1:integer;
    s:array[1..50] of sect;
    zs:zkr_sct;
    kf:real;
begin
randomize;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
for i:=1 to 50 do
 begin
  s[i].NewRazmer(10+random(30),10+random(350));
  s[i].x:=s[i].r+random(2*xc-2*s[i].r);
  s[i].y:=s[i].r+random(2*yc-2*s[i].r);
 end;
zs.x:=xc;
zs.y:=yc;
zs.NewColor(14);
r1:=60;
u1:=120;
kf:=1.1;
repeat
cleardevice;
for i:=1 to 50 do
 begin
  s[i].NewColor(random(15)+1);
  s[i].init;
 end;
r1:=round(r1*kf);
zs.NewRazmer(r1,u1);
if r1>=60 then kf:=0.9;
if r1<=20 then kf:=1.1;
zs.draw;
delay(500);
until keypressed;
end.
1
wnmkr
0 / 0 / 0
Регистрация: 13.11.2012
Сообщений: 71
12.04.2013, 12:49  [ТС] 3
благодарю
0
Vova Toretto
0 / 0 / 0
Регистрация: 28.11.2012
Сообщений: 16
26.04.2013, 16:19 4
Спасибо

Добавлено через 27 минут
. Пусть методами будут А) порождение линии; Б) изменение ее цвета; В) изменение ее размера. Опишите массив из 50 объектов, используя его в программе, порождающей 50 разноцветных линий со случайным расположением, “пульсирующих”. Добавьте объект типа закрашенный линия, дочерний для типа линия. Объекты типа закрашенная линия должны “стихийно” то увеличиваться, то уменьшаться. Помогите изменить под это условие.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2013, 16:19

Опишите тип объектов – круг с параметрами: координаты центра, радиус, цвет
Опишите тип объектов – круг с параметрами: координаты центра, радиус, цвет....

Опишите тип объектов – прямоугольник с параметрами: координаты вершин, стороны, цвет
Опишите тип объектов – прямоугольник с параметрами: координаты вершин, стороны,...

Опишите тип объектов – линия с параметрами: координаты вершин, стороны, цвет
Опишите тип объектов – линия с параметрами: координаты вершин, стороны, цвет....


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

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

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