Penggunaan CASE-OF dalam tampilan pilihan Menu

Struktur CASE-OF mempunyai suatu ungkapan logika yang disebut dengan  selector dan sejumlah statemen yang diawali  dengan  suatu label  permasalahan (case label) yang mempunyai tipe  sama  dengan selector

          Bentuk struktur dari CASE-OF :
                CASE Variabel Kondisi OF
                    CASE- LABEL 1; STATEMENT 1;
                    CASE- LABEL 2; STATEMENT 2;
                    CASE- LABEL 3; STATEMENT 3;
                    CASE- LABEL 4; STATEMENT 4;
                    ........
                    ........
                    CASE- LABEL N; STATEMENT N;
                END;                            {  end dari case  }




Contoh Programnya :



Program dua;
uses crt;
Label 1;
var q : char;
    x : real;
    p,r,s,t,h,w : integer;
    a,b,c,jwb : string;
begin
clrscr;
1:
writeln ('------Menu------');
writeln ('1. Biodata');
writeln ('2. Deret');
writeln ('3. Luas Segitiga');
writeln ('===========');
repeat
write ('Masukkan pilihan anda : '); readln (q);
    case q of
   '1': begin
        write ('Nama : '); readln (a);
        write ('NPM : '); readln (b);
        write ('Alamat : ') ; readln (c);
        readln;
        end;
   '2': begin
        write ('Masukkan angka : '); readln (p);
        for r:= 1 to p do
          begin
          for s:= 1 to r do
          write(s);
          writeln;
          end;
        end;
   '3': begin
        write ('Input Alas = '); readln (t);
        write ('Input Tinggi = '); readln (h);
        x:= (t * h) div 2;
        writeln ('Luas segitiga = ', x); readln;
        end;
   end;
write('Apakah anda akan menambah pilihan? (y/t) : ');
readln (jwb);
until (jwb ='t');
readln;
end.

OUTPUT PROGRAMnya :

  Jika menginput 'Masukkan pilihan  anda : ' dengan angka 1 akan memproses pilihan 1, dan program akan terulang jika pada Apakah anda akan menambah pilihan? (y/t) : anda memilih y.