Ini adalah codingan menggunakan Bahasa Pemrogramn Pascal dengan adanay Array dan Record didalamnya. Record dan array juga memiliki fungsi yang berbeda tapi hampir mirip. Array hanya bisa menggunakan tipe data yang sama (Homogen), sedangkan Record dapat lebih dari satu jenis (Heterogen).
Tanpa basa-basi lagi, ini codingan tentang record dan array, coba di compile sendiri dan pelajari ya, gimana maksud ini dan itunya, selamat bereksperimen :D
# Gk pintar ngajar :v
program biodata_mahasiswa;
uses crt;
type rec = record
nama,nim: string[15];
umur: longint;
end;
var
data: array[1..50] of rec;
n,i : integer;
plh : char;
Procedure Input;
Begin
clrscr;
n:=0;
repeat
clrscr;
inc(n);
writeln('----------------------------');
writeln('| BIODATA MAHASISWA |');
writeln('----------------------------');
writeln('| Data ke-',n,' |');
writeln('----------------------------');
with data[n] do
begin
writeln('Nama : ');
writeln('NIM : ');
writeln('Umur : ');
gotoxy(10,6);readln(nama);
gotoxy(10,7);readln(nim);
gotoxy(10,8);readln(umur);
end;
writeln;
write('Tambah? <Y/N> : '); readln(plh);
until ((plh='N') or (plh='n'));
end;
Procedure kolom;
begin
writeln('| | | | Tahun|');
writeln('|---|---------------------|----------|----------|');
end;
Procedure output;
begin
clrscr;
writeln(' ######################## ');
writeln(' ## BIODATA MAHASISWA ## ');
writeln(' ######################## ');
writeln;
writeln('|-----------------------------------------------|');
writeln('|No.| Nama | NIM | Umur |');
writeln('|-------------------------|----------|----------|');
writeln('| | | | |');
for i:=1 to n do
begin
with data[i] do
begin
gotoxy(1,7+i); kolom;
gotoxy(2,7+i); writeln(i);
gotoxy(7,7+i); writeln(nama);
gotoxy(29,7+i); writeln(nim);
gotoxy(40,7+i); writeln(umur);
end;
end;
readkey;
end;
begin
repeat
clrscr;
writeln(' 1. Input Data ');
writeln(' 2. Lihat Data ');
writeln(' 3. Exit ');
writeln('----------------------');
writeln(' Masukkan Pilihan : ');
gotoxy(21,5); readln(plh);
case plh of
'1' : input;
'2' : output;
'3' : exit;
end;
until (plh)='3';
end.
