Kamis, 12 April 2012

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.

Tidak ada komentar:

Poskan Komentar

Diberdayakan oleh Blogger.

Out Sponsor