Ir para o conteúdo
will09

[Pascal] Exemplo de Menu

Mensagens Recomendadas

will09    0
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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade