Program Penilaian (pascal)

Program Penilaian (pascal)

Friday, September 04, 2015, Friday, September 04, 2015
Program Penilaian (pascal) - Hallo sahabat 116Lou.com, Pada Artikel yang anda baca kali ini dengan judul Program Penilaian (pascal), kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya, mudah-mudahan isi postingan Artikel Pemrograman, Artikel Software, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Program Penilaian (pascal)
link : Program Penilaian (pascal)

Program Penilaian (pascal)

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.




Demikianlah Artikel Program Penilaian (pascal)

Sekianlah artikel Program Penilaian (pascal) kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Program Penilaian (pascal) dengan alamat link https://www.116lou.com/2015/09/program-penilaian-pascal.html

TerPopuler