03 Juli 2019

Mengenal Instruksi Case .. Of Pada Delphi

www.niguru.com
Niguru.com | Rabu, 3 Jul 2019 | Pada posting sehari sebelumnya Niguru.com sudah menjelaskan mengenai instruksi If .. Then yang digunakan untuk membantu pengambilan keputusan. Instruksi ini cocok digunakan bila terdapat hanya 2 opsi saja dalam pilihan pengambilan keputusan.

Pada posting kali ini Niguru.com akan menjelaskan instruksi Case .. Of, yang mempunyai fungsi yang serupa dengan If .. Then, namun cocok untuk pengambilan keputusan dengan banyak opsi (lebih dari 2 opsi).

Bagi pembaca yang mengenal Visual Basic akan melihat kemiripan instruksi ini dengan instruksi Select Case pada Visual Basic, hanya saja pada Delphi instruksi tidak diakhiri dengan END, namun cukup ditutup dengan karakter titik koma (semi colon).

Format penulisannya adalah:

Case {variabel kondisi} Of
Kondisi1: 
Begin
{Instruksi opsi kondisi1}
End;
Kondisi2: 
Begin
{Instruksi opsi kondisi2}
End;
Kondisi3: 
Begin
{Instruksi opsi kondisi3}
End;
Else
Begin
{Instruksi opsi else (selain opsi yang ada)}
End;

Untuk instruksi yang hanya satu baris, tidak diperlukan begin .. end; instruksi bisa dituliskan langsung setelah karakter titik dua (colon). Sehingga penulisan bisa lebih ringkas.

Format penulisannya:

Case {variabel kondisi} Of
Kondisi1: {Instruksi opsi kondisi1};
Kondisi2: {Instruksi opsi kondisi2};
Kondisi3: {Instruksi opsi kondisi3};
Else {Instruksi opsi else (selain opsi yang ada)};

Contoh penggunaannya:

var
a:integer;
begin
write('masukkan angka antara 5 .. 7: ');readln(a);
case a of
5:writeln('anda mengetikkan angka lima');
6:writeln('anda mengetikkan angka enam');
7:writeln('anda mengetikkan angka tujuh');
else writeln('angka yang anda ketikkan bukan diantara 5 ..7');
end;
readln;
end.

www.niguru.com


Hasilnya:


www.niguru.com

www.niguru.com



Bila diisikan nilai diluar 5 .. 7:


www.niguru.com

Demikianlah penjelasan mengenai instruksi Case .. Of sebagai instruksi untuk pengambilan keputusan.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Tidak ada komentar:

Posting Komentar