[Pascal] Exemplo de Menu

[will09]

program menus;
uses CRT;

var opcao: char;


{ Escrevendo rotinas para cada uma das opcoes...
você também pode, ao invés de escrever rotinas, colocar blocos de código
depois dos dois pontos, lembrando de colocar "begin" e "end" no final de
cada um deles }

procedure opcao1;
begin
   clrscr;
   writeln ('Essa é a opção 1');
   readkey;
end;

procedure opcao2;
begin
   clrscr;
   writeln ('Essa é a opção 2');
   readkey;
end;

procedure opcao3;
begin
   clrscr;
   writeln ('Essa é a opção 3');
   readkey;
end;

{ bloco de código principal do programa... }

begin
    repeat
         repeat
              clrscr;
              writeln ('------------ Exemplo de Menu -----------');
              writeln ('[1] Opção 1');
              writeln ('[2] Opção 2');
              writeln ('[3] Opção 3');
              writeln ('[4] Sair');
              opcao := readkey;
         Until (opcao >= '1') and (opcao <= '4');

         Case opcao of
             '1' :  opcao1;
             '2' :  opcao2;   
             '3' :  opcao3;
         end;
     Until (opcao = '4');
end.

Espero que te ajude!

PEACE

[Cypher]

http://programmers.com.sapo.pt/peqmenu.htm

[Guest Marine]

O mal do Pascal Zim é que não suporta Uses.  😉 :fartnew2:

[Cypher]

N é necessário utilizar o Zim, na pois é bem melhor o Pascal 7.0 e é de borla tb... ao Zim falta lhe mt coisa que o 7.0 tem

[tugabit]

não arranjam um para que eu possa andar com as setas e quando carregar enter ele ir para a opção desejada?

[Cypher]

http://programmers.com.sapo.pt/peqmenu.htm

é so meteres onde tens um readkey adicionar a hipotese do enter (O codigo do enter podes ir a ver à tabela ASCII)!! de resto ja ta td feito 😄