NAMA FILE : Object

NAMA PROGRAM : LA_Object

INPUT / DEKLARASI :

1. Type

tayah = object;

Nama: string;

Procedure cetak (a:string);

End;

Tanak = object (tayah);

N:byte;

Procedure cetak (a:string;b:byte);

End;

2. Variabel :

ayah :tayah;

Anak:tanak;

Procedure tayah.cetak (a:string );

3. Fungsi :

Uses crt = Clrscr

readkey

LOGIKA PROGRAM :

Program LA_object;

Penjelasan :

Memberikan nama program dengan nama Vektorpenjumlahan

Uses crt;

Penjelasan :

Perintah untuk menghidupkan suatu fungsi seperti clrscr dan readkey

Type tayah = object;

Nama: string;

Procedure cetak (a:string);

End;

Penjelasan :

Program tersebut menjelaskan bahwa tayah diberi suatu type berobject diantaranya nama dideklarasikan dibawah type berobject tersebut menjadi bertype data string. Dijelaskan juga didalamnya menggunakan suatu prosedure yang mempunyai nama cetak untuk a bertype data string, Hal tersebutlah yang disebut ENCAPSULATION karena terdapat pengkombinasian antara data dan prosedure yang memanipulasinya kedalam object yaitu nama sebagai variabel dan terdapat suatu prosedure yang ada dalam object tayah

Tanak = object (tayah);

N:byte;

Procedure cetak (a:string;b:byte);

End;

Penjelasan :

Program tersebut menjelaskan bahwa tanak diberi suatu type berobject yang berinduk tayah atau bisa juga type berobject didalam object. n dideklarasikan dibawah type berobject tersebut menjadi bertype data byte. Dijelaskan juga didalamnya menggunakan suatu prosedure yang mempunyai nama cetak untuk a bertype data string dan b bertype data byte. Hal itulah yan disebut dangan adanya INHERITANCE yang menurunkan karakteristiknya yang dimiliki oleh object tayah kepada object tanak

Var ayah :tayah;

Anak:tanak;

Penjelasan :

Mendeklarasikan suatu variabel untuk ayah bertype data tayah dan anak bertype data tanak. Pendeklarasian tersebut bertype data seperti itu karena tayah dan tanak sudah bertype yang terdeklarasi sebelumnya

Procedure tayah.cetak (a:string );

Penjelasan :

Procedure yang digunakan diatas mempunyai nama tayah.cetak dan a bertype data string. Tayah.cetak madsudnya mengkombinasikan prosedure cetak dengan prosedure tayah

Begin

Writeln

Writeln(a:5);

End;

Penjelasan :

Dari procedure tayah.cetak tadi akan menghasilkan atau tercetak a. dimana a merupakan induk dari suatu procedure yang diambil dari type tayah yang berobject tadi

Procedure tanak.cetak (a:string;b:byte);

Var s :byte;

Penjelasan :

Procedure yang digunakan diatas mempunyai nama tanak.cetak dan a bertype data string dan b bertype data byte. tanak.cetak madsudnya mengkombinasikan prosedure cetak dengan prosedure anak

Begin

For s:= 1 to b do writeln (a:5);

End;

Penjelasan :

Dari procedure tanak.cetak tersabut menjalankan fungsi for sebagai fungsi looping atau perulangan dijelaskan dalam program diatas perulangan dimulai dari s sama dengan satu sampai atau sebanyak b. dari fungsi for yang berulang yaitu cetakan dari a. dimana a adalah cetakan dari procedure tanak yang dibawah object tayah

Begin

Penjelasan :

Perintah untuk memulai suatu program

Clrscr;

Penjelasan :

Perintah untuk membersihkan layar pada saat program dijalankan

Ayah.nama := ' ABC';

Anak:=3;

Anak.nama := 'DEF';

Penjelasan :

Ayah.nama berisi "ABC" dan anak.nama berisi "DEF" dengan jumlah anak sama dengan tiga. Disinilah yang disebut sebagai POLTMERPHISME yang memungkinkan nama yang sam namun tindakannya berbeda. Dari penjelasan tersebut yang membuat berbeda yaitu adalah induk yang digunakan yang pertama menggunakan ayah sebagai prosedure tayah dan anak menngunakan procedure tanak

Ayah.cetak(ayah.nama);

Anak.cetak(anak.nama,anak.n);

Penjelasan :

Dari penjabaran program sebelumnya program diatas sangat berkaitan. Program tersebut menjelaskan bahwa ayah.cetak berisi ayah.nama dan anak.cetak berisi anak.nama sebnyak n karena anak.n menjelaskan jumlah dari cetakan untuk anak

Readkey;

Penjelasan :

Readkey merupakan salah satu bagian dari fungsi uses crt yang fungsinya untuk memberi jeda apabila pada saat program dijalankan kita dapat menekan sembarang tombol dua kali baru bisa berubah. Dan juga untuk menjalankan suatu program agar bisa diaktifkan

End.

Penjelasan :

Perintah bahwa program telah selesai karena dalam satu program end titik cuman ada satu

LISTING PROGRAM

program LA_object;

uses crt;

type tayah = object

nama: string;

procedure cetak (a:string);

end;

tanak = object(tayah)

n:byte;

procedure cetak(a:string;b:byte);

end;

var ayah:tayah;

anak:tanak;

procedure tayah.cetak(a:string);

begin

writeln;

writeln (a:5);

end;

procedure tanak.cetak(a:string;b:byte);

var s:byte;

begin

for s:= 1 to b do writeln(a:5);

end;

begin

CLRSCR;

ayah.nama:='ABC';

anak.n:=3;

anak.nama:='DEF';

ayah.cetak(ayah.nama);

anak.cetak(anak.nama,anak.n);

readkey;

end.