Algoritmo repeticao
// Função : Verificar se o triangulo é escaleno, isósceles ou equilátero
// Autor : José R.
// Data : 09/08/2014
var
a,b,c:real
inicio
escreval("Digite o primeiro lado do triângulo: ") leia(a) escreval("Digite o segundo lado do triângulo: ") leia(b) escreval("Digite o terceiro lado do triângulo: ") leia(c) se (a=b) e (a=c) e (b=c) entao escreval("Triângulo equilátero") senao se (a=b) ou (a=b) ou (b=c) entao escreval("Triângulo isósceles") senao escreval("Triângulo escaleno")
fimse
fimse
fimalgoritmo
Abaixo o mesmo exercicio comentado, facilitando o entendimento. Lembre-se, de nada adianta copiar e colar o trabalho, o importante é assimilar o conhecimento e testa-lo de outras formas.
algoritmo "Triangulo"
// Função : Verificar se o triangulo é escaleno, isósceles ou equilátero
// Autor : José Roberto Macedo
// Data : 09/08/2014
var
a,b,c:real //Este exemplo é bom, o usuário terá que digitar os três lados do triângulo e eles serão comparados //se por exemplo fosse necessário calcular a área do triângulo eu criaria uma quarta variável "area" //mas como este não é o caso o programa fica bem inteligente com apenas 3 variáveis inicio escreval("Digite o primeiro lado do triângulo: ") //digitar primeiro lado leia(a) //ler o dado com lado a escreval("Digite o segundo lado do triângulo: ") //digitar o segundo lado leia(b) //ler o dado como lado b escreval("Digite o terceiro lado do triângulo: ") //digitar o terceiro lado leia(c) //ler o dado como lado c
se (a=b) e (a=c) e (b=c) entao //iníco das condições se! primeira delas, se