Criando Menu em Pascal - Parte 1

Fim de ano chegando e muita gente precisa entregar o projeto em Pascal.

Muitos projetos precisam de um menu e nessa aula vamos criar um menu básico.

Para criar um menu o procedimento é simples, mas devemos pensar no que precisaremos colocar nele.

No programa exemplo de um Cadastro de Clientes no teremos as seguintes opções:

Incluir: Para incluir novos clientes.

Excluir: Para apagar um cliente.

Alterar: Para corrigir algum dado do cliente.

Pesquisar: Para localizar um cliente.

Listar: Para mostrar os dados de todos os clientes.

E no final precisar de uma opção para sair no menu.

O menu ficará da seguinte forma:

Menu Pascal 01.jpg

O código fonte:

 Program Menu_Em_Pascal;  
 Uses Crt;  
 Var  
  Opcao : Integer;  
 Begin  
  Repeat  
   ClrScr;  
   WriteLn ('Cadastro de Clientes');  
   WriteLn;  
   WriteLn ('1. Incluir');  
   WriteLn ('2. Excluir');  
   WriteLn ('3. Alterar');  
   WriteLn ('4. Pesquisar');  
   WriteLn ('5. Listar');  
   WriteLn ('0. Sair');  
   WriteLn;  
   Write ('Opcao:'); ReadLn (Opcao);  
  Until Opcao=0;  
 End.  

Na próxima etapa vamos chamar um Menu dentro de outro Menu.

2 comentários: