Program bilang_wow
Uses Crt;
Var
Nil1, Nil2 : Integer;
NilRata : Real;
Grade : Char;
Keterangan : String;
Begin
ClrScr;
Write('Masukan Nilai 1 : ');
ReadLn(Nil1);
Write('Masukan Nilai 2 : ');
ReadLn(Nil2);
NilRata := (Nil1 + Nil2)/2;
WriteLn('Nilai Rata-Rata = ', NilRata:5:2);
IF NilRata >= 90 THEN
Begin
Grade := 'A';
Keterangan := 'AMAZING, TERUS LOE HARUS BILANG WOW !!!';
End
ELSE IF NilRata >= 80 THEN
Begin
Grade := 'B';
Keterangan := 'KEREN'
End
ELSE IF NilRata >= 70 THEN
Begin
Grade := 'C';
Keterangan := 'LUMAYAN DEH'
End
ELSE
Begin
Grade := 'E';
Keterangan := 'MISSION FAILED, NGGAK USAH BILANG WOW!';
End;
WriteLn('Grade Nilai yang loe dapat = ',Grade);
WriteLn('Keterangan Nilai = ',Keterangan);
ReadLn;
End.
Uses Crt;
Var
Nil1, Nil2 : Integer;
NilRata : Real;
Grade : Char;
Keterangan : String;
Begin
ClrScr;
Write('Masukan Nilai 1 : ');
ReadLn(Nil1);
Write('Masukan Nilai 2 : ');
ReadLn(Nil2);
NilRata := (Nil1 + Nil2)/2;
WriteLn('Nilai Rata-Rata = ', NilRata:5:2);
IF NilRata >= 90 THEN
Begin
Grade := 'A';
Keterangan := 'AMAZING, TERUS LOE HARUS BILANG WOW !!!';
End
ELSE IF NilRata >= 80 THEN
Begin
Grade := 'B';
Keterangan := 'KEREN'
End
ELSE IF NilRata >= 70 THEN
Begin
Grade := 'C';
Keterangan := 'LUMAYAN DEH'
End
ELSE
Begin
Grade := 'E';
Keterangan := 'MISSION FAILED, NGGAK USAH BILANG WOW!';
End;
WriteLn('Grade Nilai yang loe dapat = ',Grade);
WriteLn('Keterangan Nilai = ',Keterangan);
ReadLn;
End.