Advertisement
Guest User

Triangulo

a guest
Sep 19th, 2017
199
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. programa
  2. {
  3.     funcao inicio()
  4.     {
  5.        
  6. real ladoA, ladoB, ladoC
  7.         logico equilatero, escaleno, triangulo
  8.  
  9.         escreva("Entre com o valor para o lado A: ")
  10.         leia(ladoA)
  11.  
  12.         escreva("Entre com o valor para o lado B: ")
  13.         leia(ladoB)
  14.  
  15.         escreva("Entre com o valor para o lado C: ")
  16.         leia(ladoC)
  17.  
  18.        
  19.         equilatero = ladoA == ladoB e ladoB == ladoC
  20.         escaleno = ladoA != ladoB e ladoA != ladoC e ladoB != ladoC
  21.         triangulo = ladoA < ladoB + ladoC e ladoB < ladoA + ladoC e ladoC < ladoA + ladoB
  22.    
  23.         escreva("O triangulo é equilatero? ", equilatero)
  24.         escreva("\nO triangulo é escaleno? ", escaleno)
  25.         escreva("\nForma um triangulo? ", triangulo)
  26.     }
  27. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement