Section courante

A propos

Section administrative du site

Amusant pour certain, calculer l'aire d'une surface de prisme rectangulaire. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Ada suivant :

  1. WITH TEXT_IO; 
  2.  
  3. PROCEDURE Rect IS 
  4.    
  5.    USE TEXT_IO; 
  6.    
  7.    FUNCTION RectangularPrismSurfaceArea(H,W,L:IN Float) RETURN Float IS BEGIN 
  8.       RETURN (2.0*H*W)+(2.0*H*L)+(2.0*L*W); 
  9.    END RectangularPrismSurfaceArea; 
  10.    
  11. BEGIN 
  12.    PUT_LINE("L'aire d'une surface de prisme rectangulaire de 10x5x5 est "& 
  13.       FLOAT'IMAGE(RectangularPrismSurfaceArea(10.0,5.0,5.0)) & "cm2"); 
  14.    PUT_LINE("L'aire d'une surface de prisme rectangulaire de 2x3x4 est "& 
  15.       FLOAT'IMAGE(RectangularPrismSurfaceArea(2.0,3.0,4.0)) & "cm2"); 
  16.    PUT_LINE("L'aire d'une surface de prisme rectangulaire de 1x3x7 est "& 
  17.       FLOAT'IMAGE(RectangularPrismSurfaceArea(1.0,3.0,7.0)) & "cm2"); 
  18. END Rect;

on obtiendra le résultat suivant :

L'aire d'une surface de prisme rectangulaire de 10x5x5 est 250cm2
L'aire d'une surface de prisme rectangulaire de 2x3x4 est 52cm2
L'aire d'une surface de prisme rectangulaire de 1x3x7 est 62cm2

Dernière mise à jour : Samedi, le 25 août 2012