Contoh Record

Berikut contoh sederhana penggunaan tipe data record yang ditulis dengan menggunakan Delphi Console :

Type
hsl = Record
r,kll.luas:real;
end;
const pi=3.14;
var lingkaran : hsl;
begin
write('Inputkan nilai jari-jari : ');readln(r);
lingkaran.kll:=2*pi*lingkaran.r;
lingkaran.luas :=pi*sqr(lingkaran.r);
writeln;
writeln(#10'Keliling lingkaran adalah : ',lingkaran.kll:5:2);
writeln('Luas lingkaran adalah : ',lingkaran.Luas:5:2);
readln;
end.