PASCAL SOURCE :

program array3;

uses wincrt;

type
RecordMahasiswa = record
nim: string[10];
nama: string[25];
nilai: real;
umur: byte;
end;

var
DataMahasiswa: array [1..20] of RecordMahasiswa;
banyak, i: integer;

begin

write('Jumlah data yang akan dimasukkan: ');readln(banyak);
writeln('');
for i:=1 to banyak do
begin
write('NIM: ');readln(dataMahasiswa[i].nim);
write('Nama: ');readln(dataMahasiswa[i].nama);
write('Nilai: ');readln(dataMahasiswa[i].nilai);
write('Umur: ');readln(dataMahasiswa[i].umur);
writeln('');
end;

writeln('NIM NAMA NILAI HURUF');
for i:=1 to banyak do
writeln(DataMahasiswa[i].nim:1, DataMahasiswa[i].nama:8, DataMahasiswa[i].nilai:7:2, DataMahasiswa[i].umur:4);

end.


OUTPUT :



No Comment.

Add Your Comment

Your Comment