Program Indeks Nilai "IF"

--------------------------------------------------------------------------------------------------------------------------
program Ideks_nilai;
{I.S : user memasukan nilai}
{F.S : menampilkan indeks nilai}
var
   NA     : integer;
   indeks : string;
begin
   writeln(' Menentukan Indeks Nilai ');
   writeln('-------------------------');
   write('Masuk Nilai Akhir : ');readln(NA);
   writeln('-------------------------');
   if(NA>=89)and(NA<=100)
     then
         indeks :='A'
     else
     if(NA>=79)and(NA<89)
        then
            indeks :='B'
        else
        if(NA>=60)and(NA<79)
           then
               indeks :='C'
           else
           if(NA>=45)and(NA<60)
               then
                   indeks :='D'
               else
                   indeks :='E';
   writeln('Indeks Nilai Akhir adalah : ',indeks);
readln;
end.
--------------------------------------------------------------------------------------------------------------------------

Download Scriptnya :

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.