Exemplo 31

========================================================= 

Ler 3 valores (A, B e C) representando as medidas dos lados de um triângulo e escrever se formam

ou não um triângulo. OBS: para formar um triângulo, o valor de cada lado deve ser menor que a soma dos outros 2 lados.

=========================================================

// Seção de Declarações 

var

lado1,lado2,lado3:inteiro

inicio

// Seção de Comandos

escreval("Lado 1: ")

leia(lado1)

escreval("Lado 2: ")

leia(lado2)

escreval("Lado 3 :")

leia(lado3)

se ( lado1 < lado2 + lado3 ) entao

     se ( lado2 < lado1 + lado 3  ) entao

    

          se ( lado3 < lado1 + lado2 ) entao

         

               escreval ("O triangulo existe.")

          senao

               escreval (" O triangulo nao existe. ")

          fimse

     senao

          escreval (" O triangulo nao existe.")

     fimse

    

senao

     escreval ("Triangulo nao exite.")

    

fimse

fimalgoritmo

=========================================================