Program Case 8

Programcase_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.

Program Case 7

Programcase_sederhana1;

uses crt;

Var pil : integer;

Begin

Clrscr;

Writeln ('1 : pensil');

Writeln ('2 : buku');

Writeln ('3 : mistar ');

Writeln ('4 : penghapus');

Writeln ('5 : tas');

Writeln ('6 : sepatu');

Writeln ('7 : pulpen');

Writeln ('8 : peraut pensil');

Writeln ('9 : dasi');

Writeln ('10 : topi');

write('masukan angka : ');

Readln (pil)   ;

Case pil of

1: writeln ('harga Rp 2.500');

2: writeln('harga Rp 2.000');

3: writeln ('harga Rp 1.500');

4: writeln ('harga Rp 500');

5: writeln ('harga Rp 55.500');

6: writeln ('harga Rp 75.500');

7: writeln ('harga Rp 1.500');

8: writeln ('harga Rp 1.000');

9: writeln ('harga Rp 5.500');

10: writeln ('harga Rp 6.500');

Else

writeln (' maaf anda salah memasukan pilihan ');

End;

Readln;

End.

Program Case 6

program nama_bulan;

uses crt;

var bulan:integer;

kategori:string;

begin

        clrscr;

        write('masukkan bulan dalam angka: ');

        readln(bulan);

case bulan of

        1 : kategori := 'januari';

        2 : kategori := 'februari';

        3 : kategori := 'maret';

        4 : kategori := 'april';

        5 : kategori := 'mei';

        6 : kategori := 'juni';

        7 : kategori := 'juli';

        8 : kategori := 'agustus';

        9 : kategori := 'september';

        10: kategori := 'oktober';

        11: kategori := 'november';

        12: kategori := 'desember';

end;

writeln ('angka yang anda masukkan adalah bulan ',kategori);

readln;

end.

Program Case 5

program deteksi;

uses crt;

var karakter:char;

input:string;

begin

        clrscr;

        write('masukkan satu karakter: ');

        readln(karakter);

case karakter of

'A'..'Z' : input:='huruf kapital';

'a'..'z' : input:='huruf kecil';

'0'..'9' : input:='angka';

else input :='simbol';

end;

writeln('data yang anda masukkan adalah: ',input);

readln;

end.

Program Case 4

program kategori_umur;

uses crt;

var umur:integer;

kategori:string;

begin

        clrscr;

        write('masukkan umur: ');

        readln(umur);

case umur of

0..5: kategori :='balita';

6..12: kategori :='anak-anak';

13..17:kategori :='abg';

18..24:kategori :='dewasa muda';

25..50:kategori :='dewasa';

else kategori :='manula';

end;

writeln('anda termasuk kategori usia: ',kategori);

readln;

end.

Program Case 3

program gaji;

uses crt;

var gol:char;

gapok :longint;

begin

        clrscr;

        write('masukkan golongan[a,b,c,d]: ');

        readln(gol);

case gol of

'a' : GAPOK:=2000000;

'b' : GAPOK:=1750000;

'c' : GAPOK:=1500000;

'd' : GAPOK:=1250000;

else gapok:=1000000;

end;

writeln('gaji pokok: ',GAPOK);

readln;

end.

Program Case 2

program nilai;

uses crt;

var nim,nama,nh,pred,ket:string;

na:integer;

begin

        clrscr;

        write('masukkan nim: ');

        readln(nim);

        write('masukkan nama: ');

        readln(nama);

        write('nilai akhir: ');

        readln(na);

case na of

00..30: begin

         nh:='e';

         pred:='buruk';

         end;

31..55: begin

         nh:='d';

         pred:='kurang';

         end;

56..66: begin

         nh:='c';

         pred:='cukup';

         end;

67..80: begin

         nh:='b';

         pred:='baik';

         end;

81..100:begin

         nh:='a';

         pred:='amat baik';

         end;

end;

write('nilai huruf: ');

writeln(nh);

write('predikat: ');

writeln(pred);

readln;

end.