program ArrayRecord;
uses wincrt;
const max = 100;
type
TSiswa = record
NIM:string[8];
Nama:string[30];
end;
TKumpulanSiswa = array[1..max] of TSiswa;
var
a: TkumpulanSiswa;
i,n: integer;
begin
clrscr;
write('Masukan jumlah siswa yang diinginkan');
readln(n);
writeln;
{masukan data ke array}
writeln('Memasukan data');
writeln('________________');
for i:=1 to n do begin
writeln('Data siswa ke-',i);
write('NIM :');readln(A[i].NIM);
write('Nama:');readln(A[i].Nama);
writeln;
end;
{menampilkan data dari array}
writeln;
writeln('DAFTAR SISWA');
writeln('_________________');
writeln('NIM ', '':2,' NAMA');
writeln('_________________');
for i:=1 to n do begin
with A[i] do begin
writeln(NIM:8, '':2, Nama);
end;
end;
end.
Tidak ada komentar:
Posting Komentar