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 »