Problema Visualg.

[WzguizW]

Olá galera,sou iniciante em programaçao (Comecei a 1 semana ^^),no meu curso estamos usando o Visualg e meu professor passou a seguinte tarefa: Mostar na tela se os numeros digitados podem formar um triangulo

Mostrar se o triangulo é equilatero,escaleno ou isoceles.

Eu consegui fazer isso,porem mesmo quando os numeros digitados não podem formar um triangulo,a variavel isoceles (Is) é dada como verdadeira.

Consegui resolver o problema,colocando na ultima linha :Escreval ("O triangulo é isoceles? ",Is=TRI)

Porém apesar de mostrar na tela uma saida certa,não sei se para o computador o resultado e logicamente correto entende?Alguém ai sabe como corrigir?ou está tudo certo?===============Eq=Equilatero, Es=Escaleno TRI= Triangulo ou não

algoritmo "triangulo"

var

L1, L2, L3: Real

Eq, Es, TRI, Is: Logico

inicio

Escreva ("Digite o primeiro lado: ")

Leia (L1)

Escreva ("Digite o segundo lado: ")

Leia (L2)

Escreva ("Digite o terceiro lado: ")

Leia (L3)

TRI <- (L1< L2+L3) e (L2< L1+L3) e (L3< L1+L2)

Eq <- (L1=L2) e (L2=L3)

Es <- (L1<>L2) e (L2<>L3) e (L3<>L1)

Is <- ((L1=L2) e (L3<>L2)) ou ((L2=L3) e (L1<>L2)) ou ((L1=L3) e (L2<>L1))

Escreval ("Pode ser um triangulo? ",TRI)

Escreval ("O triangulo é equilatero? ",Eq)

Escreval ("O triangulo é escaleno? ",Es)

Escreval ("O triangulo é isoceles? ",Is)

fimalgoritmo

[WzguizW]

Galera resolvi o problema,depois de uns 45 min olhando pro codigo me veio a soluçao,confesso que para um iniciante programaçao e complicado,mas quando descobrimos onde erramos por conta própria ,não há alegria maior hehe,é melhor que sexo (nem tanto). modifiquei para isso :

Is <- (((L1< L2+L3) e (L2< L1+L3) e (L3< L1+L2)) e ((L1=L2) e (L3<>L2)) ou ((L2=L3) e (L1<>L2)) ou ((L1=L3) e (L2<>L1)))

teria algum jeito de simplificar isso?ta grande pakas.

[Awq]

Cara, sei que já deve ter terminado, mas acho que o jeito certo seria usar um "for", ou seja, um "se", "senao":

Fica assim

var
   L1, L2, L3: Real
   Eq, Es, Ret, Is: real
inicio
     Escreva ("Digite o primeiro lado: ")
		Leia (L1)
     Escreva ("Digite o segundo lado: ")
		Leia (L2)
     Escreva ("Digite o terceiro lado: ")
		Leia (L3)
		
		Se ((L1=L2) e (L2=L3)) entao
			Escreval("É um retângulo")
			se ((L1<>L2) e (L2<>L3)) entao
				Escreval("É um escaleno")
					senao
						escreval("É um isósceles")
			fimse
		fimse
fimalgoritmo

[pereiracarlos]

desculpe-me amigo copiei o exemplo mas o visualg me dar execução terminada por erro.

na linha 14 erro logico, ou esperava então.