catet,adja.

algoritmo "cateto adja."
// 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 oposto ")
leia (b2)
b3 <- raizq(b1^2 - b2^2) ://valor do cateto adja.
escreval (" o valor da cateto adja. eh ", b3)
// Seção de Comandos
fimalgoritmo



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

Fim da execução.