exercício (visualg)

[nweby 0]

Fazer um algoritmo que leia e verifique se três valores (a,b,c) podem ser os comprimentos dos lados de um triângulo, escrevendo o tipo do triângulo.

não é triângulo a soma dos lados menores é menor ou igual ao lado maior

retângulo o quadrado do maior dos lados é igual a soma dos quadrados dos outros lados

obtusângulo o quadrado do maior dos lados é maior que a soma dos quadrados dos outros lados

acutângulo o quadrado do maior dos lados é menor que a soma dos quadrados dos outros lados

equilátero todos os lados com tamanhos iguais

isósceles somente dois lados com tamanhos iguais

escaleno todos os lados com tamanhos diferentes

Fiz assim

algoritmo "triangulo"
var
a,b,c:inteiro
inicio
escreva("digite 3 lados")
leia(a,b,c)
se (a<b+c)e(b<a+c)e(c<b+a) entao
   se (a=b)e(a=c)e(b=c) entao
      escreva("acutangulo equilatero")
   senao
      se (a=b)ou(a=c)ou(b=c) entao
         se (a>=b)e(a>=c) entao
            se ((a^2)>(b^2+c^2)) entao
               escreva("isoceles obtusangulo")
            senao
               se ((a^2)=(b^2+c^2)) entao
                  escreva("isoceles retangulo")
               senao
                  se ((a^2)<(b^2+c^2)) entao
                     escreva("isoceles acutangulo")
                  fimse
               fimse
            fimse
         senao
            se (b>=a)e(b>=c) entao
               se ((b^2)>(a^2+c^2)) entao
                  escreva("isoceles obtusangulo")
               senao
                  se ((b^2)=(a^2+c^2)) entao
                     escreva("isoceles retangulo")
                  senao
                     se ((b^2)<(a^2+c^2)) entao
                        escreva("isoceles acutangulo")
                     fimse
                  fimse
               fimse
            senao
               se (c>=a)e(c>=b) entao
                  se ((c^2)>(b^2+a^2)) entao
                     escreva("isoceles obtusangulo")
                  senao
                     se ((c^2)=(b^2+a^2)) entao
                        escreva("isoceles retangulo")
                     senao
                        se ((c^2)<(b^2+a^2)) entao
                           escreva("isoceles acutangulo")
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      senao
         se (a<>b)e(a<>c)e(c<>b) entao
            se (a>=b)e(a>=c) entao
               se ((a^2)>(b^2+c^2)) entao
                  escreva("escaleno obtusangulo")
               senao
                  se ((a^2)=(b^2+c^2)) entao
                     escreva("escaleno retangulo")
                  senao
                     se ((a^2)<(b^2+c^2)) entao
                        escreva("escaleno acutangulo")
                     fimse
                  fimse
               fimse
            senao
               se (b>=a)e(b>=c) entao
                  se ((b^2)>(a^2+c^2)) entao
                     escreva("escaleno obtusangulo")
                  senao
                     se ((b^2)=(a^2+c^2)) entao
                        escreva("escaleno retangulo")
                     senao
                        se ((b^2)<(a^2+c^2)) entao
                           escreva("escaleno acutangulo")
                        fimse
                     fimse
                  fimse
               senao
                  se (c>=a)e(c>=b) entao
                     se ((c^2)>(b^2+a^2)) entao
                        escreva("escaleno obtusangulo")
                     senao
                        se ((c^2)=(b^2+a^2)) entao
                           escreva("escaleno retangulo")
                        senao
                           se ((c^2)<(b^2+a^2)) entao
                              escreva("escaleno acutangulo")
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
senao
   escreva("nao é triangulo")
fimse
fimalgoritmo

É assim?? Achei que ficou muito grande, nenhum até agora tinha ficado assim

[KhaosDoctor 242]

Está funcionando? Houve algum problema?