Question

Используя объектный тип, опишите геометрическую фигуру шар с методом вычисления объема.

Answer 1

//PascalABC.Net 3.0, сборка 1052
type
  Balls = class
  r:real;
  constructor (rr:real);
  begin r:=rr end;
  function VB:real;
  begin
    VB:=4*Pi*r*sqr(r)/3
  end;
  end;
 
var
  b:Balls;
  R:real;
begin
  Write('Радиус шара= '); Read(R);
  b:=new Balls(R);
  Writeln('Объем шара равен ',b.VB:0:3)
end.

Тестовое решение:
Радиус шара= 25
Объем шара равен 65449.847