L'énigmatique PI et l'aire d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Visual Basic .NET suivant :
- Module Module1
-
- Function CircleArea(ByVal r As Double) As Double
- Return Math.PI * (r * r)
- End Function
-
- Sub Main()
- Console.WriteLine("l'aire d'un cercle de rayon de 1 cm est " & CircleArea(1) & "cm2")
- Console.WriteLine("l'aire d'un cercle de rayon de 5 cm est " & CircleArea(5) & "cm2")
- Console.WriteLine("l'aire d'un cercle de rayon de 8 cm est " & CircleArea(8) & "cm2")
- Console.WriteLine("l'aire d'un cercle de rayon de 10 cm est " & CircleArea(10) & "cm2")
- End Sub
-
- End Module
on obtiendra le résultat suivant :
l'aire d'un cercle de rayon de 1 cm est 3.14159265358979cm2l'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 22 octobre 2016