Friday, April 17, 2009

Laporan Pendahuluan (Pointer)

teman-temanku yang sudah mulai rewel soal LP..
mav yahh atas keterlambatannya..

hhe.

ini dia jawaban LP pascal.

1. Apa yang kamu ketahui tentang tipe data pointer?
>>Tipe data pointer adalah tipe data khusus yang bersifat dinamis.

2. Sebutkan bentuk umum dari pointer!
>> type identifier : ^tipedata

3. Buatlah contoh program dengan menggunakan pointer!
>>*jawabannya lumayan panjang lhooo.. selamat mengetikk...*
uses crt;
type ptr =^data;
data = record
isi : string;
pre,
next : ptr;
end;
var baru,posisi,awal,akhir : ptr;

procedure tambah_belakang (elemen : string);
begin
new (baru);
baru^.isi :=elemen;
baru^.pre :=nil;
baru^.next :=nil;
if awal = nil then awal :=baru
else
begin
akhir^.next :=baru;
baru^.pre := akhir;
end;
akhir := baru;
akhir^.next :=nil;
end;

procedure baca_depan;
begin
posisi :=awal;
repeat
write (posisi^.isi);
posisi := posisi^.next;
until posisi = nil;
end;

procedure baca_belakang;
begin
posisi :=akhir;
repeat
write (posisi^.isi);
posisi :=posisi^.pre;
until posisi = nil;
end;


begin
clrscr;
tambah_belakang ('a');
tambah_belakang ('b');
tambah_belakang ('c');
tambah_belakang ('d');
writeln ('JIKA DIBACA DARI DEPAN ADALAH');
baca_depan;
readln;
writeln ('JIKA DIBACA DARI BELAKANG ADALAH');
baca_belakang;
readln;
end.

oia, soal nomor dua gue ga yakin bener apa ga soalnya, kalo emang soalnya salah, berarti jawabannya salah. Kalo soalnya begitu, jawabannya udah bener..
Thank You..

No comments: