Tipe Data Buatan Sendiri

Untuk membuat tipe data buatan berdasarkan tipe data yang sudah ada kita menggunakan reserved word "type" dan tanda sama dengan(=). Berikut ini adalah contoh kode program yang menggunakan tipe data record untuk membuat tipe data buatan berdasarkan tipe data yang sudah ada.

program coba;
Type recordku=record
    angka:integer;
    pecahan:real;
    tulisan:string;
end;
uses crt;
var r:recordku;
begin
    clrscr;
    r.angka:=1;
    r.pecahan:=2.5;
    r.tulisan:='angka';
    writeln(r.angka);
    writeln(r.pecahan:1:1);
    writeln(r.tulisan);
    readln
end.


Kode program di atas membuat tipe data baru dengan nama "recordku" yang berasal dari tipe data record yang memiliki beberapa anggota. Kemudian, tipe data tersebut digunakan dalam deklarasi "variabel r". Pembuatan tipe data memudahkan dan mempersingkat deklarasi tipe data record atau array dengan anggota yang sama. Karena itu, tipe data yang biasa dibuat biasanya berupa tipe bentukan seperti array, record, himpunan, enumerasi, dll.

program coba;
uses crt;
Type recordku=record
    angka:integer;
    pecahan:real;
    tulisan:string;
end;

var r:recordku;

a:array[1..10] of recordku;
begin
  clrscr;
  r.angka:=1;
  r.pecahan:=2.5;
  r.tulisan:='angka';
  a[1].angka:=r.angka;
  a[1].pecahan:=r.pecahan;
  a[1].tulisan:=r.tulisan;
  writeln(a[1].angka);
  writeln(a[1].pecahan:1:1);
  writeln(a[1].tulisan);
  readln
end.

Kalian bisa membuat tipe data baru menggunakan tipe lainnya. Selanjutnya, selamat belajar dan mencoba!!!