STRUKTUR KONDISI PERTEMUAN KE6 IF THEN Pernyataan percabangan
STRUKTUR KONDISI PERTEMUAN KE-6
IF… THEN Pernyataan percabangan If - Then - Else digunakan untuk menjalankan suatu pernyataan atau satu blok pernyataan, tergantung pada nilai yang diuji. Bentuk Umum : IF kondisi THEN statement Contoh : Var Nilai. Ujian : real; Ket : string[11]; Begin Write(‘Nilai yang didapat ? ‘); Readln(Nilai. Ujian); If Nilai. Ujian > 60 Then Ket : =’Lulus’; Writeln(Ket); End.
IF… THEN… ELSE Bentuk Umum : IF kondisi THEN statement_1 ELSE statement_2 Contoh : Var Nilai. Ujian : real; Ket : string[11]; Begin Write(‘Nilai yang didapat ? ‘); Readln(Nilai. Ujian); If Nilai. Ujian > 60 Then Ket : =’Lulus’; Writeln(Ket); Else Ket: = ‘Tidak Lulus’; Writeln(Ket); End.
CASE… OF Pencabangan bersyarat Case digunakan untuk mencabang ke pilihan tertentu berdasarkan pengujian suatu nilai. Struktur pencabangan ini biasa dipakai jika alternatif pencabangannya cukup banyak. Bentuk penulisannya seperti berikut ini CASE ekspresi OF Case label list 1 : statement_1; Case label list 2 : statement_2; Case label list n : statement_n; END; ATAU CASE ekspresi OF Case label list 1 : statement_1; Case label list 2 : statement_2; Case label list n : statement_n; ELSE statement; END;
Contoh 1 : Var Nilai : char; Begin Write(‘Nilai huruf yang didapat’); readln(Nilai); CASE Nilai OF ‘A’ : writeln (‘T-shirt’); ‘B’ : writeln (‘Sepatu’); ‘C’: writeln (‘Topi’); End. Contoh 2 : Var Nilai : char; Begin Write(‘Nilai huruf yang didapat’); readln(Nilai); CASE Nilai OF ‘A’ : writeln (‘T-shirt’); ‘B’ : writeln (‘Sepatu’); ‘C’: writeln (‘Topi’); Else Writeln(‘Pilihan hanya A, B, C’); End.
Contoh Program
Listing Program var edit 2. Text: =keterangan; Form 1: TForm 1; end; nilai : integer; procedure TForm 1. Button 2 Click(Sender: TObject); keterangan : string; begin procedure TForm 1. Button 1 Click(Sender: TObject); close; begin end; nilai : =strtoint (edit 1. Text); case nilai of 90. . 100 : keterangan : = 'A'; 80. . 89 : keterangan : = 'B'; 70. . 79 : keterangan : = 'C'; 60. . 69 : keterangan : = 'D'; 50. . 59 : keterangan : = 'E'; else showmessage('pengisian nilai ditolak'); end;
TERIMA KASIH
- Slides: 8