Section courante

A propos

Section administrative du site

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

  1. <%
  2. Const PI = 3.141592653589793
  3.  
  4. Function CircleArea (r)
  5.   CircleArea = PI * (r * r)
  6. End Function
  7.  
  8. Response.Write "L'air d'un cercle de rayon de 1 cm est " & CStr(CircleArea(1)) & "cm2<BR>"
  9. Response.Write "L'air d'un cercle de rayon de 5 cm est " & CStr(CircleArea(5)) & "cm2<BR>"
  10. Response.Write "L'air d'un cercle de rayon de 8 cm est " & CStr(CircleArea(8)) & "cm2<BR>"
  11. Response.Write "L'air d'un cercle de rayon de 10 cm est " & CStr(CircleArea(10)) & "cm2<BR>"
  12. %>

on obtiendra le résultat suivant :

L'air d'un cercle de rayon de 1 cm est 3.14159265358979cm2
L'air d'un cercle de rayon de 5 cm est 78.5398163397448cm2
L'air d'un cercle de rayon de 8 cm est 201.061929829747cm2
L'air d'un cercle de rayon de 10 cm est 314.159265358979cm2


Dernière mise à jour : Mercredi, le 20 août 2014