Buscar

Programa que leia, Equilátero, Isoceles, Escaleno.

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

Teste o Premium para desbloquear

Aproveite todos os benefícios por 3 dias sem pagar! 😉
Já tem cadastro?

Outros materiais