Section courante

A propos

Section administrative du site

L'énigmatique PI et l'aire d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Ada suivant :

  1. WITH TEXT_IO;
  2. PROCEDURE CircleAreaExample IS USE TEXT_IO;
  3.  
  4.    PI : CONSTANT := 3.1415_92653_58979_32384_62643_38327_95029;
  5.    
  6.    FUNCTION CircleArea(R:IN Float) RETURN Float IS BEGIN      
  7.       RETURN Pi*(R*R);
  8.    END CircleArea;
  9.  
  10. BEGIN
  11.    PUT_LINE("l'aire d'un cercle de rayon de 1 cm est "&
  12.       FLOAT'IMAGE(CircleArea(1.0)) & "cm2");
  13.    PUT_LINE("l'aire d'un cercle de rayon de 5 cm est "&
  14.       FLOAT'IMAGE(CircleArea(5.0)) & "cm2");
  15.    PUT_LINE("l'aire d'un cercle de rayon de 8 cm est "&
  16.       FLOAT'IMAGE(CircleArea(8.0)) & "cm2");
  17.    PUT_LINE("l'aire d'un cercle de rayon de 10 cm est "&
  18.       FLOAT'IMAGE(CircleArea(10.0)) & "cm2");
  19. END CircleAreaExample;

on obtiendra le résultat suivant :

l'aire d'un cercle de rayon de 1 cm est 3.14159265358979cm2
l'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 : Samedi, le 25 août 2012