Program 6 penggabungan program 1, 2, dan 4 dengan membuat menu (prosedur, fungsi)

Setelah dari tadi belajar logika, sekarang kita menggabungkan beberapa program sebelumnya dan dibuat menu. Untuk contoh ini kita memanfaatkan repeat.

 1: Program Gabung;
 2: uses crt;
 3: var pilih: integer;
 4: Procedure luas;
 5:   {copy dan paste program 1}
 6: end;
 7: Procedure JenisBilangan;
 8:   {copy dan paste program 2}
 9: end;
10: Procedure Pengurutan;
11:   {copy dan paste program 4}
12: End;
13: begin {program utama}
14:   repeat
15:     clrscr;
16:     writeln(' PILIHAN');
17:     writeln('--------------------------');
18:     writeln(' 1. Menghitung Luas');
19:     writeln(' 2. Jenis Bilangan');
20:     writeln(' 3. Pengurutan');
21:     writeln(' 4. Exit');
22:     writeln('--------------------------');
23:     writeln;
24:     writeln;
25:     write(' Pilih Angka untuk Memilih Pilihan : ');
26:     readln(pilih);
27:     case pilih of
28:       1 : luas;
29:       2 : JenisBilangan;
30:       3 : Pengurutan;
31:       4 : exit;
32:     end;
33:   until pilih = 4;
34: end.

Ngertikan prisip kerjanya? Jadi program ini hanya akan berakhir jika user memilih no 4.

Regards,

dj