Beranda » Algoritma » Pascal » MENGGUNAKAN SINTAk CASE OF

MENGGUNAKAN SINTAk CASE OF

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

JS08

PENGGUNAAN CASE OF

Ini dia fungsi pilihan yang kedua, yaitu CASE – OF. Bedanya dengan IF, kalau CASE dapat dengan mudah kita buat pernyataan lebih dari 2 pernyataan. Supaya lebih jelas, baca dulu deh strukrur penulisan programnya.

Struktur CASE – OF dipakai dalam memilih kemungkinan lebih dari 2 pilihan. Bentuk umum dari struktur case – of adalah sebagai berikut :

Case <varibel> of

<konstanta 1> : <pernyataan 1>

<konstanta 2> : <pernyataan 2>

<konstanta 3> : <pernyataan 3>

.

.

else <pernyataan n>

end;

Varibel dan konstanta pada bentuk struktur case – of di atas harus berupa data ordinal, yaitu tipe integer atau char. Perhatikan tipe data untuk varibel pada contoh di bawah ini !

Program Case_Of;

Uses Crt;

Var nilai : char ;

Ket : string;

Begin

Writeln(‘Masukan nilainya A/B/C/D ! ’); Readln(nilai);

Case nilai Of

‘A’ : Ket:=’Baik Sekali’ ;

‘B’ : Ket:=’Baik’ ;

‘C’ : Ket:=’Cukup’ ;

‘D’ : Ket:=’Kurang’ ;

else : Ket:=’Anda salah memasukkan nilai’;

end;

Writeln(‘Nilai Anda : ’,Ket) ;

End.

Perhatikan tipe data nilai pada bagian deklarasi adalah char, dan apabila memasukkan nilai selain A, B, C, dan D akan menjalankan pernyataan pada konstanta else.

Sebuah Case diperbolehkan mempunyai lebih dari 1 konstanta, misalnya :

Case nomor Of

1,2 : Harga := 5000;

3..5 : Harga := 6000;

end.

Cuplikan program di atas menunjukkan bahwa apabila nilai pada konstanta nomor bernilai 1 dan 2, maka isi varibel Harga adalah 5000 sedangkan apabila nilai 3 sampai dengan 5 berharga 6000.

Ok..!! Sekarang coba contoh – contoh programnya

Contoh01:

1. Program Bioskop1;

2. Uses Crt;

3. Var Ukuran : char;

4. Banyak : integer;

5. Harga,Jumlah: real;

6. Begin

7. ClrScr;

8. Write(‘Ukuran jaket (S/M/L) : ‘); Readln(Ukuran);

9. Write(‘Banyak jaket : ‘); Readln(Banyak);

10. Case Ukuran of

11. ‘S’ : Harga :=6500;

12. ‘M’ : Harga :=7100;

13. ‘L’ : Harga :=7400;

14. end;

15. Jumlah:=Banyak * Harga;

16. Writeln;Writeln;

17. Writeln(‘Jumlah yang harus dibayar = Rp ‘,Jumlah:8:0);

18. End.


4 Komentar

  1. irdha mengatakan:

    terimaksih….semoga lebih lengkap lagi….

    • wisnurat mengatakan:

      @ridha
      insya 4W1, kedepan akan saya tambah lagi. soalnya utk materi pelajaran saya post di wisnuedu.blogspot.com

  2. aulia mengatakan:

    perlu di timgkatkan…

  3. Fahry_co mengatakan:

    Trmaksh mas wisnu. .
    Cnth2 yg mggunakn struktr lainx jg dong?spt if-then.,for. .
    Tp trmaksh sdh membantu.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: