Program Record dalam Record (PASCAL)

     Disini saya akan menjelaskan sedikit apa itu Record, Record adalah suatu struktur yang berisi sejumlah komponen yang dinamakan field, setiap field bisa berbeda typenya. Setiap field harus memiliki nama yang berbeda untuk memungkinkan pemilihan field secara acak.

Record mempunyai bentuk umum yaitu:
- Bentuk Umum Record
Type
Variable = record
…field = type data
…field = type data
…field = type data
End.

Di bawah ini merupakan contoh bagaimana penggunaan Record dalam Record pada program pascal :

program curriculum_vitae;
uses crt;

type
    Tdate = record
            tgl   : byte;
            bulan : byte;
            tahun : integer;
            end;

    Tbiodata = record
            ktp       : string;
            nama      : string;
            tgl_lahir : Tdate;
            alamat    : string;
            jk        : string;
            status    : string;
            agama     : string;
            end;

var

   org : Tbiodata;

begin
     writeln('    Curriculum Vitae    ');
     writeln('========================');
     write('KTP            : '); readln(org.ktp);
     write('Nama           : '); readln(org.nama);
     write('Tanggal Lahir  : '); readln(org.tgl_lahir.tgl);
     write('Bulan          : '); readln(org.tgl_lahir.bulan);
     write('Tahun          : '); readln(org.tgl_lahir.tahun);
     write('Alamat         : '); readln(org.alamat);
     write('Jenis Kelamin  : '); readln(org.jk);
     write('Status         : '); readln(org.status);
     write('Agama          : '); readln(org.agama);

     writeln();
     clrscr;
     writeln('Data Pelamar Kerja adalah sebagai berikut : ');
     writeln('KTP           : ',org.ktp);
     writeln('Nama          : ',org.nama);
     writeln('Tanggal Lahir : ',org.tgl_lahir.tgl,'-',org.tgl_lahir.bulan,'-',org.tgl_lahir.tahun);
     writeln('Alamat        : ',org.alamat);
     writeln('Jenis Kelamin : ',org.jk);
     writeln('Status        : ',org.status);
     writeln('Agama         : ',org.Agama);

     writeln();
     writeln();
     writeln('silahkan tekan tombol apapun untuk menutup program...');
     readkey();

end. 

Penulis : Ardy's ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Program Record dalam Record (PASCAL) ini dipublish oleh Ardy's pada hari Sunday, June 16, 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 3 komentar: di postingan Program Record dalam Record (PASCAL)