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.