[Resolvido] algoritmo matematica

[TCHE 0]

pessoal nescessito da ajuda de vcs, analisem meu algoritmo e me digam se há erros e onde estam como corrigilo, observem o lado matematico

 

Entrar com a base e a altura de um retângulo e imprimir a seguinte saída

PERIMETRO:

AREA:

DIAGONAL

 

var
h, b: inteiro {h = altura. b = base}
area, perimetro, diagonal: real
inicio
escreva ("entre com à altura:  ")
leia (h)
escreva ("entre com a base:  ")
leia (b)
area := (h * b)
perimetro := (h * 2) + (b * 2)
diagonal := raizq(quad(h) + quad(b))
escreval ("Area:  ",area)
escreval ("perimetro:  ",perimetro)
escreval ("diagonal:  ",diagonal)
fimalgoritmo

abraço

[Kandrade 7]

Se a funcao "quad" eleva um número ao quadrado e a funcao "raizq" retira a raiz quadrada de um número, então pra mim está correto o algoritmo.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[TCHE 0]

valeu Kandrade

muito obrigado mesmo

um abraço

[Kandrade 7]

Opa, foi nada.

Só reforcando a quem interessar esse tópico:

- Perímetro é a soma dos lados de um retangulo: b + b + h + h ou (b * 2) + (h * 2)

- Area é o produto da base pela altura: b * h

- Diagonal é só fazer pitágoras: d^2 = b^2 + h^2

 

b -> base

h -> altura

d -> diagonal

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

valeu Kandrade

muito obrigado mesmo

um abraço