Atividade prática Programação de Computadores- Código triângulo em Visual G

Prévia do material em texto

algoritmo "Codigo_Triangulo" 
// Autor : Eduarda Nicole Gomes dos Santos 
// Data : 02/11/2020 
// Seção de Declarações 
var 
 
X, Y, Z :inteiro 
Novamente: inteiro 
 
inicio 
 
Novamente := 1 
// Seção de Comandos 
ENQUANTO (Novamente = 1) FACA 
 
escreval("Vamos ver se os numeros formam um triangulo") 
escreval("Digite o primeiro numero") 
leia(X) 
escreval("Digite o segundo numero") 
leia(Y) 
escreval("Digite o terceiro numero.") 
leia(Z) 
 
//Condição para existencia de um triângulo 
SE ( (X > ABS(Y-Z)) E ( X < Y+Z )) ENTAO 
 
// Condição para triângulo equilatero. 
SE ((X = Y) E (X=Z) E(Z=Y)) ENTAO 
escreval("Os numeros informados formam um triangulo equilátero.") 
FIMSE 
 
// Condição para triângulo escaleno. 
SE ((X <> Y) E (X <> Z) E (Z <> Y)) ENTAO 
escreval("Os numeros informados formam um triangulo escaleno.") 
escreval("----------------------------------------------------") 
FIMSE 
// Condição para triângulo isósceles. 
SE (((X = Y) E (X <> Z)) OU ((X = Z) E (X <> Y)) OU ((Y = Z) E (Y <> X)) ) ENTAO 
escreval("Os numeros informados formam um triangulo isósceles.") 
escreval("---------------------------------------------------") 
FIMSE 
 
//Caso não forme um triângulo 
SENAO 
escreval ("Os numeros informados não formam um triangulo") 
escreval("----------------------------------------------") 
FIMSE 
 
escreval("Deseja tentar novamente? Se sim, digite 1. Se nao, digite 2") 
escreval("-----------------------------------------------------------") 
leia(Novamente) 
FIMENQUANTO 
 
fimalgoritmo