Resolução Ex. 19 - Prof. Chiara FATEC Baixada Santista - Sistemas para Internet

gistfile1.txt

algoritmo "exercicio_19"
var x1, x2, x3, y1, y2, y3, a, b, c, area, perimetro : Real
    tipo : caracter
inicio
   escreva("Insira o valor de x1: ")
   leia(x1)
   escreva("Insira o valor de x2: ")
   leia(x2)
   escreva("Insira o valor de x3: ")
   leia(x3)
   escreva("Insira o valor de y1: ")
   leia(y1)
   escreva("Insira o valor de y2: ")
   leia(y2)
   escreva("Insira o valor de y3: ")
   leia(y3)
   a <- raizq( ((x2-x1)^2)+((y2-y1)^2) )
   b <- raizq( ((x3-x2)^2)+((y3-y2)^2) )
   c <- raizq( ((x1-x3)^2)+((y1-y3)^2) )
   escreval("Valor de a =", a)
   escreval("Valor de b =", b)
   escreval("Valor de c =", c)
   se (a<b+c) e (c<a+b) e (b<a+c) entao
      se (a=b) e (b=c) entao
         tipo <- "equilátero"
      senao
         se (a=b) ou (b=c) ou (a=c) entao
            tipo <- "isóceles"
         senao
            tipo <- "escaleno"
         fimSe
      fimSe
      perimetro <- (a+b+c)/2
      area <- perimetro*(perimetro-a)*(perimetro-b)*(perimetro-c)
      escreval("É um triângulo ", tipo)
      escreval("Perímetro do triângulo =", perimetro)
      escreva("Área do triângulo =", area)
   senao
      escreva("Não é um triângulo.")
   fimSe
fimalgoritmo