contoh program record dan penjelasannya

anda ingin contoh program pascal khususnya penggunaan record

Salinlah program berikut ini :

program P0601;

type

tanggal = record

bulan, hari, tahun: integer;

end;

var

waktu: tanggal;

begin

waktu.hari :=25;

waktu.bulan:=09;

waktu.tahun:= 1983;

Writeln('hari ini adalah

',waktu.hari,':',waktu.bulan,':',waktu.tahun')

end.

Berikut ini akan diperkenalkan record dengan menggunakan array.

Salinlah program berikut ini :

program P0602;

const

N = 2;

type

data = record

nrp : string[8];

nama : string[20];

end;

var

mhs : array [1..N] of data;

begin

mhs[1].nrp := '00112398';

mhs[1].nama := 'Eko Agung W';

mhs[2].nrp := '03113551';

mhs[2].nama := 'Ni Luh';

Writeln(mhs[1].nrp);

Writeln(mhs[1].nama);

Writeln(mhs[2].nrp);

Writeln(mhs[2].nama);

end.

Program diatas telah menggunakan record dikombinasi dengan array,

bertujuan untuk mengisi data lebih dari satu. Kemudian salinlah

program yang dibawah ini yang sudah dikombinasikan dengan

perulangan untuk mempermudahkan menginput dan menampilkan

data.           

program P0603;

const

N = 2;

type

tmhs = record

nim : string[11];

nama : string[30];

alamat : string;

end;

var

datamhs: array[1..N] of tmhs;

i, j: integer;

begin

for i:= 1 to N do

begin

with datamhs[i] do

begin

Write('NIM : ');

Readln(nim);

Write('NAMA : ');

Readln(nama);

Write('ALAMAT : ');

Readln(alamat);

end;

end;

for j:= 1 to N do

begin

Writeln('NIM : ',datamhs[j].nim);

Writeln('NAMA : ',datamhs[j].nama);

Writeln('ALAMAT : ',datamhs[j].alamat);

end;

readln;

end.

Kompilasi dan jalankan program di atas. Amati hasil dari program

tersebut. Dengan dikombinasikan perulangan program tersebut akan

lebih baik lagi. Biasanya perulangan disini untuk pencarian data.