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 (')
0 komentar:
Post a Comment