Penggunaan Select Case pada Pascal

Ini adalah salah satu contoh penggunan SELECT CASE pada PAscal :

Uses crt;  (deklarasi unit)

Label 100 ; (penomoran label)

Var pilihan : byte; (variable pilhan dengan type data byte)

Nama, kelas : string; (variable nama, kelas dengan type data string)

Npm, I, j : integer;  (npm, I, j dengan type data Integer)

Begin (memulai program)

100: (penomoran label)

Clrscr; (membersihkan layar dari hasil sebelumnya)

Writeln (‘pilihan’); (menampilkan hasil dalam string)

Writeln (‘1. Biodata’); (menampilkan hasil dalam string)

Writeln (‘2. Deret’); (menampilkan hasil dalam string)

Writeln (‘3. Exit’); (menampilkan hasil dalam string)

Readln (pilihan); (menampilkan hasil di layar)

Case pilihan of (kondisi dengan case pilihan of)

1 : begin (label 1 mulai program)

Clrscr; (membersihkan layar dari hasil sebelumnya)

Wrtiteln (‘biodata’);  (menampilkan hasil dalam string)

Writeln (‘nama :’); readln (nama); (menampilkan hasil dalam string, dan mencetak hasil variable nama)

Writeln (‘npm :’); readln (npm); (menampilkan hasil dalam string, dan mencetak hasil variable npm)

Writeln (‘kelas :’); readln (kelas); (menampilkan hasil dalam string, dan mencetak hasil variable kelas)

Writeln; (mencetak hasil pada baris yang sama)

Readln; (mencetak hasil keseluruhan)

Goto 100; (kondisi penomoran)

End; (mengakhiri program)

2 : begin (label 2 mulai program)

Writeln (‘deret’);  (mencetak hasil dalam string)

Writeln (‘masukan deret :’); readln (j); (mencetak hasil dalam string, dan mencetak variable j)

For j := 1 to j do (perulangan untuk variable j)

Begin (memulai)

For I := 1 to j do (perulangan untuk variable i)

Write (i);  (mencetak variable i)

Writeln; (mencetak seluruhnya)

End; (mengakhiri program)

Readln; (mencetak seluruhnya)

Goto 100 (kondisi penomoran)

End; (menakhiri program)

End; (mengakhiri program)

End. (program selesai)