Gladir.com - TCL - Géométrie - Calcul l'air d'un cercle

L'énigmatique PI et l'air d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source TCL (Tool Command Language) suivant:
#! /usr/bin/tclsh
proc CircleArea {r} {
  set PI [expr {3.141592653589793}] 
  return [expr {$PI * ($r * $r)}]
}

puts "L'air d'un cercle de rayon de 1 cm est [CircleArea 1] cm2"
puts "L'air d'un cercle de rayon de 5 cm est [CircleArea 5] cm2"
puts "L'air d'un cercle de rayon de 8 cm est [CircleArea 8] cm2"
puts "L'air d'un cercle de rayon de 10 cm est [CircleArea 10] cm2"
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: Mardi, le 7 février 2006