program penilaian mahasiswa

program penilaian_MHS;{program ini untuk melihat hasil nilai mahasiswa selama 1 semester}

uses wincrt;

var nama :array[1..20] of string;

tugas,uts, uas,presensi : array[1..20] of integer;

rata :array[1..20] of real;

a,jd : byte;

begin

  clrscr;

  write('Masukkan Jumlah Data Nilai: '); readln(jd);

  for a :=1 tojd do;

  begin

    writeln('PENILAIAN UJIAN MAHASISWA');

    write('Masukkan Nama : '); readln(nama[a]);

    write('Masukkan Nilai Tugas : '); readln(tugas[a]);

    write('Masukkan Nilai UTS : '); readln(uts[a]);

    write('Masukkan Nilai UAS : '); readln(uas[a]);

    write('Masukkan Presensi : '); readln(presensi[a]);

    Rata[a]:=(0.1*tugas[a])+(0.2*uts[a])+(0.3*uas[a])+(0.4*presensi[a]);

  end;

  clrscr;

  for a :=1 tojd do;

  begin

    writeln('PENILAIAN UJIAN MAHASISWA');

    writeln('Nama : ',nama[a]);

    writeln('Nilai Tugas : ',tugas[a]);

    writeln('Nilai UTS : ',uts[a]);

    writeln('Nilai UAS : ',uas[a]);

    writeln('Presensi : ',presensi[a]);

    {untuk menampilkan semua data yang sudah dimasukkan di awal}

    writeln('Rata-rata : ',rata[a]:1:2);{untuk menampilkan rata-rata}

  end;

end.