Menu di scelta 2

Per semplificare la stesura di un programma si possono usare intensivamente le procedure e richiamarle tramite un menu…

Program menu_e_procedure;
Uses
   Crt;
Var
   scelta: Integer;
(* ---------------------------------------------------------------------------- *)
Procedure opzione1;
Begin
   ...
End;
Procedure opzione2;
Begin
   ...
End;
Procedure presentazione;
Begin
   ...
End;
Procedure menu;
Begin
   ClrScr;
   Writeln('---TITOLO---');
   Writeln(' 0. Uscita');
   Writeln(' 1. Opzione 1');
   Writeln(' 2. Opzione 2');
   ...
End;
Procedure uscita;
Begin
   ...
End;
Procedure aspetta;
Begin
   Writeln('Premi INVIO per continuare');
   Readln;
End;
(* ---------------------------------------------------------------------------- *)
Begin
   presentazione;
   Repeat
      menu;
      Readln(scelta);
      Case(scelta) Of
         0: uscita;
         1: opzione1;
         2: opzione2;
         ...
      End;
      aspetta;
   Until(scelta = 0);
End.
(* ---------------------------------------------------------------------------- *)

Note

1. Le dichiarazioni delle procedure sono tra la sezione delle variabili globali e il blocco principale
2. Le procedure e il blocco principale hanno dimensioni ridotte e simili.