Pernyataan Case Dalam Pemograman Pascal

Pernyataan case-of

Pernyataan Case Dalam Pemograman Pascal

Pernyataan case-of

Jalankan program ini! perhatikan hasilnyal. Kemudian ubahlah program tersebut menjadi:

1. Program pernnyataan_case_of;
2. Uses crt;
3. Var nilai   : integer;
4. Nama    : string;
5. Begin
6.     Clrscr;
7.     Writeln(' Mencoba pernyataan case of :');
8.     Writeln;
9.     Write(' Masukkan Nama Anda: ? ');
10.     Readln(nama);
11.     Write(' Masukkan Nilai 1-10 : ? ');
12.     Readln(nilai);
13.     Case nilai of
14.         1   : writeln(' Anda menekan angka satu');
15.         2   : writeln(' Anda menekan angka dua');
16.         3   : writeln(' Anda menekan angka tiga');
17.         4   : writeln(' Anda menekan angka empat');
18.         5   : writeln(' Anda menekan angka lima');*
19.         6   : writeln(' Anda menekan angka enam');
20.         7   : writeln(' Anda menekan angka tujuh');
21.         8   : writeln(' Anda menekan angka delapan');
22.         9   : writeln(' Anda menekan angka sembilan');
23.         10 : writeln(' Anda menekan angka sepuluh');
24.     end;
25. readln
26. End.

Perhatikan hasilnyal. Coba dengan input huruf kecil bagaimana hasilnya! Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_case_of;
2. Uses crt;
3. Var nilai   : char;
4. Nama    : string;
5. Begin
6.     Clrscr;
7.     Writeln(' Mencoba pernyataan case of :');
8.     Writeln;
9.     Write(' Masukkan Nama Anda: ? ');
10.     Readln(nama);
11.     Write(' Masukkan Nilai A..E : ? ');
12.     Readln(nilai);
13.     Case nilai of
14.         'A' : writeln(' Anda menekan huruf A');
15.         'B' : writeln(' Anda menekan huruf B');
16.         'C' : writeln(' Anda menekan huruf C');
17.         'D' : writeln(' Anda menekan huruf D');
18.         'E' : writeln(' Anda menekan huruf E');
19.     end;
20. readln
21. End.

Perhatikan hasilnyal. Coba dengan input huruf kecil bagaimana hasilnya! Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_case_of;
2. Uses crt;
3. Var nilai : char;
4. Nama    : string;
5. Begin
6.     Clrscr;
7.     Writeln(' Mencoba pernyataan case of :');
8.     Writeln;
9.     Write(' Masukkan Mama Anda: ? ');
10.     Readln(nama);
11.     Write(' Masukkan Nilai A..E : ? '):
12.     Readln(nilai);
13.     Case nilai of
14.         'A' , 'a' : writeln(' Anda menekan huruf A');
15.         'B' , 'b'   : writeln(' Anda menekan huruf B');
16.         'C' , 'c'   : writeln(' Anda menekan huruf C');
17.         'D' , 'd'   : writeln(' Anda menekan huruf D');
18.         'E' , 'e' : writeln(' Anda menekan huruf E');
19.     end;
20. readln
21. end.

Perhatikan hasilnyal. Coba dengan input huruf kecil bagaimana hasilnya! Program ini dapat juga ditulis seperti berikut ini:

1. Program Pernyataan_case_of_dg_pernyataan_jamak; Uses crt;
2. Var nilai   : char;
3. Nama : string;
4. Begin
5.     Clrscr;
6.     Writeln(' Mencoba pernyataan case of :');
7.     Writeln;
8.     Write(' Masukkan Nama Anda: ? ');
9.     Readln(nama);
10.     Write(' Masukkan Nilai A..E : ? ');
11.     Readln(nilai);
12.     Case nilai of
13.         'A','a' : begin writeln(' Nama anda : ',nama);
14.             writeln(' Mendapat nilai A'); end; 'B','b' : begin writeln(' Nama anda : ',nama);
15.             writeln(' Mendapat nilai B'); end; 'C','c' : begin writeln(' Nama anda : ',nama);
16.             writeln(' Mendapat nilai C'); end; 'D','d' : begin writeln(' Nama anda : ',nama);
17.             writeln(' Mendapat nilai D'); end; 'E','e' : begin writeln(' Nama anda : ',nama);
18.             writeln(' Mendapat nilai E'); end;
19.     end;
20. readln
21. End.

