L'énigmatique PI et l'aire d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source RemObjects Chrome suivant:
NameSpace ComputeCircleArea;
INTERFACE
Uses
System.Text;
type
Prog = class
class method CircleArea(r:Real):Real;
class method Main(Args: array of String);
end;
IMPLEMENTATION
class method Prog.Main(Args: array of String);
begin
Console.WriteLine('L''air d''un cercle de rayon de 1 cm est '+Convert.ToString(CircleArea(1))+'cm2');
Console.WriteLine('L''air d''un cercle de rayon de 5 cm est '+Convert.ToString(CircleArea(5))+'cm2');
Console.WriteLine('L''air d''un cercle de rayon de 8 cm est '+Convert.ToString(CircleArea(8))+'cm2');
Console.WriteLine('L''air d''un cercle de rayon de 10 cm est '+Convert.ToString(CircleArea(10))+'cm2');
end;
class method Prog.CircleArea(r:Real):Real;Begin
Result:=Math.PI * (r * r);
End;
END.
on obtiendra le résultat suivant:
l'aire d'un cercle de rayon de 1 cm est 3.14159265358979cm2l'aire d'un cercle de rayon de 5 cm est 78.5398163397448cm2
l'aire d'un cercle de rayon de 8 cm est 201.061929829747cm2
l'aire d'un cercle de rayon de 10 cm est 314.159265358979cm2
Dernière mise à jour : Dimanche, le 17 février 2008