Program Menu Cobol

Listing :

Penjelasan :

1

. Uses crt maksudnya adalah objek yang digunakan untuk melihat adalah monitor.

2. Setiap akhiran statmen harus diberikan tanda titik koma (;)

3. bil adalah variabelnya yang bertipe integer.

4. Begin adalah proses awal dari program ini.

5. Memulai program menu.

6. Clrscr berfungsi untuk membersihkan tulisan sebelumnya.

7. Menuliskan “menu”.

8. Menuliskan “1.paket a”.

9. Menuliskan “2.paket b”.

10. Menuliskan “3.exit”.

11. Menuliskan “masukan pilihan anda :” dan dibaca oleh variabel “bil”.

12. Membuat Pilihan yang mengkin dari nilai variabel Bil.

13. Memulai pilihan jika nilai variabel bil adalah 1.

14. Membersihkan tulisan sebelumnya.

15. Menuliskan “1.nasi goreng”.

16. Menuliskan “2.ayam bakar”.

17. Lalu diproses.

18. Kembali ke menu.

19. Mengakhiri pilihan 1.

20. Memulai pilihan jika nilai variabel bil adalah 2.

21. Membersihkan tulisan sebelumnya.

22. Menuliskan “1.kentang”.

23. Menuliskan “2.burger”.

24. Lalu diproses.

25. Kembali ke menu.

26. Mengakhiri pilihan 2.

27. Jika nilai variabel bil adalah 3,maka akan keluar (exit).

28. Selain dari itu,maka menuliskan “pilihan anda salah”.

29. Mengakhiri semua pilihan.

30. Lalu di beri readln agar hasilnya langsung otomatis ada di baris selanjutnya.

31. Lalu untuk mengakhirinya diberikan End. Dan harus diberikan tanda titilk.