Perhatikan hasilnya, coba dengan input huruf kecil bagaimana hasilnya!

Kemudian ubahlah program ini menjadi:

1. Program Pernyataan_case_of_dg_pernyataan_jamak; Uses crt;
2. Var nilai   : char;
3. Nama : string;
4. Begin
5.     Clrscr;
6.     Writeln(' Mencoba pernyataan case of :');
7.     Writeln;
8.     Write(' Masukkan Nama Anda: ? ');
9.     Readln(nama);
10.     Write(' Masukkan Nilai A..E : ? ');
11.     Readln(nilai);
12.     Case nilai of
13.         `A', 'a'    : begin
14.             writeln(' Nama anda : ',nama); writeln(' Mendapat nilai A');
15.     end;
16.         'B' , 'b'   : begin
17.             writeln(' Nama anda : ',nama); writeln(' Mendapat nilai B');
18.     end;
19.         `C' , 'c'   : begin
20.             writeln(' Nama anda : ',nama); writeln(' Mendapat nilai C');
21.     end;
22.         `D' , 'd'   : begin
23.             writeln(' Nama anda : ',nama); writeln(' Mendapat nilai D');
24.     end;
25.         'E' , 'e'   : begin
26.             writeln(' Nama anda : ',nama);
27.             writeln(' Mendapat nilai E');
28.         end;
29.     end;
30. readln
31. End.

Perhatikan hasilnyal. Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_case_of_dig_range;
2. Uses crt;
3. Var h   : char;
4. Nama    : string;
5. Begin
6.     Clrscr;
7.         Writeln(' Mencoba pernyataan case of :');
8.         Writeln;
9.         Write(' Masukkan Nama Anda: ? ');
10.     Readln(nama);
11.         Write(' Masukkan huruf atau angka ? ');
12.     Readln(h);
13.     Case h of
14.         `A' 'Z': writeln(' Anda menekan huruf besar :',h );
15.         'a' 'z': writeln(' Anda menekan huruf kecil :',h);
16.         '0' '9': writeln(' Anda menekan angka : ',h);
17.     end;
18. readln
19. End.

Perhatikan hasilnyal. Bagaimanakah jika menginput nilai lebih dari 100. Gunakan pernyataan case-of-else untuk menjawabnya.

1. Program Pernyataan_case_of_dg_range;
2. Uses crt;
3. Var nilai   : integer;
4. Nama    : string;
5. Begin
6.     Clrscr;
7.         Writeln(' Mencoba pernyataan case of :');
8.         Writeln;
9.         Write(' Masukkan Nama Anda: ? ');
10.     Readln(nama);
11.         Write(' Masukkan Nilai 0-100 (nilai bilangan bulat): ? ');
12.     Readln(nilai);
13.     Case nilai of
14.         85 .. 100: begin
15.             writeln(' Nama anda : ',nama);
16.             writeln(' Mendapat nilai : A');
17.         end;
18.         75 .. 84 : begin
19.             writeln(' Nama anda : ',nama);
20.             writeln(' Mendapat nilai B');
21.         end;
22.         60 .. 74 : begin
23.             writeln(' Nama anda : ',nama),
24.             writein(' Mendapat nilai C');
25.         end;
26.         50.. 59 : begin
27.             writeln(' Nama anda : ',nama); writeln(' Mendapat nilai D');
28.         end;
29.         0 .. 49 : begin
30.             writeln(' Nama anda : ',nama);
31.             writeln(' Mendapat nilai E');
32.         end;
33.     end;
34. readln
35. End.

