contoh program array

Program Penilaian Mahasiswa : contoh program arrray, untuk menghitung nilai rata-rata nilainya selama 1 semester. di bawah ini :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

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 to jd 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 to jd 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.