Struktur Kendali CASE

CASE digunakan untuk memilih diantara banyak pilihan. 

Pernyataan CASE digunakan untuk menyederhanakan  konstruksi  if..else if yang terlalu 

banyak. Secara sederhana, struktur percabangan CASE mirip seperti struktur IF THEN 

ELSE yang berulang. Jika di dalam IF THEN ELSE kita memiliki format penulisan seperti 

berikut:

IF (kondisi1) THEN   (kode program 1) ELSE IF (kondisi2)  THEN   (kode program 2) ELSE IF (kondisi3)  THEN   (kode program 3)

Maka di struktur CASE, format penulisannya seperti ini:

CASE (expression) OF   kondisi 1 : (kode program 1);   kondisi 2 : (kode program 2);   kondisi 3 : (kode program 3); end;

Expression adalah ‘sesuatu’ yang akan di periksa nilainya. Jika nilai dari expression ini sama dengan kondisi 1, maka yang dijalankan adalah (kode program 1), jika sesuai dengan kondisi 2, maka yang akan dijalankan adalah (kode program 2), dst.

Untuk materi dan contoh Silahkan download disini

Baca Selengkapnya »

UTS 2018 "Penggunaan Fungsi IF dan CASE

program UTS2018;
Uses crt;
Var
Nm, Npm, kelas, kd_mk, nm_mk, ket : string;
na : byte;
nh : char;

Begin
Textcolor (RED);
Clrscr;
Writeln("*** UTS STMIK  KRISTEN NEUMAN INDONESIA***");
Write("NPM ="); readln(npm);
Write("NAMA="); readln(nm);
Write("KELAS="); readln(kelas);

write("input kode matakuliah :"); readln(kd_mk);
     if kd_mk ="AP"   then nm_mk:="Algoritma Pemograman"
else if kd_mk ="BIG"  then nm_mk:="Bahasa Inggris"
else if kd_mk ="BIND" then nm_mk:="Bahasa Indonesia"
else if kd_mk ="MM"   then nm_mk:="Matematika";
writeln("Nama Matakuliah =",nm_mk);
TEXTCOLOR (YELLOW);
Write("input nilai angka ="); readln(na);
Case na of
81..100 : nh:="A";
71..80  : nh:="B";
61..70  : nh:="C";
51..60  : nh:="D";
0..50   : nh:="E";
End;
Writeln("Nilai huruf  =",nh);
if nh="A" THEN KET :="MENDAPAT BEASISWA";
 Writeln("keterangan =",ket);
 WRITELN("");
 WRITELN("");
 WRITELN("Denni M Rajagukguk");READLN;
End.

NB: Harap diperhatikan baik baik codingnya, banyak jebakannya. Seamat mencoba  (')

Baca Selengkapnya »