Описание куба, С помощью ООП Опции

[Godsmack2007]

Народ помогите написать вот такую штучку - Опишите геометрический объект куб с помощью ООП

[Godsmack2007]

IUnknown как то так?

uses crt;
 Type
 TKube = object


 X,Y,Z:Integer;
 Width:Word;
 Height:Word;
 Depth:Word;
 Color:byte;
 constructor Create(mX,mY,mZ:Integer; mWidth, mHeight, mDepth:Word);
 procedure print;
 end;

 constructor tkube.Create(mX,mY,mZ:Integer; mWidth, mHeight, mDepth:Word);
 begin
 x:=mx;y:=my;z:=mz;Width:=mWidth;Height:=mHeight;Depth:=mDepth;
 end;

 procedure tkube.print;
 begin
 writeln('x=',x,' y=',y,' z=',z,' width=',Width,' height=',Height,' depth=',Depth,' color=',Color);
 end;

 var
 q:tkube;
 begin
 q.create(10,10,10,10,10,10);
 q.color:=2;
 q.print;
 q.color:=5;
 q.print;
 readln;
 end.

М

Теги!! Правила. Lapp