Tcl/Tk: Usar o valor do número Pi

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.

This entry was posted in Tcl-Tk and tagged , , , , , , , . Bookmark the permalink.

Leave a Reply

Your email address will not be published. Required fields are marked *