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 Oberon suivant :

MODULE computecirclearea;

IMPORT Math,Out;

CONST PI = 3.1415926535897932384626433832795029; 

PROCEDURE CircleArea(r:REAL):REAL;BEGIN
 RETURN PI * (r * r);
END CircleArea;

BEGIN 
 Out.String("l'aire d'un cercle de rayon de 1 cm est ");
 Out.Real(CircleArea(1));
 Out.String("cm2");
 Out.Ln;
 Out.String("l'aire d'un cercle de rayon de 5 cm est ");
 Out.Real(CircleArea(5));
 Out.String("cm2");
 Out.Ln;
 Out.String("l'aire d'un cercle de rayon de 8 cm est ");
 Out.Real(CircleArea(8));
 Out.String("cm2");
 Out.Ln;
 Out.String("l'aire d'un cercle de rayon de 10 cm est ");
 Out.Real(CircleArea(10));
 Out.String("cm2");
 Out.Ln;
END computecirclearea.

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 7 avril 2018