ООП

[Sadist666]

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

[Vorobey333]

Помогите пожалуйста!!!

[Vorobey333]

Вот программка!!!

uses graph,crt;
type rect=object
x,y,a,b,c:integer;
procedure Init;{порождение}
procedure NewColor(c1:integer);{изменение цвета}
procedure NewRazmer(a1,b1:integer);{изменение размеров}
end;
zkr_rct=object(rect)
{наследуются от объекта rect
x,y,a,b,c
procedure Init
procedure NewColor
procedure NewRazmer}
procedure Draw;{новая}
end;
procedure rect.Init;
begin
setcolor(c);
rectangle(x-a div 2,y-b div 2,x+a div 2,y+b div 2);
end;
procedure rect.NewColor(c1:integer);
begin
c:=c1;
end;
procedure rect.NewRazmer(a1,b1:integer);
begin
a:=a1;
b:=b1;
end;
procedure zkr_rct.Draw;
begin
setcolor(c);
setfillstyle(1,c);
bar(x-a div 2,y-b div 2,x+a div 2,y+b div 2);
end;
var xc,yc,i,a1,b1:integer;
r:array[1..50] of rect;
zr:zkr_rct;
kf:real;
begin
randomize;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
for i:=1 to 50 do
begin
r[i].NewRazmer(20+random(50),10+random( 30));
r[i].x:=r[i].a+random(2*xc-2*r[i].a);
r[i].y:=r[i].b+random(2*yc-2*r[i].b);
end;
zr.x:=xc;
zr.y:=yc;
zr.NewColor(14);
a1:=120;
b1:=60;
kf:=1.1;
repeat
cleardevice;
for i:=1 to 50 do
begin
r[i].NewColor(random(15)+1);
r[i].init;
end;
a1:=round(a1*kf);
b1:=round(b1*kf);
zr.NewRazmer(a1,b1);
if a1>=120 then kf:=0.9;
if a1<=40 then kf:=1.1;
zr.draw;
delay(300);
until keypressed;
end.

[Stilet]

Одна тема - Один автор. Создавай свою.