Não existe comando nativo em Tcl/Tk que retorne o valor de Pi. Mas o valor de Pi está disponível em muitos lugares, logo é fácil registrar seu valor numa variável ou num procedimento e usá-lo sempre que quiser.
Numa variável:
set pi "3.141592653589793238462643383279502884197169399375105820 9749445923078164062862089986280348253421170679821480865132823066 4709384460955058223172535940812848111745028410270193852110555964 46229489549303820"
Num procedimento:
proc Pi {} {
return 3.1415926535897932384626433832795028841971693993751058209
7494459230781640628620899862803482534211706798214808651328230664
7093844609550582231725359408128481117450284102701938521105559644
6229489549303820
}
Como usar o valor de Pi em um cálculo:
set raio 5
expr {2 * $pi * $raio}
;# retorna 31.41592653589793
ou
set raio 5
expr {2 * [Pi] * $raio}
;# retorna 31.41592653589793
O uso do procedimento pode ser mais útil que o uso da variável, pois o procedimento pode conter instruções adicionais que ajustem o número de casas decimais antes ou depois de se retornar o valor.
Em Tcl/Tk, um procedimento tem praticamente o mesmo valor de um comando nativo. Podemos até modificar completamente a função de um comando nativo. Neste caso, seria criado o procedimento Pi, que passaria a ter o valor e o comportamento de um comando nativo novo. Falarei mais disso na próxima semana.
