Объем и площадь Опции

[Postal_Dude]

Задача: Родительский класс - круг радиуса R=11 Вычислить его площадь. Производный класс - прямой конус высотой H=6. Вычислить его объем.

заранее спасибо.

[volvo]

function TCircle.GetS : single;
begin
  GetS := PI * Sqr(radius);
end;
...
function TConus.GetV : single;
begin
  GetV := (1/3) * heigth * GetS;
end;

Кроме этого, совершенно необязательно создавать объект типа TCircle:

var
  con : TConus;

begin
  clrscr;
  con.Init(11, 6);

  writeln('S circle = ', con.GetS : 2 : 2);
  writeln('V conus  = ', con.GetV : 2 : 2);

  readln;
end.