Dalam mengunakan record dalam pascal kita bisa menggunakan dengan berbagai cara dalam coodingan sebagai berikut :
uses crt;
var a,b,c,d:integer;
kelas:array[1 .. 3] of string;
nama:array[1 .. 3,1 .. 15] of string;
npm:array[1 .. 3,1 .. 15] of string;
begin
clrscr;
writeln('DAFTAR MAHASISWA');
writeln('UNIVERSITAS GUNADARMA');
for a:= 1 to 3 do
begin
write('kelas : ');
readln(kelas[a]);
for b:= 1 to 15 do
begin
write('nama : ');
readln(nama[a,b]);
write('npm : ');
readln(npm[a,b]);
end;
clrscr;
end;
for c:= 1 to 3 do
begin
write('daftar mahasiswa kelas : ');
writeln(kelas[c]);
for d:= 1 to 15 do
begin
write('nama : ');
writeln(nama[c,d]);
write('npm : ');
writeln(npm[c,d]);
readln;
end;
end;
readln;
end.
dan akan menghasilkan output :
selamat mencoba kawan :)
15.52 |
Category: |
0
komentar
Comments (0)