Elevador com VisualG

Algoritmo "elevador com funções"

Var

Inicio

   // funcao que altera o estado do sistema
funcao AlterarEstadoSistema(a:logico):logico
inicio
   se a=verdadeiro entao
      retorne verdadeiro
   senao
      retorne falso
   fimse
fimfuncao
escreva(AlterarEstadoSistema(Verdadeiro))

// função que chama o elevador num piso
funcao chamarElevador(a:inteiro):inteiro
inicio
   retorne a
fimfuncao

// guarda a chamado do elevador
funcao guardarChamadaElevador(a:inteiro):inteiro
inicio
fimfuncao

// se guardaste tens de ler
funcao lerChamadaElevador(a:inteiro):inteiro
inicio

fimfuncao

Fimalgoritmo