VisuAlg - Menu de Opções

Exemplo de um menu de opções para ser usado na interface de um programa. Este programa não faz nada de concreto, apenas exemplifica como deve ser a estrutura de um menu de opções.

NOTA: No VisuAlg existe o ciclo repita ... ate que é diferente do ciclo repita ... enquanto do WebPortugol.

algoritmo "menu_de_opcoes"

var
     opcao: inteiro    

     procedimento subprograma1( op1: inteiro )
     inicio
           escreval( "Escolhida a opção ", op1 )
     fimprocedimento
    
     procedimento subprograma2( op2: inteiro )
     inicio
           escreval( "Escolhida a opção ", op2 )
     fimprocedimento
    
     procedimento subprograma3( op3: inteiro )
     inicio
           escreval( "Escolhida a opção ", op3 )
     fimprocedimento
    
     procedimento subprograma4( op4: inteiro )
     inicio
           escreval( "Escolhida a opção ", op4 )
     fimprocedimento
    
inicio

      repita
            escreval( "(1) Opção 1" )
            escreval( "(2) Opção 2" )
            escreval( "(3) Opção 3" )
            escreval( "(4) Opção 4" )
            escreval( "(5) Sair" )
           
            escreva( "Insira a sua opção: " )
            leia( opcao )
           
            escolha opcao
                caso 1
                    subprograma1( opcao )
                caso 2
                    subprograma2( opcao )
                caso 3
                    subprograma3( opcao )
                caso 4
                    subprograma4( opcao )
                caso 5
                    escreval( "O menu vai terminar ..." )
                outrocaso
                    escreval( "Opção inválida!" )
            fimescolha
           
      ate opcao = 5
     
fimalgoritmo