cateto oposto

lgoritmo "cateto oposto"
// Função :
// Autor :
// Data : 7/9/2010
// Seção de Declarações
var
b1, b2, b3 : numerico
inicio
escreval ("cateto hipotenusa ")
leia (b1)
escreval ("cateto adja. ")
leia (b2)
b3 <- raizq(b1^2 - b2^2) ://valor do cateto oposto
escreval (" o valor da cateto oposto eh ", b3)
// Seção de Comandos
fimalgoritmo



Início da execução
cateto hipotenusa
67.082039
cateto adja.
60
o valor da cateto oposto eh 29.999999273292

Fim da execução.