Program Komputer Record Pada Turbo Pascal

Record merupakan jenis tipe data terstruktur yang berisi beberapa data, yang masing-masing dapat berlainan tipe termasuk bertipe array.
Berikut contoh program komputer record :

program Data_Buku;

uses wincrt;

Type buku = record       

            JudulBuku     : string [30] ;

            NamaPengarang : string [25] ;

            Penerbit      : string [20];

            TahunTerbit   : real;

            JumlahBuku    : real;

            end;

var data : buku;

begin

writeln('====================================');

writeln('Program Menyatakan Data Sebuah Buku ');

writeln('====================================');

writeln;

with data do

     begin

     write('Judul Buku     : ');

     readln(JudulBuku);

     write('Nama Pengarang : ');

     readln(NamaPengarang);

     write('Penerbit       : ') ;

     readln(Penerbit);

     write('Tahun Terbit   : ');

     readln(TahunTerbit);

     write('Jumlah Buku    : ');

     readln(JumlahBuku);

     end;

writeln;

writeln;

writeln ('Judul Buku     : ',data.JudulBuku);

writeln ('Nama Pengarang : ',data.NamaPengarang);

writeln ('Penerbit       : ',data.Penerbit);

writeln ('Tahun Terbit   : ',data.TahunTerbit:2:0);

writeln ('Jumlah Buku    : ',data.JumlahBuku:2:0);

end.

Semoga bermanfaat bagi kalian semua :)