Contoh Program Case Of [8] Pada Pemrograman Pascal

Gambar oleh StartupStockPhotos dari Pixabay

Contoh Program Case Of [8] Pada Pemrograman Pascal - Berikut ini adalah contoh program yang kedelapan tentang bagaimana cara menggunakan case of pada pemrograman pascal.

Program case_sederhana2;

uses crt;

Var pil : integer;

            nama : string;

Begin

Clrscr;

write ('nama : ');

readln (nama);

writeln ('1: gol.I ');

writeln ('2: gol.II ');

writeln ('3: gol.III ');

write ('pilih golongan (dalam bentuk angka): ');

Readln (pil)   ;

Case pil of

1: writeln (nama,' gaji anda adalah Rp 2.500.000');

2: writeln (nama,' gaji anda adalah Rp 3.000.000');

3: writeln (nama,' gaji anda adalah Rp 3.500.000');

Else

writeln (' maaf',nama,' anda salah memasukan pilihan ');

End;

Readln;

End.

Baca juga Pengertian dan Jenis-Jenis Kelompok