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 .NET suivant:

MODULE circlearea;

PROCEDURE CircleArea(R:REAL):REAL;
BEGIN
 RETURN (R * R)*System.Math.PI;
END CircleArea;

BEGIN
 WRITELN("l'aire d'un cercle de rayon de 1 cm est ",CircleArea(1.0),"cm2");
 WRITELN("l'aire d'un cercle de rayon de 5 cm est ",CircleArea(5.0),"cm2");
 WRITELN("l'aire d'un cercle de rayon de 8 cm est ",CircleArea(8.0),"cm2");
 WRITELN("l'aire d'un cercle de rayon de 10 cm est ",CircleArea(10.0),"cm2");
END circlearea.

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 2 février 2008