Pernyataan case-of-else

1. Program Pernyataan_case_of_dg_range;
2. Uses crt;
3. Var h   : char;
4.         Nama        : string;
5. Begin
6.         clrscr;
7.             (' Mencoba pernyataan case of :'); Writeln;
8.             Write(' Masukkan Nama Anda: ? ');
9.             Readln(nama);
10.             Write(' Masukkan huruf atau angka ? ');
11.         Readln(h);
12.     case h of
13.         'A' .. 'Z':writeln(' Anda menekan huruf besar : ',h );
14.         `a' 'z' : writeln(' Anda menekan huruf kecil : ',h);
15.         `0' .. '9' : writeln(' Anda menekan angka : ',h);
16.     else writeln(' Anda menekan tombol yang salah,
17.     coba lagi ');
18. end;
19. readln
20. End.

Perhatikan hasilnyal. Bagaimana hasilnya!

Program berikut ini merupakan contoh sederhana program aplikasi dengan menggunakan case-of:

1. Program Aplikasi_case_of;
2.  
3. Uses crt;
4. Var pilih,jml,diskon                        : integer;
5. Nmbrg                           : string;
6. Ulang           : boolean;
7. Lagi            : char;
8. Harsat,hrgbrg,brgpajak,tothrg           : real;
9. Begin
10.     Clrscr;ulang:=true;
11.     While ulang do
12.     Begin
13.         Clrscr;
14.         { cetak menu }
15.             writeln('menu utama');
16.             writeln('    ');
17.             writeln('   1. Hitung harga barang  ');
18.             writeln('   2. Hitung diskon barang ');
19.             writeln('   3. Hitung pajak barang  ');
20.             writeln('   4. Selesai  ');
21.             writeln('   ');
22.             write(' Pilih : - ');readln(pilih);
23.             writeln('---------------------------------- ');
24.         Case pilih of
25. 1 : begin
26.         clrscr;lagi:='Y';
27.             while upcase(lagi)='Y' do
28.     begin
29.         writeln(' Nama barang : ');
30.             readln(nmbrg);
31.         writeln(' Jumlah barang : ');
32.             readln(jm1);
33.         writeln(' Harga Satuan : '); readln(harsat);
34.         tothrg:=jml*harsat;
35.         write1n(' Harga Satuan :    tothrg:12:2);
36.         writeln;write('Isi lagi (Y/T) ? ');
37.             readln(lagi);
38.         end;
39.     end;
40. 2 : begin
41.         clrscr;lagi:='Y';
42.             repeat
43.         writeln(' Nama barang : ');
44.             readln(nmbrg);
45.         writeln(' Harga Satuan : ');
46.             readln(harsat);
47.         writeln(' Diskon (%) : ');
48.             readln(diskon);
49.         hrgbrg:=harsat-(harsat*diskon/100);
50.         writeln(' Harga Barang :    hrgbrg:12:2);
51.         writeln;write('Isi lagi (Y/T) ? ');
52.             readln(lagi);
53.         until upcase(lagi)<>'Y';
54.     end;
55. 3 : begin
56.         clrscr;lagi:='Y';
57.             while upcase(lagi)='Y' do
58.         begin
59.             clrscr;
60.             writeln(' Nama barang : ');
61.                 readln(nmbrg);
62.             writeln(' Harga barang : ');
63.                 readln(hrgbrg);
64.             writeln(' Kena pajak 10 % ');
65.             brgpajak:=10/100*hrgbrg;
66.             writeln(' Harga barang setelah pajak :  brgpajak:12:2);
67.             writeln;write('Isi lagi (Y/T) ? ');
68.                 readln(lagi);
69.             end/
70.         end;
71. 4 : exit;
72. end;
73. end;
74. End.

Contoh aplikasi sederhana dengan menggunakan case-of.

Jalankan program 7.8 ini perhatikan hasilnya!.

Share this

Author : admin

Related Posts