algoritmo "Luiz Walnei"
// Função : Verificar possibilidade da criação de um triângulo
// Autor : Luiz Walnei
// Data : 26/02/2011
// Seção de Declarações
var
num1:inteiro
num2:inteiro
num3:inteiro
resposta:caracter
inicio
// Seção de Comandos
// Para formar os lados de um triângulo cada um dos valores tem que ser menor que a soma dos outros dois.
ESCREVAL ("Vamos testar as condições para a possível criação de um triângulo!")
ESCREVAL ("")
ESCREVA ("Digite o tamanho do primeiro lado: ")
LEIA (num1)
ESCREVA ("Digite o tamanho do segundo lado: ")
LEIA (NUM2)
ESCREVA ("Digite o tamanho do terceiro lado: ")
LEIA (NUM3)
SE (NUM1+NUM2 > NUM3) E (NUM3+NUM2 > NUM1) E (NUM3+NUM1 > NUM2) ENTAO
ESCREVAL ("")
ESCREVAL ("Sim, é possivel a criação de um triângulo com as dimensões: ", NUM1, NUM2, NUM3)
SENAO
ESCREVAL ("")
ESCREVAL("Não, não é possivel a criação de um triângulo com as dimensões: ",num1, num2, num3)
ESCREVAL ("")
ESCREVAL ("Quer saber o porque de não poder criar o triângulo com as dimensões mencionadas?")
ESCREVAL ("Para saber escreva: SIM")
LEIA(resposta)
FIMSE
SE (resposta = "SIM") ENTAO
ESCREVAL ("")
ESCREVAL ("Para formar os lados de um triângulo cada um dos valores tem que ser menor")
ESCREVA ("que a soma dos outros dois.")
FIMSE
fimalgoritmo
------------------------------------------------------------------------------------------------------------
Crédito do programa: Luiz
Valeu mais uma vez, ficou show :)
Abraço,
Gabriel