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

  1. Function CircleArea (r As Double) As Double
  2.      CircleArea = Pi * (r * r)
  3. End Function
  4.  
  5. Sub Main()
  6.      Print "l'aire d'un cercle de rayon de 1 cm est " & Str$(CircleArea(1)) & "cm2"
  7.      Print "l'aire d'un cercle de rayon de 5 cm est " & Str$(CircleArea(5)) & "cm2"
  8.      Print "l'aire d'un cercle de rayon de 8 cm est " & Str$(CircleArea(8)) & "cm2"
  9.      Print "l'aire d'un cercle de rayon de 10 cm est " & Str$(CircleArea(10)) & "cm2" 
  10. End Sub

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 : Dimanche, le 18 janvier 2015