Pengumuman : Jadwal Kuliah Terakhir sblm UAS

Berhubung minggu depan UAS akan diselenggarakan pada hari Kamis, dan hari Senin adalah libur Nasional, maka perkuliahan Alpro akan diselengarakan pada jadwal berikut :
Selasa, 18 Agustus 2009, Jam 09.00-11.00 dan 11.00-13.00
Materi : Record dan File, ruangan A5
Rabu , 19 Agustus 2009, Jam 09.00-11.00 dan 11.00-13.00
Materi : Review dan Latihan Soal UAS, ruangan D3
ADA KUIS..!! Wajib Datang!!

Demikian agar diperhatikan, Selasa juga merupakan kesempatan terakhir melengkapi semua tugas-tugas yang belum dikumpulkan.

Sorting

Berikut ini algoritma untuk sorting menggunakan metoda Bubble sort :

PROCEDURE sorting(Arr: NumbersArray)

Deklarasi:

I, J :integer;

Temp : integer;

Deskripsi:

For I  1 TO ArraySize-1 do

  For J<-- I+1 TO ArraySize do

  If Arr[I] > Arr[J] then

  Temp <-- Arr[i]

  Arr[i] <-- arr[j]

  Arr[j] <-- temp

  End if

  End for

End for

Berikut ini algoritma sorting menggunakan metoda Selection Sort :

output('jml data : ')

input(n)

for i <-- 1 to n do

output('data ke : ') input(a[i])

end for

for i <-- 0 to n do

min <-- i

   for j<-- i+1 to n do

       if a[j] <>
       min <-- j
       end if
   end For
   if i <> min then
   temp <-- a[i]
   a[i] <-- a[min]
   a[min] <-- temp
   end if
end For
for i <-- 1 to n do
output(a[i])
end for

Tugas IV - Alpro (SPd 0802 - Poltek Telkom)

Kerjakan soal berikut, kumpulkan dalam bentuk tulisan tangan, pada pertemuan berikutnya : Rabu, 12 Agustus 2009, jam 11.00.
1. Jelaskan perbedaan antara metoda searching sekuensial dan biner
2. Jelaskan perbedaan antara sorting selection sort dan bubble sort.
3. Diberikan data sebagai berikut : 5,9,12,15,19,21,25
a. berapa kali loop yang diperlukan untuk mencari data 19, jika menggunakan metoda searching sekuensial
b. berapa kali loop yang diperlukan untuk mencari data 19, jika menggunakan metoda searching biner.
Jelaskan jawaban anda dalam bentuk hasil eksekusi setiap loop untuk masing-masing algoritma searching.
4. Diberikan data sebagai berikut : 5,3,9,15,10,4
a. buatlah prosedur untuk mengurutkan data tersebut menggunakan metoda bubble sort
b. buatlah fungsi pencarian data dengan masukan berupa bilangan yang dicari, diterapkan pada hasil prosedur a (bilangan sudah terurut), menggunakan metoda pencarian biner.

contoh program fungsi dan prosedur

program contoh2 ;
uses
wincrt;
const
max = 20;

var
jml : integer;
bil : array[1..max] of integer;
hasil_rata:real;
bil_genap:integer;

procedure entry;
{menerima masukan n bilangan, berupa bil integer}
var
i: integer;
begin

for i:=1 to jml do
begin
write('data ke ',i,' = ');readln(bil[i]);
end;
end;

procedure get_max(n:integer);
{mencari max dan minimum dari n bilangan integer}
var
i : integer;
max, min : integer;
i_max, i_min : integer;
begin
max := 0;
min := 30000;
for i:= 1 to n do
begin
if bil[i] > max then
begin
max := bil[i];
i_max := i;
end ;
if bil[i] < min then
begin
min := bil[i];
i_min := i;
end;
end;
writeln ('nilai maksimum = ', max,' pada indeks ke : ',i_max);
writeln ('nilai minimum = ', min,' pada indeks ke : ',i_min);
end;

procedure cari_rata(n :integer; var rata:real);
{mencari rata-rata dari n bilangan}
var
jml,i : integer;
begin
jml :=0;
for i:= 1 to n do
jml := jml+bil[i];
rata := jml/n
end;

function genap(n:integer):integer;
{mencari banyaknya bilangan genap}
var
i:integer;
jml_genap:integer;
begin
jml_genap := 0;
for i:=1 to n do
begin
if (bil[i] mod 2)=0 then
jml_genap := jml_genap + 1;
end;
genap := jml_genap ;
end;

{main program}
begin
clrscr;
write ('masukan jml data :');readln(jml);
entry;
get_max(jml);
cari_rata(jml,hasil_rata);
writeln('Rata-rata : ',hasil_rata);
bil_genap := genap(jml);
writeln('Jml bilangan genap: ',bil_genap);
end.