Tuesday, March 3, 2009

RECORD

program contohrecord;
uses wincrt;
type TAlamat = record
NamaJalan : string[20];
NoJalan : integer;
Kota : string[21];
KodePos : string[5];
end;
TSiswa = record
NIM : string[8];
Nama : string[25];
Alamat : TAlamat;
end;
var
N,i : integer;
A: array [1..100] of TSiswa;
S:TAlamat;

begin
write('masukan banyaknya siswa');readln(n);
for i:=1 to n do
begin
with A[I] do begin
writeln('NIM=');readln(NIM);
writeln('Nama=');readln(Nama);
end;
WRITELN('Alamat');
with S do BEGIN
writeln('Namajalan=');readln(NamaJalan);
writeln('NoJalan=');readln(NoJalan);
writeln('Kota=');readln(kota);
writeln('kodepos');readln;
end;
end;
for i:=1 to n do
begin

with A[I] DO BEGIN
writeln(NIM,' ',NAMA:25, ' ',S.NamaJALAN,' ',S.NoJalan,' ',S.Kota,' ',S.KodePos);
end;
end;
end.

No comments: