Baixe o app para aproveitar ainda mais
Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
Algoritmo "Triangulo" // Faça um programa que leia,Equilatero,Isoceles,Escaleno. Var X, Y, Z, P: real Inicio escreval("Programa de medição do perimetro de um triângulo.") escreval("Digite os três lados do triângulo.") escreval("Digite o primeiro lado do triângulo:") leia(X) escreval("Digite o tamanho do segundo lado do triângulo:") leia(Y) escreval("Digite o tamanho do terceiro e último lado do triângulo:") leia(Z) se (X<Y+Z) e (Y<Z+X) e (Z<X+Y) entao escreval("Processando o triângulo") P:=(X+Y+Z) escreval("O triângulo (cujo os lados são:",X,",",Y," e",Z,") possui perimetro de valor:",P) se (X=Y) e (Z=Y) entao escreval("Este é um triângulo Eqüilátero.") senao se (X=Y) ou (X=Z) ou (Y=Z) entao escreval("Este é um triângulo Isóceles.") senao escreval("Este é um triângulo Escaleno.") fimse fimse senao escreval("ERROR: O tamanho de um dos lados do triângulo é maior que a soma dos dois outros lados.") escreval("Portanto o objeto não é um triângulo.") fimse Escreva ("Obrigado e volte sempre.") fimalgoritmo
Compartilhar