PASCAL

program RecordArray; uses crt; const max = 100; type TSiswa = Record NIM : string[8]; Nama : string[25]; Nilai : array[1..3] of real; end; TKumpulanSiswa = Array[1..MAX] of TSiswa; var A: TKumpulanSiswa; i, N: Integer; NA: real; begin Write ('Masukan jumlah siswa yang akan diisikan :'); readln (N); writeln; {Memasukan Data} writeln('Memasukan Data'); writeln('-------------------------------'); for i:=1 to N do Begin writeln('Data Siswa ke-', i); with A[i] do begin write('NIM : '); readln(NIM); write('Nama : '); readln(Nama); writeln('Nilai'); write(' Nilai ke-1 (Kuis) : '); readln(Nilai[1]); write(' Nilai ke-2 (UTS) : '); readln(Nilai[2]); write(' Nilai ke-3 (UAS) : '); readln(Nilai[3]); End; writeln; end; {Menampilkan data} writeln (' DAFTAR NILAI SISWA '); writeln (' ----------------------------------------------------'); writeln ('NI': 8, '':2, 'Nama':25, '':2, 'nilai'); writeln (' ----------------------------------------------------'); for i:=1 to N do begin with A[i] do begin NA := (0.2*Nilai[1]) + (0.3*Nilai[2]) + (0.5*Nilai[3]); write(NIM: 8, '':2, Nama:25, '':2, NA:0:2); End; writeln; End; Readln; end.