Daftar Nilai Mahasiswa

program Daftar_Nilai_Mahasiswa;
uses crt;
var
   nama,nim : string;
   hadir,tugas,uts,uas : integer;
function NA( hadir,tugas,uts,uas : integer):real;
begin
          NA := hadir*0.10+tugas*0.20+uts*0.30+uas*0.40;
end;
function indeks(hadir,tugas,uts,uas : integer):char;
begin
     if((NA( hadir,tugas,uts,uas) >= 80) and (NA( hadir,tugas,uts,uas)<= 100))
     then
      indeks := 'A'
     else
         if((NA( hadir,tugas,uts,uas)>= 70) and (NA( hadir,tugas,uts,uas)<= 80))
         then
          indeks := 'B'
         else
          if((NA( hadir,tugas,uts,uas)>= 60) and (NA( hadir,tugas,uts,uas) <= 70))
          then
           indeks := 'C'
          else
           if((NA( hadir,tugas,uts,uas)>= 50) and (NA( hadir,tugas,uts,uas)<= 60))
           then
            indeks := 'D'
           else
            indeks := 'E';

end;
procedure Tampil_Data(var hadir,tugas,uts,uas :integer; var nama,nim : string);
var
   i,jmlhA,jmlhB,jmlhC,jmlhD,jmlhE : integer;
   rat_nilai,jumlhNA : real;
begin
      textcolor(red);
      gotoxy(19,3);write('DAFTAR NILAI MAHASISWA');
      gotoxy(19,4);write('----------------------');
      gotoxy(3,5);write('============================================================');
      gotoxy(3,6);write('|NO| NIM     |   NAMA       |HADIR|TUGAS|UTS|UAS|N.A|INDEKS|');
      gotoxy(3,7);write('------------------------------------------------------------');
      gotoxy(3,8);write('|  |         |              |     |     |   |   |   |      |');

i:=1;
      gotoxy(4,8);write(i);
      gotoxy(7,8);readln(nim);
     i:=1;
     jmlhA:=0;
     jmlhB:=0;
     jmlhC:=0;
     jmlhD:=0;
     jmlhE:=0;
     jumlhNA:=0;
     rat_nilai:=0;

while ( i <= 5) do
     begin
      gotoxy(17,i+7);readln(nama);
      gotoxy(33,i+7);readln(hadir);
      gotoxy(40,i+7);readln(tugas);
      gotoxy(45,i+7);readln(uts);
      gotoxy(49,i+7);readln(uas);
      gotoxy(53,i+7);write(NA(hadir,tugas,uts,uas):0:0);

jumlhNA := jumlhNA+NA(hadir,tugas,uts,uas);
      rat_nilai :=jumlhNA/i;

gotoxy(57,i+7);write(indeks(hadir,tugas,uts,uas));
      if(indeks(hadir,tugas,uts,uas)='A')
      then
          jmlhA:=jmlhA+1
      else
      begin
          if(indeks(hadir,tugas,uts,uas)='B')
          then
              jmlhB:=jmlhB+1
          else
              if(indeks(hadir,tugas,uts,uas)='C')
              then
                  jmlhC:=jmlhC+1
              else
                  if(indeks(hadir,tugas,uts,uas)='D')
                  then
                      jmlhD:=jmlhD+1
                  else
                      jmlhE:=jmlhE+1;
       end;

i:=i+1;
        gotoxy(3,i+7);write('|  |         |              |     |     |   |   |   |      |');
        gotoxy(3,i+8);write('------------------------------------------------------------');
        gotoxy(4,i+7);write(i);
        gotoxy(7,i+7);readln(nim);
        if(i=6)then
        begin
           gotoxy(7,13);textcolor(yellow);write(' STOP! ');
        end;
   end;
   textcolor(green);
   gotoxy(3,17);write('Jumlah  Indeks A : ',jmlhA,' Mahasiswa');
   gotoxy(3,18);write('Jumlah  Indeks B : ',jmlhB,' Mahasiswa');
   gotoxy(3,19);write('Jumlah  Indeks C : ',jmlhC,' Mahasiswa');
   gotoxy(3,20);write('Jumlah  Indeks D : ',jmlhD,' Mahasiswa');
   gotoxy(3,21);write('Jumlah  Indeks E : ',jmlhE,' Mahasiswa');
   gotoxy(3,23);write('Rata-Rata Nilai Akhir     : ',rat_nilai:0:0);

end;

begin
    Tampil_Data(hadir,tugas,uts,uas,nama,nim);
    readln;
end.

Maka Tampilan Akan Seperti Ini :

Penulis : Adytama-surya ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Daftar Nilai Mahasiswa ini dipublish oleh Adytama-surya pada hari Minggu, 09 Desember 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Daftar Nilai Mahasiswa