Program Menentukan Nilai Mutu Sederhana Menggunakan FREE PASCAL IDE

Program Menentukan Nilai Mutu Sederhana

PROGRAM NILAI;

uses crt;

var NA:longint;

    NM:string;

begin

clrscr;

writeln;

write('-----------------------PROGRAM NILAI-----------');READLN;

write('Masukkan Nama Anda       : ');readln(NM);

writeln;

write('Masukkan Nilai Angka     : ');readln(NA);

case (NA) of

        80..100:write('Nilai Mutu Anda adalah   : A');

        65..79: write('Nilai Mutu Anda adalah   : B');

        50..64:write('Nilai Mutu Anda adalah    : C');

        40..49:write('Nilai Mutu Anda adalah    : D');

        0..39:write('Nilai Mutu Anda adalah     : E');

        else

        write('Maaf! input anda salah');

        end;

        readln;

writeln;

write('-----------------------Terima Kasih-------------');readln;

end.

Semoga Bermanfaat.

=======================================================

Jangan lupa kunjungi kami di akun lain

Instagran: https://www.instagram.com/learnanything_bsb/

Twitter: https://www.twitter.com/siska_kojiro/

Blog: https://www.learnanything.blogspot.com/

Youtube Channel: BSB Learn Anything

Facebook: BSB Learn Anything (@bsblearnanything)

WhatsApp: +62 856 6911 0663

Share on Google Plus

About Siska Elvadiningsih