MEMBUAT PROGRAM MENU PADA PASCAL

label hoho; untuk mendeklarasikan hoho sebagai label

var a,menu,b,c,d,e,f,nilai,bilangan:integer; untuk membuat variabel baru bertype data integer

nm,kls,npm:string; untuk membuat variabel baru bertype data string

begin untuk memulai program

hoho; nama label yang dibuat tadi

clrscr; untuk membersihkan layar dari program yang dipakai sebelumnya

writeln('---menu---'); untuk menampilan ---menu--- sebagai header

writeln('1. biodata'); untuk menampilkan 1. biodata   

writeln('2. deret'); untuk menampilkan 2. deret    

writeln('3. ganjil genap'); untuk menampilkan 3. ganjil genap

writeln('4. exit'); untuk menampilkan 4.exit          

writeln('pilihan (1..4); untuk menampilkan pilihan menu

readln(menu); untuk membaca input menu yang diketikkan

case menu of awalan untuk program switch case

1: begin jika memilih 1 maka menjalankan program 1

clrscr; untuk membersihkan layar

writeln('-------program biodata------'); untuk membuat header program biodata

writeln; untuk lompat 1 baris

write('nama anda :');readln(nm); untuk menampilkan output nama anda : dan membuat input untuk variabel nm

write('kelas anda :');readln(kls); untuk menampilkan output kelas anda : dan membuat input untuk variabel kls

write('npm anda :');readln(npm); untuk menampilkan output npm anda : dan membuat input untuk variabel npm

writeln('----biodata anda----'); untuk menampilkan biodata anda

writeln('untuk lompat 1 baris

writeln('nama saya :',nm); untuk menampilkan output nama saya : dan konstanta nm

writeln('kelas saya :',kls); untuk menampilkan output kelas saya : dan konstanta kls

writeln('npm saya :',npm); untuk menampilkan output npm saya : dan konstanta npm

readln; untuk membaca line baru

goto hoho; untuk kembali ke awal

end; untuk mengakhiri program

2: begin jika memilih 2 maka menjalankan program 2

write ('input nilai :');readln(a); untuk menampilkan output input nilai dan membuat input untuk variabel a

for b:=a to 1 do untuk membuat perulangan b, konstanta a ke 1

for c:=b to 1 do untuk membuat perulangan c. konstanta b ke 1

write('*'); untuk menampilkan ouput * pada perulangan

writeln; untuk lompat 1 baris

end; mengakhiri program

goto hoho; untuk kembali ke awal

writeln('masukan bilangan anda');readln(bilangan); untuk menampilkan output masukan bilangan anda dan membuat input variabel bilangan

if bilangan mod 2 = 0 then jika bilangan dibagi 2 hasil bagi = 0 maka

writeln(bilangan,'adalah bilangan genap'); bilangan adalah bilangan genap

else

writeln(bilangan,'adalah bilangan ganjil'); jika tidak maka bilangan adalah bilangan ganjil

readln; untuk membaca line baru

4: begin jika memilih 4 maka menjalankan program 4

write('selesai'); menampilkan output selesai

readln; untuk membaca baris baru

exit; untuk keluar

end; untuk mengakhiri program sekarang

end; untuk mengakhiri program awal

end. untuk mengakhiri sesi ini.

HASIL OUPUTNYA :