Pascal‎ > ‎

TYPE

Intro

Untuk membuat tipe data bentukan, kita menggunakan perintah TYPE. Perhatikan dua contoh pertama, mhs01.pas dan mhs02.pas.

mhs01.pas

type
  Mahasiswa =
record
    nama :
string[30];
    alamat: string[40];
    umur : byte;
end;

begin

end.


Penjelasan mhs01.pas

Pada contoh pertama ini, kita dapat membuat sebuah tipe baru, yaitu Mahasiswa, yang merupakan gabungan dari nama, alamat, dan umur. Dengan membuat tipe-data baru ini, akan memudahkan dan menyederhanakan kita dalam membuat sebuah variable yang merepresentasikan Mahasiswa, karena tidak harus membuat banyak nama dan alamat serta umur apabila Mahasiswanya telah banyak. Perhatikan contoh kedua, mhs02.pas untuk lebih mengerti.

Seperti terlihat di contoh, untuk membuat tiga mahasiswa, kita cukup dengan mengetikkan:
var
anto,budi,citra : mahasiswa;
Coba bandingkan jika Anda harus membuat variable seperti ini

var
mhs1nama:string[30];
mhs1alamat:string[40];
mhs1umur:byte;
  mhs2nama:string[30];
mhs2alamat:string[40];
mhs2umur:byte;

  mhs3nama:string[30];
mhs3alamat:string[40];
mhs3umur:byte;

tentu akan lebih ribet, kan???

mhs02.pas


type
Mahasiswa = record
nama : string[30];
alamat: string[40];
umur : byte;
end;
var
anto,budi,citra : mahasiswa;
begin

anto.nama := 'Anto';
anto.alamat := 'Jl. Jalan, Gg. Guin No.10';
anto.umur := 19;
writeln(anto.nama);
writeln(anto.alamat);
writeln(anto.umur);

with budi do
begin
nama := 'Budi Putra';
alamat:= 'Jl. Jujur';
umur := 18;
writeln;
writeln(nama,#10,alamat,#10,umur);
{karakter #10 adalah LF (Line Feed), atau baris baru}
end;

with CiTrA do
begin
nAmA := 'Citra Bersahaja';
aLamAt:= 'Gg. Al@Y';
umur := 16;
writeln(#10,#10,'Nama:',#9,nama,#10,'Alamat:',#9,alamat,#10,'Umur:',#9,umur);
{karakter #9 adalah HT, Horizontal Tab}
end;
end.


Penjelasan mhs02.pas


mhs03.pas


Penjelasan mhs03.pas

Contoh ketiga ini mendemonstrasikan penggunaan pointer.


ċ
mhs01.pas
(0k)
Muhammad Jazman,
6 Feb 2011, 07:47
ċ
mhs02.pas
(1k)
Muhammad Jazman,
6 Feb 2011, 07:47
ċ
mhs03.pas
(1k)
Muhammad Jazman,
6 Feb 2011, 08:04
Comments