Exercício de Algoritmo: Os triângulos

O professor Jonatas comentou e pediu para que todos possam fazer o seguinte exercício:

Dados 3 valores A, B, C verificar se eles podem ser os comprimentos dos lados de um triângulo, se forem verificar se compõem um triangulo equilátero, isósceles ou escaleno. Informar se não compuserem nenhum triangulo.

Dados de entrada: valores inteiro para a variável A, B e C. Abaixo a expressão matemática que determina e qualificam os triângulos

• É triangulo quanto: (A<B+C) E (b<a+c) e (c<AA+b)
• É triangulo Equilátero quando: (a=b) e B=C
• É triangulo Isósceles quando: (a=b) ou (a=c) ou (b=c)
• É triangulo Escaleno quando (A<>B) E (B<>C) E (A<>C)

Tendo o problema. Tendo as fórmulas, agora é escrever o algoritmo. Se você tem, e já está usando o VisualG terá o trabalho realizado e testado, caso contrário apenas escrito. O meu algoritmo ficou assim:

algoritmo "Triângulos"
// Função :
// Autor :
// Data : 25/04/2011
// Seção de Declarações
// É triangulo (A<B+C) E (b<a+c) e (c<AA+b)
// Equilátero (a=b) e B=C
// Isósceles (a=b) ou (a=c) ou (b=c)
// Escaleno (A<>B) E (B<>C) (A<>C)

var
   a,b,c:INTEIRO

inicio
// Seção de Comandos
Escreva("Digite o valor do Lado a: ")
Leia(a)
Escreva("Digite o valor do Lado b: ")
leia(b)
Escreva("Digite o valor do Lado c: ")
Leia(c)

se((a<b+c) e (b<a+c) e (c<a+b)) entao
            se((a=b) e (b=c)) entao
               escreval("Triangulo equilátero")
               escreval("Triangulo  equilátero é quando: (a<b+c) e (b<a+c) e (c<a+b) ")
            Senao
                 Se((a=b) ou (a=c) ou (b=c)) entao
                         escreval("É um triangulo Isósceles")
                         escreval("Triangulo Isósceles é quando: (a=b) ou (a=c) ou (b=c) ")
                 senao
                         escreval("É um Triangulo escaleno")
                         escreval("Triangulo escaleno é quando: (A<>B) E (B<>C) (A<>C) ")
                 fimse
            fimse
senao
     escreva("Os números informados não formam um triangulo")
fimse
fimalgoritmo

Use o programa VisualG a compreensão das aulas será melhor!

Você fez o seu? Como ficou?

---