IF2030_Proc_08_RepresentasiListLinier

1 2011 2012 8 representasi berkait dg tabel 25 kamus

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: diacu oleh setiap elemennya adalah elemen list yang diacu oleh alamat 10/31/2011 IF2030/Sem. 1 2011-2012 8 Representasi Berkait dg. Tabel (2/5) KAMUS { List direpresentasi secara berkait dengan tabel } type InfoType : ... { terdefinisi } type ElmtList : < Info : InfoType, Next : Address > type Address : integer [IndexMin..IndexMax, Nil] { TABEL MEMORI LIST, GLOBAL} constant IndexMin : integer = 1 constant IndexMax : integer = 100 constant Nil : integer = 0 { Nil : address tak terdefinisi, di luar [IndexMin..IndekMax] } TabElmt : array [IndexMin..IndexMax] of ElmtList FirstAvail : Address { alamat pertama tabel memori siap pakai } type List : <First : Address> L : List { Deklarasi nama untuk variabel kerja } P : Address { address untuk traversal } { Maka penulisan First(L) menjadi L.First Next(P) menjadi TabElmt(P).Next Info(P) menjadi TabElmt(P).Info } 10/31/2011 IF2030/Sem. 1 2011-2012 9 Representasi Berkait dg. Tabel (3/5) Representasi Berkait dg. Tabel (3/5) function MemFull { Mengirim true jika memori list sudah “habis” : FirstAvail=Nil } procedure InitTab { Inisialisasi tabel yang akan dipakai sebagai memori list } { I.S. Sembarang. } { F.S. TabElmt[IndexMin..IndexMax] siap dipakai sebagai elemen list berkait, Elemen pertama yang available adalah FirsAvail=1. Next(i)=i+1 untuk i[IndexMin..IndexMax-1], Next(IndexMax)=Nil } procedure AllocTab (output P : address) { Mengambil sebuah elemen siap pakai P pada awal list FirstAvail } { I.S. FirstAvail mungkin kosong. } { F.S. Jika FirstAvail tidak Nil, P adalah FirstAvail dan FirstAvail yang baru adalah Next(FirstAvail) } { Jika FirstAvail =Nil, P=Nil, tulis pesan 'Tidak tersedia lagi elemen siap pakai } 'Tid procedure DeAllocTab (input P : address) { Mengemb...
View Full Document

This document was uploaded on 03/15/2014 for the course IF 2030 at Institut Teknologi Bandung.

Ask a homework question - tutors are online