Algoritma dan Pemrograman II
MATERI 4 PENYELEKSIAN KONDISI Terkadang suatu program akan membutuhkan suatu penyeleksian kondisi. Dengan menyeleksi suatu kondisi, program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari hasil kondisi yang diseleksi tersebut. Untukmenyeleksi suatu kondisi, di dalam bahasa Pascal dapat dipergunakan statemen If dan statemen Case.
Statemen IF Struktur dari statemen if dapat berupa if - then atau if – then – else. 1. Struktur If – Then Bentuk dari struktur if – then adalah : If ungkapan Then statemen Ungkapan adalah kondisi yang akan diseleksi oleh statemen if. Bila kondisi yang diseleksi terpenuhi, maka statemen yang mengikuti then akan diproses. Sebaliknya, bila kondisi tidak terpenuhi, maka yang akan diproses adalah statemen berikutnya. Mulai
Dari pernyataan di samping bisa diartikan, bila nilai lebih atau sama dengan 65, maka dinyatakan “Tuntas”. Jika tidak maka tidak menghasilkan output apapun (selesai)
Program Seleksi Nilai
Input Nilai
Tidak
Ya Nilai >= 65
Selesai
Cetak "Tuntas"
CONTOH : program Seleksi_Nilai; var Nilai : integer; begin Writeln ('Program Ketuntasan Siswa'); Writeln ('------------------------'); Writeln; Write ('Nilai Yang Diperoleh = '); Readln (Nilai); Writeln; If Nilai >= 60.5 Then Writeln ('T u n t a s'); end.
R. Denny Ari Wibowo, S.Kom
hal. 1
Algoritma dan Pemrograman II
2. Struktur If – Then – Else Bentuk dari struktur if – then - else adalah : If ungkapan Then statemen_1 Else statemen_2 Ungkapan adalah kondisi yang akan diseleksi oleh statemen if. Bila kondisi yang diseleksi terpenuhi, maka statemen_1 yang mengikuti then akan diproses, jika tidak maka statemen_2 yang mengikuti else yang akan diproses.
Mulai
Dari pernyataan di samping bisa diartikan, bila nilai lebih atau sama dengan 65, maka dinyatakan “Tuntas”, kemudian selesai. Tetapi jika tidak maka dinyatakan “Tidak Tuntas”, kemudian selesai
Program Seleksi Nilai
Input Nilai
Tidak
Nilai >= 65
Ya
Cetak "Tuntas"
Cetak "Tidak Tuntas"
Selesai
CONTOH : program Seleksi_Nilai; var Nilai : integer; Ket : String [15]; begin Ket := 'Tidak Tuntas'; Writeln ('Program Ketuntasan Siswa'); Writeln ('------------------------'); Writeln; Write ('Nilai Yang Diperoleh = '); Readln (Nilai); Writeln; If Nilai >= 65 Then Writeln ('T u n t a s'); Writeln (Keterangan); end.
3. Struktur If Tersarang (If Nested) Merupakan bantuk dari suatu statemen If yang beadadidalam lingkungan statemen if yang lainnya.
R. Denny Ari Wibowo, S.Kom
hal. 2
Algoritma dan Pemrograman II
CONTOH : program Seleksi_Nilai; uses Crt; var Nilai : real; Kelas : Byte; Ket : String [15]; begin ClrScr; Ket := 'Tidak Tuntas'; Writeln ('Program Ketuntasan Siswa'); Writeln ('------------------------'); Writeln; Write ('Kelas <1> atau <2> = '); Readln (Kls); Write ('Nilai Yang Diperoleh = '); Readln (Nilai); Writeln; If Kls = 1 Then Begin If Nilai >= 65 Then Writeln ('T U N T A S') Dalam Else Writeln (Ket); End Luar Else Begin If Nilai >= 70 Then Writeln ('T U N T A S') Dalam Else Writeln (Ket); End; Readln; end.
Statemen CASE Struktur dari statemen case dapat berupa case - of atau case – of – else. 1. Struktur Case – Of Struktur case-of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector. Statemen yang mempunyai case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak. Jadi bila salah satu kondisi terpenuhi dan statemen tersebut telah diproses, selanjutnya statemen-statemen yang laninnya dalam lingkungan case tidak akan diseleksi lagi.
R. Denny Ari Wibowo, S.Kom
hal. 3
Algoritma dan Pemrograman II
Bentuk dari struktur case – of adalah : Case ungkapan Of daftar case-label 1: statemen_1 daftar case-label 2: statemen_2 daftar case-label 3: statemen_3 . . . daftar case-label n: statemen_n End; Daftar case-label dapat berupa sebuah konstanta atau range dasri konstanta yang buka bertipe real; CONTOH : Program Hasil_Nilai; Var Nilai : byte; Begin Write ('Nilai huruf yang didapat = '); Readln (Nilai); Case Nilai Of 'A' : Writeln ('Sangat Baik'); 'B' : Writeln ('Baik'); 'C' : Writeln ('Cukup'); 'D' : Writeln ('Kurang'); End; End.
2. Struktur Case – Of – Else Struktur case-of-else merupakan perngembangan dari struktur case-of. Pada struktur ini, bila tidak ada kondisi yang terpenuhi, maka statemen yang akan diproses di dalam lingkungan case-of adalah yang ada di else. Bentuk dari struktur case – of - else adalah : Case ungkapan Of daftar case-label 1: statemen_1 daftar case-label 2: statemen_2 daftar case-label 3: statemen_3 . . . Else statemen_n End;
R. Denny Ari Wibowo, S.Kom
hal. 4
Algoritma dan Pemrograman II
CONTOH : Program Hasil_Nilai; Var Nilai : byte; Begin Write ('Nilai huruf yang didapat = '); Readln (Nilai); Case Nilai Of 'A' : Writeln ('Sangat Baik'); 'B' : Writeln ('Baik'); 'C' : Writeln ('Cukup'); Else Writeln ('Kurang'); End; End.
PUSTAKA Jogiyanto H. M., Turbo Pascal 5.0, Jilid 1, Andi Offset, Yogyakarta, 1999.
http://ilmukomputer.org R. Denny Ari Wibowo, S.Kom
hal. 5
Algoritma dan Pemrograman II
PRAKTEK 1. Cobalah contoh-contoh di atas dan analisis hasilnya ! 2. Cobalah program berikut : program Tabung; uses Crt; Label Lagi; Var R, Tinggi, Luas, Volum : Real; Jawab : Char; Begin Lagi : ClrScr; Writeln; Writeln ('Program Tabung'); Writeln ('--------------'); Writeln; Writeln ('Diketahui'); Write ('Jari-jari alas tabung = '); Readln(R); Write ('Tinggi tabung = '); Readln(T); Writeln; Luas := (2*pi*R*R) + (2*pi*R*T); Volume := pi* R*R*T; Writeln ('Luas Tabung = ', Luas:7:2); Writeln; Writeln ('Volume Tabung = ', Volume:7:2); Writeln; Write ('Akan Menghitung Lagi (Y/T) ? '); Readln(Jawab); If (Jawab = 'Y') or (Jawab = 'y') Then Goto Lagi Else Begin Writeln; Writeln ('Terima Kasih !!!!'); Writeln ('Byeeeee !!!!'); End; Readln; End.
3. Buatlah program untuk mendeteksi apakah bilangan yang diinputkan adalah bilangan nol, negatif atau positif. 4. Buatlah program untuk mendeksi bidang datar di lihat dari jumlah sisinya, apakah persegi, segitiga, segi banyak atau bukan bidang datar. 5. Buatlah program kalkulator, untuk menghitung dua bilangan yang diinputkan ! Gunakan menu untuk memilih proses perhitungan yang dikehendaki user ! KALKULATOR -----> MENU <----1. PENJUMLAHAN 2. PENGURANGAN 3. PERKALIAN 4. PEMBAGIAN Pilih Nomor (1 – 4) : …
R. Denny Ari Wibowo, S.Kom
hal. 6
