Alg do elevador

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 3/7/2010
// Seção de Declarações 
var
elevador,usuario:inteiro
movimento:inteiro
inicio
escreval ("Entre com o andar que o elevador está parado")
leia (elevador)
se (elevador<0) ou (elevador>4) entao
escreval ("O elevador está fora do prédio")
senao
escreval ("Entre com o andar que o usuário está: ")
leia (usuario)
 se (usuario<0) ou (usuario>4) entao
 escreval ("O usuário está fora do prédio!")
 senao
 movimento:= usuario - elevador
 se movimento>0 entao
 escreva ("O elevador sobe",movimento," andar")
 se movimento>1 entao
 escreva ("es")
 fimse
 senao
 se movimento<0 entao
 movimento:=movimento*(-1)
 escreva ("O elevador desce",movimento," andar")
 se movimento > 1 entao
 escreva ("es")
 fimse
 senao
 escreva ("O Elevador não se movimenta")
 fimse
 fimse
 fimse
fimse
// Seção de Comandos 
fimalgoritmo