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.

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.

fiz para encontrar a hipotenusa de um triangulo retangulo

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





Início da execução
cateto oposto
30
cateto adja.
60
o valor da hipoitenusa eh 67.0820393249937

Fim da execução.

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

teste

Início da execução
entre com o nome
Paulo Henrique gama
entre com as notas das tres provas
9.5
8.7
9
a media harmônica ponderada de Paulo Henrique gama é 8.97556561085973
Fim da execução.

teste

Início da execução
digite nota 1:8
digite nota 2:9
digite nota 3:6
a media eh ? 7.66666666666667
Fim da execução.


Início da execução
*****calculo de area******
qual e o valor da base?19
qual valor da altura?29
a area desse triangulo eh igual a 275.5******************fim*************
Fim da execução.