Помогите решить задачу при помощи классов

[Amen]

Здравствуйте. Мне очень нужно решение этой задачи с использованием классов на Дельфи. Задачку полегче я смог перевести, а с этой и не соображу что делать.

#include <iostream.h>//standart functions
#include <cmath>//sqrt, pow

using namespace std;

int main()
{
const float Pi = 3.14;

int Namber;
float Radius; //1
float Diametr; //2
float Length; //3
float Square; //4

cout<<"Input Namber: "; cin>>Namber;

switch(Namber)
{
case 1:
{
cout<<"Input Radius: "; cin>>Radius;
cout<<"Radius = "<<Radius<<endl
<<"Diametr = "<<Radius*2<<endl
<<"Length = "<<2*Pi*Radius<<endl
<<"Square = "<<Pi*pow(Radius,2)<<endl;
}break;
case 2:
{
cout<<"Input Diametr: "; cin>>Diametr;
Radius = Diametr/2;
cout<<"Radius = "<<Radius<<endl
<<"Diametr = "<<Diametr<<endl
<<"Length = "<<2*Pi*Radius<<endl
<<"Square = "<<Pi*pow(Radius,2)<<endl;
}break;
case 3:
{
cout<<"Input Length: "; cin>>Length;
Radius = Length/(2*Pi);
cout<<"Radius = "<<Radius<<endl
<<"Diametr = "<<Radius*2<<endl
<<"Length = "<<2*Pi*Radius<<endl
<<"Square = "<<Pi*pow(Radius,2)<<endl;
}break;
case 4:
{
cout<<"Input Square: "; cin>>Square;
Radius = sqrt(Square/Pi);
cout<<"Radius = "<<Radius<<endl
<<"Diametr = "<<Radius*2<<endl
<<"Length = "<<2*Pi*Radius<<endl
<<"Square = "<<Pi*pow(Radius,2)<<endl;
}break;
default:
cout<<"Sorry but the number is not correct!"<<endl;
}
system("pause");
return 0;
}

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

[Amen]

Подскажите хотя бы, какую часть программы можно перевести в класс. Очень нужно.

[Svetlag]

Если очень нужен класс, то можно. данные класса :int Radius.
Функции: Задание радиуса в зависимости от введенного Number, getDiametr, getLength, getSquare, вывод параметров на консоль.

[Stilet]

Ну на скорую руку примерно так:

program Project1;

{$APPTYPE CONSOLE}

uses  math,
  SysUtils;
  type c=class(Tobject)
    Namber:integer;
    Radius, //1
    Diametr, //2
    Length, //3
    Square:Double; //4
    procedure main;
  end;
  var ac:c;
{ c }

procedure c.main;
begin
 readln(namber);
 case namber of
   1:begin write('Введите радиус');readln(radius);
      Writeln('Radius = ',Radius);
      Writeln('Diametr = ',Radius*2);
      writeln('Length = ',2*Pi*Radius);
      writeln('Square = ',Pi*power(Radius,2));
     end;
     // Здесь остальные по аналогии перевиди

 end;
end;

begin
 ac:=c.Create;
 ac.main;
 ac.free;
  { TODO -oUser -cConsole Main : Insert code here }
end.