STRUKTUR DATA PERTEMUAN 7 vandawaayahoo com QUEUE ANTRIAN

STRUKTUR DATA PERTEMUAN 7 vandawaa@yahoo. com

QUEUE / ANTRIAN 1. Konsep utama dalam Queue adalah FIFO ( First In First Out ). 2. Struktur data ini banyak dipakai dalam informatika misalnya untuk merepresentasi : ü Antrian job dalam sistem operasi ü Antrian dalam dunia nyata 3. Antrian datanya seolah-olah mengantri dari yang awal sampai yang terakhir. 4. Suatu metode untuk Input dan hapus di dalam memori komputer.

QUEUE / ANTRIAN 5. Elemen pertama yang dikenali (Head) dan elemen terakhirnya (Tail) 6. Aturan penyisipan dan penghapusan elemennya didefinisikan sebagai berikut : • Penyisipan selalu dilakukan setelah elemen terakhir • Penghapusan selalu dilakukan pada elemen pertama 7. Satu elemen dengan elemen lain dapat diakses melalui informasi Next

QUEUE ANTRIAN ARRAY /(LARIK) • Jenis – jenis QUEUE / ANTRIAN : 1. LINEAR QUEUE (Antrian Lurus) 2. CIRCULAR QUEUE (Antrian Melingkar)

QUEUE ANTRIAN ARRAY /(LARIK) VISUALISASI ANTRIAN MELINGKAR E 5 D 4 6 3 7 2 8 1 A C B

QUEUE ANTRIAN ARRAY /(LARIK) KEKURANGAN ANTRIAN LURUS E 5 1 2 3 D 4 6 3 C 7 2 8 1 A B 4 5 6 7 B C D 8 E

QUEUE ANTRIAN ARRAY /(LARIK) VISUALISASI ANTRIAN LURUS MAX 1 2 3 Q[ ] dpn 4 5 6 7 8 D E F G H Jika : Blkg = max ANTRIAN tidak dpt diisi lagi blkg

QUEUE ANTRIAN ARRAY /(LARIK) VISUALISASI ANTRIAN MELINGKAR 1 2 I J blkg 3 4 5 6 7 E F G MAX 8 H blkg dpn Jika : Blkg = max (setting ke index awal) Blkg : = 1

QUEUE ANTRIAN ARRAY /(LARIK) VISUALISASI ANTRIAN MELINGKAR 1 2 I J dpn blkg 3 4 5 6 7 MAX 8 H dpn Jika : Dpn = max (setting ke index awal) Dpn : = 1 dpn

QUEUE ANTRIAN ARRAY /(LARIK) CONTOH PETIKAN PROGRAM Const Max = 10; Type Antri = array[1. . max] of char; Var Antrian : Antri; Depan, Belakang, jml : integer; function KOSONG(Q: Antri) : boolean; begin KOSONG : = (Depan = Belakang); end;

QUEUE ANTRIAN ARRAY /(LARIK) CONTOH PETIKAN PROGRAM procedure TAMBAH(var Q: Antri; X: char) begin if Belakang = Max then Belakang : = 1 else Belakang : = Belakang+1; SALAH if jml = max then write(‘ANTRIAN PENUH COY…. ’) else Q[Belakang] : = X; jml : = jml + 1 end;

QUEUE ANTRIAN ARRAY /(LARIK) CONTOH PETIKAN PROGRAM procedure TAMBAH(var Q: Antri; X: char) begin if jml = max then write(‘ANTRIAN PENUH COY…. ’) else if Belakang = Max then Belakang : = 1 else Belakang : = Belakang+1; Q[Belakang] : = X; jml : = jml + 1 end;

QUEUE ANTRIAN ARRAY /(LARIK) CONTOH PETIKAN PROGRAM function HAPUS(var Q: Antri) : char; begin if jml = 0 then writeln(‘ANTRIAN KOSONG TUCH COY’) else begin if Depan = Max then Depan : = 1 else Depan : = Depan + 1; HAPUS : = Q[Depan]; Q[depan] : = ‘ ’; jml : = jml – 1 end;

Tugas 5 Perbaikilah Program QUEUE (file ANTREPAS), agar : 1. Pesan “ANTRIAN KOSONG” dapat tampil saat antrian benar-benar kosong 2. Pesan “ANTRIAN PENUH” dapat tampil saat antrian benar-benar Penuh

Tugas 5 Perbaikilah Program QUEUE (file ANTREPAS), agar : 1. Pesan “ANTRIAN KOSONG” dapat tampil saat antrian benar-benar kosong 2. Pesan “ANTRIAN PENUH” dapat tampil saat antrian benar-benar Penuh

• THE END OF THIS DAY • KANGGOANG NAAAHHH, , !!!!