• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

will09

[Pascal] Exemplo de Menu

6 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora