Soal Algoritma dan Struktur Data (2007) -1

Soal dan Jawaban Algoritma dan Struktur Data PRA S2 UGM

(catatan Marinus Ign J. Lamabelawa)

{Soal PRA 19 Desember 2007}

1. Tersedia array A dengan panjang 100. Buatlah procedure rekursif untuk mengisi array tersebut dengan data 1,2,3,5,8,13,21,... dan seterusnya sampai penuh.

2. Matriks A berukuran K x L. Matriks C adalah transpose dari matriks A. Buatlah diagram alir yang menunjukan proses pembuatan matriks C jika A diketahui.

3. Data 7, 4, 3, 2, 19, 20, 25, 99, 34, 18 ingin dimasukan dalam pohon AVL. Tunjukan dengan ilustrasi pertumbuhan pohon AVL yang awalnya kosong dan gambarkan juga proses rotasinya. Tunjukan urutan nilainya jika dikunjungi secara preorder, inorder dan postorder

   4.       Data 7, 4, 3,2, 19, 20,25, 99, 34, 18 ingin diurutkan menggunakan algortima quick sort. Tunjukan proses pengurutannya secara manual.

   
   

Jawaban No 1 (versi 1 )

( Jawaban No 1 dalam bahasa Pascal dengan metode Rekursif )

program susunarray;

uses crt;

type Array100 = array[1..100] of longint;

var n :integer;

data : Array100;

{dengan rekursif}

Procedure isi(var A : Array100;i,n:integer);

Begin

if (i=1) or (i=2) then

Begin

A[i]:=i;

isi(A,i+1,n);

End

Else

Begin

A[i]:=A[i-1]+A[i-2];

if (i

isi(A,i+1,n);

End;

End;

{Bandingkan listing berikut dengan menggunakan Iterasi }

Procedure isiarray(var A:Array100;i,n:integer);

Begin

A[1]:=1;

A[2]:=2;

for i:=(i+2) to n do

begin

A[i]:=A[i-1]+A[i-2];

isiarray(A,i+1,n);

end;

End;

{ Program Utama }

var i : longint;

Begin

clrscr;

write('isi nilai n:');readln(n);

{ panggil dan tulis dengan rekursif }

isi(data,1,n);

writeln('dengan rekursif');

for i:=1 to n do

write(data[i]:8);readln;

{panggil dan tulis dengan iterasi}

writeln;

writeln('Dengan Iterasi biasa')

isiarray(data,1,n);

for i:=1 to n do

write(data[i]:8);readln;

End.

No 2,3,4 diskusikan bagi yang berminat.....