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