АНОН ПРОГРАММИСТ-КУН ПОМОГИ !! в /pr не съебу
у меня в задаче есть Объект Кабинет с полем данных Номер и включает в себя объекты "основное Помещение" и "Подсобка" с полями данных площадь , все кабинеты собраны в контейнер "Офис" с возможностью подсчета суммарной площади всех боксов.контейнер это замкнутый список без заголовка. Меня интересует как правильно объявить классы. Я сделал вот как, но мне кажется тут совсем не правильно.
код на Pascal
type
TCabinet=class
private
numb:integer; {номер}
public
constructor Create;
function Getnumb:integer;
procedure Setnumb:integer;
end;
TMainRoom=class(TCabinet)
private
S:real;{площадь}
public
constructor Create(S:real);
function GetS:real;
procedure SetS:real;
end;
TSecondRoom=class(TMainRoom)
private
S:real;
public
constructor Create(S:real); ????
function GetS:real;
procedure SetS:real;
end;