O Cara da Informática!!!

'Ta ai para me redimir com o pedaço que faltou huahuahauuah'

algoritmo "Toma_Palhaço"
// Função : Me redimir perante os alunos huahuahuaha

// Autor : My Professor

// Data : 19/11/2010



var

X, Y, Z, P:real

inicio

// Seção de Comandos

escreval("Bem-vindo(a) ao programa de medição do perimetro de um triângulo.")

escreval("Para começar, você deve digitar os três lados do triângulo.")

escreval("Vamos começar, 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)

P:=(X+Y+Z)

se (X

escreval("Processando o seu triângulo...")

se (X=Y) e (Z=Y) entao

escreval("O triângulo (cujo os lados são:",X,",",Y," e",Z,") possui um perimetro de valor:",P)

escreval("Com os dados obtidos podemos concluir que este é um triângulo Eqüilátero.")

senao

se (X=Y) ou (X=Z) ou (Y=Z) entao

escreval("O triângulo (cujo os lados são:",X,",",Y," e",Z,") possui um perimetro de valor:",P)

escreval("Com os dados obtidos podemos concluir que este é um triângulo Isóceles.")

senao

escreval("O triângulo (cujo os lados são:",X,",",Y," e",Z,") possui um perimetro de valor:",P)

escreval("Com os dados obtidos podemos concluir que este é um triângulo Escaleno.")

fimse

fimse

senao

escreval("ERRO: O tamanho de um dos lados do triângulo supera a soma dos dois outros lados.")

escreval("Portanto o objeto não é um triângulo.")

fimse

fimalgoritmo