Contoh Program Record

Program Record Mengisi Biodata Mahasiswa

uses crt;

type mhs=record

nama,nrm : string[20];

umur: integer;

end;

larik = array[1..100] of mhs;

var x:larik;

i,j, n : integer;

procedure bacadata(var x:larik;var n:integer);

begin

clrscr;

write('banyak data : ');readln(n);

for i:=1 to n do begin

write('nama : ');readln(x[i].nama);

write('nrm : ');readln(x[i].nrm);

write('umur : ');readln(x[i].umur);

end;

end;

procedure sort(var X:larik;n:integer); {mengurutkan data }

var t:mhs;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

if x[i].nama>x[j].nama then begin

t:=x[i];x[i]:=x[j];x[j]:=t;

end;

end;

procedure cetak(x:larik;n:integer);

begin

clrscr;

writeln('datanya : ');

for i:=1 to n do begin

if (x[i].umur>=19) and (x[i].umur<=56) then

writeln(x[i].nama,' ', x[i].nrm,' ',x[i].umur);

end;

end;

begin {program utama}

bacadata(x,n);

sort(x,n);

cetak(x,n);

end.

Semoga bermanfaat

Kasih jempol dan komentar ya :D

Jangan lupa kunjungi facebook ku :)

Terimakasih :)