Searching Modul Dalam Program...23

Modul Praktikum Algoritma II

Daftar Isi

1. Larik/Array.......................................................................... 1 2. Array Dua Dimensi: Matriks................................................. 7

Modul Praktikum Algoritma II Tim Dosen Program Studi Teknik Informatika Copyright © 2012, Indraprasta PGRI PRESS. Hak cipta dilindungi undang-undang

3. Pencarian/Searching...........................................................17 4. Modul Dalam Program........................................................23 5. Pengurutan/Sorting.............................................................33

All rights reserved

6. Penggabungan/Merging Array...........................................53 Cetakan I: Mei 2012

7. Record................................................................................59

ISBN: 978-602-9346-**-*

8. File Teks..............................................................................63 Indraprasta PGRI PRESS. ******* ******

iii

Modul Praktikum Alogaritma II

1 Larik/Array

Array (Larik) adalah Suatu struktur data yang bisa menyimpan lebih dari satu data yang bertipe sama. Struktur data berbentuk larik ini diwakili oleh suatu nama variabel. Satu variabel bisa menyimpan banyak data, maka setiap data yang disimpan digunakan bilangan yang menunjukkan urutan atau disebut juga indeks, sehingga variabel array ini disebut juga variabel berindeks. • Array (Larik) berdimensi satu disebut vektor. • Array (Larik) berdimensi dua disebut matriks. • Array (Larik) berdimensi tiga disebut tensor. Bentuk umum atau deklarasi dari array pada Pascal adalah sebagai berikut: Var nama_array : array [a . . b] of tipe_data; Dengan a : nilai indeks pertama b : nilai indeks terakhir a dan b harus bertipe integer, dengan nilai a < nilai b. Dengan deklarasi tersebut maka program akan mengalokasikan memori yang akan digunakan untuk menyimpan elemen-elemen array sebanyak maksimum (b-a+1). Contoh definisi array / larik : a. nama_array : array [ 1 . . n ] of tipe_data; contoh = A : array [1..10] of integer; b. tipe_data nama_array [n]; contoh = integer A[10]; c. type larik : array [1 . . n ] of tipe_data; nama_array : larik; contoh = type larik : array [1..10] of integer; A : larik;

iv

1


Pemberian nilai untuk Array pada Pascal. 1. Contoh pemberian nilai untuk satu elemen array. a. A[5] ← 51; artinya elemen kelima dari array A diberi nilai integer 51. b. B[18] ← 2.67; artinya elemen ke-18 array B diberi nilai bilangan real 2,67. c.

C[6] ← ‘a’; artinya elemen ke-6 array C diberi nilai karakter / huruf a. C[i] ← ‘#’; artinya elemen ke-i array C diberi nilai karakter #.

d. 2. Contoh pemberian nilai untuk beberapa elemen array yang berurutan. a. for i ← 1 to n do A[i] ← random (1000) endfor

artinya: elemen-elemen array A dari elemen pertama s.d. elemen ke-n diisi oleh hasil randomisasi bilangan 1 s.d. 1000 b. for i ← 11 to 25 do A[i] ← 3*i+2 endfor artinya: elemen-elemen array A dan elemen pertama s.d. elemen ke-n diisi oleh hasil perhitungan 3i + 2, dimana i adalah nilai indeks yang bersesuaian. Pengaksesan Elemen-elemen Array. 1. Contoh mengakses satu elemen array a. X ← A[5]; artinya variabel x diberi nilai elemen kelima dari array A. b. Y ← B[18]; artinya variabel y diberi nilai elemen ke-18 dari array B. c. Z ← C[i]; artinya elemen ke-i dari array C diberikan kepada variabel Z. 2. Contoh mengakses beberapa elemen array yang berurutan. a. for i ← 1 to n do P[i] ← A[i+l] endfor artinya : array P diberi nilai elemen array A dengan indeks ditambah satu. b. for j ← 11 to 25 do Z[j] ← B[j - 10] endfor artinya : elemen-elemen array A dan elemen ke-11 s.d. elemen ke-25 diisi oleh elemenelemen array A dengan indeks dikurangi sepuluh. 3. Contoh mencetak / menampilkan satu elemen array. a. write(A[5]) ; artinya menampilkan nilai elemen kelima dari array A. b. write(Elemen ke-18 adalah=`,B[18]) ; artinya menampilkan nilai elemen ke-18 dari array B.

2

Larik/Array

4. Contoh mencetak / menampilkan beberapa elemen array yang berurutan a. for i ← 1 to n do write (A[i]) endfor

artinya : menampilkan nilai array A untuk elemen ke-1 s.d. ke-n. b. for k ← 11 to 25 do write(’Elemen ke-’,k,’ adalah = ‘B[k]) endfor

artinya : menampilkan nilai array B untuk elemen ke-11 s.d. ke-25. 5. Contoh menjumlah beberapa elemen array yang berurutan a. for i ← 1 to n do jumlah ← jum1ah + A[i] endfor artinya: menjumlah elemen-elemen array A dari elemen ke-1 s.d. ke-n. b. for k ← 11 to 25 do jumlah ← jumlah + B[i] endfor artinya: menjumlah elemen array B dari elemen ke-l1 s.d. ke-25 Contoh Program dengan menggunakan array: Program HITUNG_RATA; {Contoh Penggunaan array dalam program} var i, k, n : integer; Jumlah : longint;

RATA : real; A : array [0. .100] of integer;

begin {Input Data} while A[n] <> -9 do begin n := n + 1; write(‘Masukkan bilangannya : ’ ); readln(A[n]) ; end; {end of while} n := n - 1; writeln (‘ Banyaknya bilangan : ’, n);

3


Larik/Array

writeln (‘Data ke- ‘, I);

{Mencetak Elemen array}

write ( ‘Elemen array-nya adalah : ‘); for i := 1 to n do

write(‘Nama : ’); write (‘Npm : ’);

write (A[i],’, ‘);writeln;

{Menghitung jumlah e!emen array}

for i := 1 to n do Jumlah := Jumlah + A[i]; write(‘Jumlah akhir = ’, Jumlah); {Menghitung rata-rata}

write (‘Nilai :’); writeln; end; Procedure Judul; Begin

Clrscr;

Uses crt;

Type mahasiswa = record Nama : string; Npm : string; Nilai : integer; end; Var

Mhs : array [1..10] of mahasiswa; Jum : byte; I,J : integer;

Procedure Input; Begin Writeln (‘Data Mhs’); Write (‘ Jumlah data : ’); Readln (Jum); Writeln; For I := 1 to Jum do begin

4

Gotoxy(13,1); writeln(‘ DATA MAHASISWA ’); Writeln(‘ ------------------------------ ‘); gotoxy(3,3); write(‘No’);

readln;

Program Array_Record;

readln (Mhs[I].Nilai);

end;

RATA := Jumlah/n; writeln(‘ dan Rata-rata = ’,RATA); writeln(‘ --o SELESAI o--’); end.

readln (Mhs[I].Nama); readln (Mhs[I].Npm);

gotoxy(7,3); gotoxy(27,3);

write(‘Nama’); write(‘Npm’);

gotoxy(45,3); writeln(‘Nilai’); Writeln(‘ ------------------------------- ‘);

end; Procedure Tampil; Begin

for I := 1 to Jum do begin gotoxy(3,4 + I); gotoxy(7,4 + I);

write(I); write(Mhs[I].Nama);

gotoxy(27,4 + I); write(Mhs[I].Npm); gotoxy(45,4 + I); write(Mhs[I].Nilai); end; writeln(‘ -------------------------------- ‘);

end; {program utama} Begin Clrscr; Input; Judul; Tampil; Readln; end.

***

5


2 Array Dua Dimensi: Matriks

Jika array satu dimensi merepresentasikan struktur data berbentuk sederetan bilangan atau bias juga merepresentasikan elemen-elemen vektor, maka array dua dimensi akan merepresentasikan struktur data dari elemen-elemen matriks. Deklarasi array pada Pascal Format pendeklarasian matriks pada pascal adalah sebagai berikut: Var nama_matriks : array [a..b,c..d] of tipe data Dimana a : nilai indeks pertama dimensi pertama b : nilai indeks terakhir dimensi kedua a,b,c dan d harus bertipe integer, dan a < b, serta c < d Dengan deklarasi tersebut maka program akan mengalokasikan memori (ruang penyimpanan) yang akan digunakan untuk menyimpan data elemen-elemen array A tersebut sebanyak (b – a + 1) x (c – d + 1) buah lokasi. Contoh:

1.var A : array [1. .8,1. .6) of integer artinya : deklarasi suatu array 2 dimensi (matriks) yang bernama A yang akan menyimpan Maksimum 8 baris kali 6 kolom data bertipe integer dengan indeks baris 1 s.d. 8 dan indeks kolom 1 s.d. 6 2. var B : array [10. .15,6. .10 1 of real artinya : deklarasi matriks yang bernama B yang akan menyimpan maksimum 6 baris kali Kolom data bertipe real dengan indeks baris 10 s.d. 15 dan indeks kolom 6 s.d. 10 3.var C : array [50. .100, 25. .50] of char artinya : deklarasi suatu matriks yang bernama C yang akan menyimpan maksimum 51 Baris kali 26 kolom data bertipe karakter dengan indeks baris 50 s.d. 100 dan Dan indeks kolom 25 s.d. 50.

6

7


Notasi Umum untuk elemen matriks : A [i,j]

Dimensi pertama, yaitu i, akan merepresentasikan indeks baris dan dimensi kedua, yaitu j, akan merepresentasikam indeks kolom Pemberian Nilai untuk Array pada Pascal 1. Contoh pemberian nilai untuk satu elemen matriks a. A[5,3] ← 51; artinya elemen baris kelima kolom ketiga dari matriks A diberi nilai

Integer 51. b. B [14,12] ← 3,25; artinya elemen baris ke-1 4 kolom ke-12 dari matriks B diberi Nilai bilangan real 3,25 c. B[i,j] ← ‘$ ‘; artinya elemen baris ke-i kolom ke-j dari matriks B diberi nilai Karakter $.

2. Contoh pemberian nilai untuk beberapa elemen matriks yang berurutan a. for i ← 1 to n do for j ← 1 to n do write(A[i,j]) endfor

endfor artinya : elemen-elemen matriks A dari elemen baris dan kolom pertama s.d. ke-n diisi Oleh hasil randomisasi bilangan 1 s.d. 1000

b. for i ← 6 for

to 20 do

j ← 11 to 25 do A[i,j] ← 3*i + 2*j endfor endfor artinya : elemen-elemen matriks A dari baris ke-6 s.d. baris ke-20 dan kolom ke-11 s.d. kolom ke-25 diisi oleh hasil perhitungan 3i + 2j, dimana i dan j adalah nilai indeks baris dan indeks kolom yang bersesuaian.

8

Array Dua Dimensi: Matriks

Contoh : Buatlah Algoritma untuk membentuk matriks berikut: 1

1

2

3

4

3

4

1

2

3

4

5

9

1

2

5

6

7

16

1

6

7

8

9

25

Jawab : Algoritmanya adalah : For i ← 1 to 5 do For j ← 1 to 5 do if i = j then A[i,j] ← i*i else if i > j then A[i,j] ← i+j else A[i,j] ← i – j endif endif endfor endfor

Pengaksesan Elemen-elemen Matriks 1. Contoh mengakses satu elemen matriks

a. x ← A[5,6]; artinya variabel x diberi nilai elemen baris kelima kolom ke enam dari matriks A b. Y ← B[1,8]; artinya variabel Y diberi nilai elemen baris ke-1 kolom ke-8 dari matriks B c. Z ← C[i,j]; artinya elemen baris ke-i kolom ke-j dari matriks C diberikan kepada Variabel z.

2. Contoh mengakses beberapa elemen matriks yang berurutan. a. for i ← 1 to n do for j ← 1 to n do P[i,j] ← A[i+1,j+2] endfor endfor

artinya : matriks P diberi nilai elemen matriks A dengan indeks baris ditarnbah satu, dan Indeks kolom ditambah 2.

b. for i ← 11 to 25 do for j ← 11 to 25 do z[i,j] ← B [i,j] endfor endfor

Artinya : elemen-elemen matriks z dari kolom Dan baris ke 11 s.d. ke-25 diisi oleh Elemen-elemen matriks B dengan Indeks yang sama

9



3. Contoh mencetak / menampilkan satu elemen matriks

a. write(A[5,3]); artinya menampilkan nilai elemen baris kelima kolom ketiga Dari matriks A b. write(‘Elemen baris ke-1 kolom ke-4 adalah=’,B[18]); artinya menampilkan nilai elemen baris ke-1 kolom ke-4 dari matriks B.

4. Contoh mencetak / menampilkan beberapa elemen matriks yang berurutan. Artinya : Menampilkan semua elemen a. for i ← 1 to n do matriks A dari baris dan kolom for j ← 1 to n do pertama s.d. ke-n Write(A[i,j]) endfor

Artinya : Menampilkan elemen matriks B untuk baris ke-11 s.d. ke-25 dan kolom ke-6 s.d. ke-10

endfor

Pernyataan writeln di atas merupakan perintah agar elemen-elemen baris berikutnya tercetak pada baris yang baru 5. Contoh menjumlah beberapa elemen matriks yang berurutan a. for i ← 1 to n do for j ← 1 to n do jumlah ← jumlah + A[i,j] endfor endfor artinya: menjumlah semua elemen matriks A baris dan kolom ke-l s.d. ke-n b. for k ← 11 to 25 do for k ← 6 to l0 do jumlah ← jumlah + B[i,j] endfor endfor artinya : menjumlah elemen matriks B baris ke-1 1 s.d. ke-25 kolom ke-6 s.d. ke-l0

10

1. Penjumlah dan Pengurangan Vektor: a ± b = C, a, b, dan c adalah vector yang berdimensi sama a1 a2 . . an

b1 b2 . . bn

±

=

Definisi : c(i) = a(i) ± b(i)

c1 c2 . . cn

Algoritmanya : for i ← 1 to n do

c[i] ← a[i] ± b[i] endfor

2. Perkalian Vektor (Dot Product): a. b = k, dimana a dan b adalah vector berdimensi sama, k adalah konstanta.

writeln endfor

b. for k ← ll to 25 do for j ← 6 to 10 do write(B[i,j]) endfor writeln

Algoritma-algoritma Operasi Vektor dan matriks

a1 a2 . . an

b1 b2 . . bn

.

Definisi : k = a1.b1+a2.b2 +a3.b3+. . . +an.bn Algoritmanya : k ← 0 for i ← 1 to n do k ← k + a[i]* b[i] endfor

= k

3. Penjumlah dan Pengurangan Matriks: A ± B = C, A, B, dan C adalah matriks yang berordo sama a11 a21 . . an1

a12 a22 . . an2

. . . . .

. . . . .

a1n a2n . . ann

±

b11 b21 . . bn1

b12 . b22 . . . . . bn2 .

. . . . .

b1n b2n . . bnn

=

c11 c21 . . cn1

c12 c22 . . cn2

. . . . .

. . . . .

c1n c2n . . cnn

Definisi : C[i,j] ← A[i,j] ± B[i,j] Algoritmanya : for i ← 1 to n do for j ← 1 to n do c[i,j] ← A[i,j] ± B[i,j] endfor endfor

11



4. Perkalian Matriks dengan vector : Algoritmanya :

A x b = c, A adalah matriks berordo n x n, b dan c adalah vector berdimensi n a11 a21 . . an1

a12 a22 . . an2

. . . . .

. . . . .

a1n a2n X . . ann

b1 b2 . . bn

=

for i ← 1 to n do

c1 c2 . . cn

C[i,j] ← 0 for j ← 1 to n do

C[i,j] ← C[i,j] + A[i,k] * B[k,j]

endfor endfor

Definisi : ci = ai1.b1 + ai2.b2 + ai3.b3 + . . . . + ain.bn Contoh : c4 = a4i.b1 + a42.b2 + a43.b3 + . . . . + a4n.bn

Jika A dan B adalah matriks dengan ordo tidak sama : Misal : Am x p x Bp x n = Cm x n Maka algoritmanya : for i ← 1 to m do C[i,j] ← 0 for j ← 1 to p do for j ← 1 to n do C[i,j] ← C[i,j] + A[i,k] * B[k,j] endfor endfor

Algoritmanya : for i ← 1 to n do C[i] ← 0 for j ← 1 to n do c[i] ← c[i] + A[i,j] * b[j] endfor endfor

endfor

5. Perkalian Matriks dengan Matriks: A x B = C, A, B, dan C adalah matriks yang berordo n x n a11 a21 . . an1

a12 a22 . . an2

. . . . .

. . . . .

a1n a2n . . ann

X

b11 b21 . . bn1

b12 . b22 . . . . . bn2 .

. . . . .

b1n b2n . . bnn

=

c11 c21 . . cn1

c12 c22 . . cn2

. . . . .

. . . . .

c1n c2n . . cnn

Definisi : Perkalian matriks A dan B adalah perkalian antara elemen baris matriks A dengan elemen kolom matriks B untuk indeks yang bersesuaian kemudian hasil masing-masing perkalian tersebut dijumlahkan. Cij = ai1.bij + ai2.b2j + ai3.b3j + . . . . + ain.bnj Contoh : C43 = a41.b13 + a42.b23 + a43.b33 + . . . . + a4n.bn3

12

Program Perkalian_Matriks; uses crt; Type Var

Larik = array [1..25, 1..25] of real;

I,J,K = byte; M,N,L = byte; A,B,C = larik; Begin Clrscr; Write(‘Baris matriks pertama ?’); readln(M); Write(‘Baris matriks pertama/baris matriks kedua ?’); readln(N); Write(‘Kolom matriks kedua ?’); readln(L); Writeln;

13



{masukan data matriks pertama}

{mencetak hasil perkalian}

begin for J := 1 to N do

Writeln; for I := 1 to M do

Writeln(‘Matriks yang pertama : ’); for I := 1 to M do

begin write(‘Nilai [‘,I,’,’,J,’] ’);

end;

Clrscr; Writeln(‘ Hasil dari perkalian matriks : ’);

begin for J := 1 to L do

readln(A[I,J]);

writeln; end; {masukan data matriks kedua} Writeln(‘ Matriks yang kedua : ’); for I := 1 to N do begin

for J := 1 to L do begin write(‘Nilai [‘,I,’,’,J,’]?’); readln(B[I,J]); end; writeln;

write(C[I,J]):9:2);

end.

writeln; end;

Tugas : Buatlah program-program lainnya yang mengimplementasikan algoritmaalgoritma di atas !

***

end; {perkalian matriks] for I := 1 to M do begin

for J := 1 to N do begin C[I,J] := 0; For k := 1 to L do C[I,J] := C[I,J] + A[I,K]* B[K,J]; end; end;

14

15


3 Pencarian/Searching

Proses pencarian/searching adalah proses mencari suatu data yang ditentukan pada suatu kumpulannya, misal pada suatu larik/array, linked-list, record, file, atau pada kumpulan data yang lain. Permasalahan Pada Pencarian Permasalahan pada pencarian bisa diklasifikasikan sebagai berikut : 1. Dicari suatu data, misal data x, pada suatu kumpulan data, misal A. Hasil pencarian yang diharapkan adalah suatu komentar bahwa data tersebut ditemukan atau tidak ditemukan. 2. Dicari suatu data, misal data x, pada suatu kumpulan data, misal A. Hasil pencarian yang diharapkan adalah suatu status bahwa data tersebut ditemukan atau tidak ditemukan. 3. Dicari suatu data, misal data x, pada suatu larik/array, misal array A. Hasil pencarian yang diharapkan adalah posisi yaitu nomor urut atau indeks data itu pada array tersebut. Algoritma Pencarian 1. Pencarian Beruntun (Linear Searching) Ide pencarian : elemen yang dicari dibandingkan dengan elemen-elemen yang ada pada Kumpulan data tempat pencarian satu persatu mulai dari elemen pertama. Algoritma : CARI(A, N, X) {Mencari data x pada array A yang elemennya sebanyak N}

Read (x) I← 1 While x <> A(I) AND I <= N do I ← I + 1 endwhile Pengaturan Hasil (output) Sesuai permasalahan pada pencarian yang dikemukakan di atas maka pengaturan hasil/ output yang diinginkan dari proses pencarian tersebut bisa disesuaikan dengan permasalahan di atas, yaitu :

16

17


1. Jika hasil yang diinginkan berupa komentar bahwa data x ditemukan atau tidak : if I <= N then write (x,‘ ditemukan’)

else

write(x,‘ tidak ditemukan’)

endif

2. Jika hasil yang diinginkan berupa status bahwa data x dtemukan atau tidak: if I <= N then Ketemu ← TRUE else Ketemu ← FALSE endif

3. Jika hasil yang diinginkan berupa indeks data x pada array A: if I <= N then Hasil ← I else Hasil ← 0 { misal jika tidak ditemukan maka variabel hasil diberi endif nilai 0 3. Pencarian Biner/Bagi Dua (Binary Searching) (Khusus untuk pencarian pada array yang sudah terurut) Ide pencarian: elemen yang dicari dibandingkan dengan elemen tengah dari kumpulan data tempat pencarian. Jika sama maka data yang dicari ditemukan, jika tidak sama (dalam ini belum ditemukan) maka data yang dicari itu dibandingkan lagi dengan elemen tengah tersebut. Jika lebih kecil maka pencarian dilanjutkan ke bagian array sebelah kiri (bagian yang lebih kecil dan elemen tengah). Sebaliknya jika lebih besar maka pencarian dilanjutkan di sebelah kanan elemen tengah. Ulangi langkah tersebut sampai ditemukan alan kumpulan data tidak bisa dibagi lagi menjadi dua bagian .

Pencarian/Searching

Algoritma : CARl (A, N, X)

{Mencari data x pada array A yang elemennya sebanyak N} Read (x) a ← 1 b ← N

ketemu ← FALSE while ketemu and a < b T ← (a+b) mod 2

if x = A(T) then ketemu ← else if x < A(T) then b ← else a ← T + 1 endwhile

TRUE T - 1

Pengaturan Hasil (output) 1 .Jika hasil yang diinginkan berupa komentar bahwa data x ditemukan atau tidak: if ketemu = TRUE then write (x,‘ditemukan’) else write(x,‘tidak ditemukan’) endif

2. Jika hasil yang diinginkan berupa status bahwa data x dtemukan atau tidak maka variabel ketemu tersebut menunjukkan status bahwa data yang dicari ditemukan atau tidak.’ 3. Jika hasil yang diinginkan berupa indeks data x pada array A :

if ketemu = TRUE then Hasil ← T else Hasil ← 0 {misal jika tidak ditemukan maka variable hasil diberi nilai 0}

endif Algoritma Searching Urut Langkah 0 Langkah 1 Langkah 2

18

do

: Baca Vektor yang diketahui, misalnya sebagai vektor A dengan N elemen. : Baca data yang akan dicari, misal DATA. : (Inisialisasi) Tentukan : Ada = False

19


Pencarian/Searching

Langkah 3

: (Proses Pencarian)

Contoh Program binary_search;

Langakah 4

Untuk I = 1 sampai N kerjakan langkah 4 : Test apakah : DATA = A[I]?

Uses crt;

Jika Ya, (berarti data ketemu), tentukan ; Ada = True, Posisi = I dan I = N

Langkah 5

: (Menambah data pada vektor, jika diperlukan) Test apakah Ada = False ? Jika Ya, ( data tidak ketemu), tentukan :

Langkah 6

N = N + 1, dan A[I]= DATA : Selesai

: Baca vektor yang diketahui, misal vektor A dengan N buah elemen, dan urutkan secara urut naik

Langkah 1

: Baca elemen yang akan dicari, misal DATA

Langkah 2

: ( Inisialisasi)

Langkah 3

: Kerjakan langkah 4 dan 5 selama Atas >= Bawah

Langkah 4

: (Menentukan batas subvektor)

begin

if bawah > atas then urutketemu := 0 else begin tengah := (bawah + atas) div 2 ; if cari = x[tengah] then

urutketemu := tengah else if cari < x[tengah] then caribiner(x, cari, bawah, tengah-1, urutketemu)

: Test nilai data terhadap A [Tengah] Jika DATA > A [Tengah], (ada di subvektor 2), Tentukan: Bawah = Tengah + 1 Jika DATA = A [Tengah], (ada disubvektor 1), Tentukan : Atas = Tengah – 1 Jika Data = A [Tengah], (ketemu), Tentukan : Ada = True Posisi = Tengah, dan Bawah = Atas + 1

20

: Selesai

= array [1..8] of tipe_larik;

Var urutketemu : word);

Tentukan : Tengah = ( Atas + Bawah ) div 2

Langkah 6

Larik

Procedure caribiner ( x : larik; cari :tipe_larik; Bawah,atas : word;

Tentukan Ada = False, Atas = N, dan Bawah = 1

Langkah 5

Tipe_larik = word;

Var tengah : word;

Algoritma Searching Biner Langkah 0

Type

end; type

else caribiner(x, cari, tengah+1, atas, urutketemu); end;

nama = string[20];

const npm : larik = (1234, 1235, 1236, 1237, 1238, 1239, 1240, 1241); nama_mhs : array [1..8] of nama = (‘arief’,’ani’,budi’,’citra’,dewi’,’erni’,’fanny’,’ghana’) ;

21


var

4

cari : word; ketemu : word; lagi

:

char;

Modul Dalam Program

begin lagi := ‘Y’;

while upcase(lagi) = ‘Y’ do begin clrscr;

write(‘NPM mahasiswa yang dicari: ’); readln(cari); writeln; caribiner(npm, cari, 1, 8, ketemu); if ketemu = 0 then

writeln(‘npm mahasiswa ini tidak ada’); else begin writeln(‘ NPM mahasiswa : ’, npm[ketemu]);

end.

end;

writeln(‘Nama mahasiswa : ’, namamhs[ketemu]); end; writeln; write(‘cari yang lain lagi (Y/T) ?’); readln(lagi);

***

22

Modul dalam program atau disebut juga sub program atau routine atau sub routine adalah bagian program yang mengerjakan sebagian masalah yang akan diselesaikan oleh program tersebut. Suatu program yang akan menyelesaikan suatu masalah yang besar dan kompleks sebaiknya masalah tersebut dibagi-bagi menjadi masalah-masalah yang kecil agar lebih mudah untuk menyelesaikannya. Kemudian dalam implementasinya masalah-masalah yang kecil tersebut diselesaikan dengan pembuatan modul. Sifat dari implementasi suatu program dengan modulmodul disebut sifat modularitas. Program yang baik apabila sifat modularitasnya tinggi. Keuntungan penerapan modul dalam program : 1. Mempermudah dalam pemeliharaan (rnendeteksi kesalahan. perbaikan, modifikasi. dll) 2. .Jika banyak bagian program yang harus dikerjakan berulang-ulang maka hemat dalam

.

penulisan baris-baris instruksi. 3. Mempermudah dalam pembacaan dan pemahaman program. Pada saat eksekusi program, apabila suatu modul dipanggil (eksekusi program sudah mencapai modul tersebut) maka eksekusi program berpindah ke modul tersebut, kemudian jika sudah selesai maka kembali lagi ke program utama. Suatu modul bisa memanggil maupun dipanggil oleh modul lain.

23


Program Utama 1. . . . . 2. . . . . 3. . . . . 4. . . . . 5. Modul 1 6. . . . . 7. . . . . 8. Modul 2 9. . . . . 10. Modul 1 11. . . . . 12. . . . . 13. Modul 1 14. . . . . 15. . . . . 16. Modul 3 17. . . . . 18. . . . . dst

Modul Dalam Program

4. ParameterAktual adalah suatu parameter yang digunakan untuk memanggil suatu modul. 5. Parameter Input adalah suatu parameter yang digunakan untuk memasukkan data yang akan diproses oleh modul.

Modul 1 1. . . . 2. . . . 3. . . . dst

6. Parameter Output adalah suatu parameter yang digunakan untuk mengirimkan hasil proses dan suatu modul kepada yang memanggil modul tersebut.

Modul 2 1. . . . . 2. . . . . dst

Modul dalam Bahasa Pemrograman: Pada hampir semua bahasa pemrograman, terdapat dua jenis modul, yaitu : Prosedur (procedure) dan fungsi (Function). Contoh deklarasi prosedur dan fungsi dalam Pascal:

Modul 3 1. . . . . 2. . . . . 3. Modul 2 4. . . . . dst

1. Procedure InputData(var A:array of integer; var I:integer); arti : deklarasi dari prosedur bernama lnputData dengan parameter formal array A dan Integer I. Parameter A dan I tersebut keduanya merupakan parameter output. 2. Procedure CetakArray(A:array of integer; N:integer); arti : deklarasi dari prosedur bernama CetakArray dengan parameter formal array A dan integer N. Parameter A dan N tersebut keduanya merupakan parameter input.

Struktur program dengan modul dalam Pascal : 1. Nama Program 2. Deklarasi Variabel Global 3. Penulisan Modul-modul yang dipanggil 4. Program Utama Struktur modul dalam Pascal: 1. Nama Modul (dan parameter Formalnya) 2. Deklarasi Variabel Lokal 3. Penulisan modul-modul lain yang dipanggil (jika ada) 4. Isi Modul

Beberapa Istilah pada modul : 1. Variabel Global adalah suatu variabel yang dideklarasikan pada awal program utama dan bisa digunakan oleh semua bagian dari program tersebut, termasuk rnodul-rnodulnya. 2. Variabel Lokal adalah suatu variabel yang dideklarasikan pada suatu modul dan hanya bisa digunakan pada modul tersebut. 3. Parameter Formal adalah suatu parameter/variabel yang digunakan pada deklarasi/pendefinisian suatu modul.

24

3. Procedure HitungJumlah(A:array of integer; X:integer; var Total:longint); arti : deklarasi dan prosedur bernama HitungJumlah dengan parameter formal array A dan integer X, dan longinteger Total. Parameter A dan X merupakan parameter input, sedangkan parameter Total adalah parameter output. 4. procedure InputData; arti : deklarasi dan prosedur bernama InputData tanpa parameter apapun. 5. function Total (B:array of integer; X:integer) :longint; arti : deklarasi dari fungsi bernama Total dengan parameter formal array B dan integer X. Parameter B dan X tersebut keduanya merupakan parameter input. Fungsi ini akan mengembalikan hasil suatu data bertipe Long integer. Pada fungsi tidak ada parameter output, karena suatu fungsi akan selalu mengembalikan hasil kepada yang memanggil. 6. function MAX(D:array of integer; N:integer) :integer; arti : deklarasi dan fungsi bernama Max dengan parameter formal array D dan integer N. Fungsi ini akan mengembalikan hasil suatu data bertipe integer.

25


Modul Dalam Program

Contoh: if (MAX(A,n)) < 100 then …….

Contoh pemanggilan prosedur dan fungsi dalam Pascal:

artinya bahwa hasil pemanggilan fungsi Max dijadikan sebagai uji kondisi IF-THEN

1. InputData(A,n);

{ Panggil prosedur InputData dengan parameter aktual A dan n sesuai dengan Deklarasi prosedurnya}

2. CetakArray(A,n);

{ Panggil prosedur CetakArray dengan parameter aktual A dan n sesuai dengan deklarasi prosedurnya}.

3. HitungJumlah(A,n,Jumlah); { Panggil prosedur HitungJumlah dengan parameter aktual A, n dan Jumlah sesuai dengan deklarasi prosedurnya }.

4. InputData;

{ Panggil prosedur InputData tanpa parameter apapun sesuai dengan deklarasi prosedurnya}.

5. Jumlah := Total(A,n); { Panggil Fungsi Total dengan parameter aktual A dan n sesuai dengan deklarasi fungsinya, dan hasil yang diberikan oleh fungsi tersebut akan disimpan dalam variabel Jumlah}. 6. Maksimum : MAX(A,n); { Panggil Fungsi MAX dengan parameter aktual A dan n sesuai dengan deklarasi fungsinya, dan hasil yang diberikan oleh fungsi tersebut akan disimpan dalam variabel Maksimum}. Pemanggilan Fungsi Pemanggilan suatu fungsi bisa dilakukan dengan 4 cara: 1. Di simpan (di-assign) dalam suatu variabel, contoh seperti di atas. 2. Dioperasikan dengan variabel lain atau dengan bilangan dan hasilnya Di simpan (di-assign) dalam suatu variabel Contoh : Rata_rata := Total(A,n)/n; artinya: bahwa hasil pemanggilan fungsi Total langsung dibagi dengan variabel n dan hasilnya disimpan dalam variabel rata-rata.

Contoh-contoh Program menggunakan modul: Procedure faktorial(n: byte; var hasil: longint); Begin

If N <= 1 then hasil := 1 Else Begin

Faktorial(N-1, hasil); Hasil := N*hasil; End; end;

Var Begin

N : byte;

F : longint;

Write(‘Berapa faktorial? ’); readln(N); Faktorial(N,F); Writeln(‘Faktorial = ’,F); End.

readln;

Function factorial (N: byte): longint; Begin If N <= 1 then faktorial := 1; Else Faktorial := N*faktorial (N-1); End;

Var N: byte; Begin Write (‘ berapa faktorial? ’); readln(N); Writeln(‘ Faktorial = ’,Faktorial (N)); readln; End.

3. Langsung dicetak, Contoh : write (MAX(A,n)), artinya : bahwa hasil pemanggilan fungsi Max langsung dicetak. 4. Untuk Uji Kondisi

26

27


Modul Dalam Program

Function Fibonacci (n: word): word;

procedure InputData(var A:array of integer;

Begin If n < 2 then Fibonacci := n Else End;

Fibonacci := Fibonacci(n-2) + Fibonacci(n-1);

Var n: word; Begin

Write(‘ suku ke berapa? ’);

readln(n);

Writeln(‘nilai suku ke ‘,n,’ adalah ‘, Fibonacci(n)); readln;

End.

Function Fibonacci (n:word):word; Begin If n < 2 then Fibonacci := n; Else begin Fibobawah := 0; Fiboatas := 1; For i := 2 to n do Begin X := fibobawah; End; End; end; Var n : word;

Fiboatas := fiboatas; Fibonacci := fiboatas;

Begin Write(‘suku ke berapa? ’); readln(n); Writeln(‘nilai suku ke ‘,n,’ adalah ‘,Fibonacci(n)); readln; End. Program HITUNG_RATA_1; { Contoh Penggunaan Procedure dan array) var k, n, bil : integer; Jumlah : longint; RATA : real; A : array[0. .100]of integer;

28

begin

var I:integer);

while A[I] <> -9 I : I + 1;

do begin

write (‘Masukkan bilangannya : ‘) ; readln(A[I]); end; {end of while} I:= I-1;

end; {end of procedure} procedure CetakArray(A:array of integer; var i : integer; begin for i := 1 to N do

end;

write(A[i],‘,

N:integer);

‘);

procedure HitungJumlah( A:array of integer; X : integer; var Total:longint); var i : integer; begin for i := 1 to X do end; {end of procedure}

Total := Total + A(i];

{Program Utama} begin

InputData (A,n) ; {Panggil prosedur InputData} writeln (‘Banyaknya bilangan : ‘ ,n); write (‘Elemen array-nya adalah : ‘); CetakArray(A,n); {Panggil prosedur CetakArray} writeln; HitungJumlah(A,n,Jumlah); {Panggil HitungJumlah} write(‘ Jumlah akhir = ‘,Jumlah); RATA := Jumlah/n; writeln (‘ dan Rata-rata = ‘,RATA); writeln (‘ --o SELESAI o---’); readln;

end.

29


Modul Dalam Program

Program HITUNG_RATA_2;

{ Contoh Penggunaan Procedure dan array} var k, n : integer; Jumlah : longint; RATA : real;

A : array[0. .l00]of integer; procedure InputData;

begin while A[n] <> -9 do begin

n := n + 1; write(‘Masukkan bilangannya : ‘) ; readln (A[n]); end; {end of while}

n := n — 1; end; {end of procedure} procedure CetakArray; var i : integer; begin end;

for i := 1 to n do write (A[i],‘, ‘);

procedure HitungJumlah(var Total:longint); var i : integer; begin

for i := 1 to n do Total := Total + A[i]; end; {end of procedure}

begin {Program Utama} InputData; {Panggil prosedur InputData} writeln (‘Banyaknya bilangan : ‘,n); write (‘Elemen array-nya adalah : ‘); CetakArray; {Panggil prosedur CetakArray} writeln; HitungJumlah(Jumlah); {Panggil HitungJumlah} write (‘Jumlah akhir = ‘ , Jumlah); RATA := Jumlah/n;

30

writeln (‘

dan Rata-rata = ‘ ,RATA);

writeln(’ --o SELESAI o--’); readln;

end.

Program HITUNG_RATA_3; {Contoh Penggunaan Function dan array) var

k, n, Maksimum, Minimum : integer; Jumlah : longint; RATA : real; A : array[0..l00] of integer;

procedure InputData; begin

while A[n] <> -9 do begin n := n + 1;

write(‘Masukkan bilangannya : ‘); readln(A[n]); end; {end of while} n := n — 1; end; {end of procedure}

procedure CetakArray; var i integer; begin for i := 1 to n do write(A[i],‘, ‘); end; function Total (B:array of integer; X:integer):longint;

var i : integer; temp : longint; begin temp := 0; for i := 1 to X do temp := temp + B[i]; Total := temp; end; {end of function} function MIN(B:array of integer; X:integer):integer; var i : integer; temp : integer; begin temp := B[1); for I := 2 to X do if temp > B[i] then temp := B[i);

31


MIN := temp;

5

var i : integer; temp : integer;

Pengurutan/Sorting

end; {end of function} function MAX(D:array of integer; N:integer):integer;

begin temp := D[1];

for i:= 2 to N do

MAX := temp; end; {end of function}

if temp < D[i] then temp :=D[i];

begin { Program Utama} InputData; writeln(’Banyaknya bilangan : ‘,n);

write(’Elemen array-nya adalah : ‘);CetakArray; writeln; Jumlah := Total(A,n); write(’Jumlah akhir =

‘,Jumlah); RATA := Jumlah/n; writeln(’ dan Rata-rata = ‘,RATA); Minimum := MIN(A,n); writeln(’Elemen terkecil = ‘,Minimum);

Maksimum := MAX(A,n); writeln(’Elemen terbesar = ‘,Maksimum); writeln(’ --o SELESAI 0--’); readln; end.

Untuk memudahkan dalam proses pengurutan dan sekumpulan data maka sekumpulan data tersebut disimpan dalam suatu array (larik) atau senarai berkait (link-listed). 1. Pengurutan GELEMBUNG (Bubble Sort). Ide Pengurutan : misal untuk pengurutan naik (Ascending). Dimulai dari elemen terakhir (paling kanan) kemudian dibandingkan dengan elemen depannya (sebelah kirinya). Jika elemen tersebut lebih kecil dari elemen depannya maka terjadi pertukaran posisi dua elemen tersebut (karena pengurutan naik maka elemen kanan harus lebih besar dari elemen kiri). Kemudian dibandingkan lagi dengan elemen didepannya dan seterusnya sampai dengan elemen paling kiri. Dalam satu langkah ini akan diperoleh satu elemen paling kiri sudah dalam posisi terurut. Langkah tersebut diulangi terus sampai semua elemen dalam posisi terurut. Contoh : Misal elemen-elemen yang akan diurutkan disimpan dalam array, yaitu A = [6, 2, 9, 3. 7,4]

***

32

Langkah 1 :

6 2 9 5 7←4 6 2 9 3←4 7 6 2 9←3 4 7 6 2←3 9 4 7 6←2 3 9 4 7 2 6 3 9 4 7

: : : : : :

Langkah 2 :

2 2 2 2 2

: 7 > 4 maka tidak terjadi pertukaran : 4 < 9 maka terjadi pertukaran : 4 > 3 maka tidak terjadi pertukaran : 3 < 6 maka terjadi pertukaran : Elemen kedua yaitu 3 sudah terurut.

6 3 9 4←7 6 3 9←4 7 6 3←4 9 7 6←3 4 9 7 3 6 4 9 7

4 < 7 maka terjadi pertukaran 4 > 3 maka tidak terjadi pertukaran 3 < 9 maka terjadi pertukaran 3 > 2 maka tidak terjadi pertukaran 2 < 6 maka terjadi pertukaran Elemen pertama yaitu 2 sudah terurut.

33


Langkah 3 :

Langkah 4 :

Pengurutan/Sorting

2

3

6

4

9←7 : 7 < 9 maka terjadi pertukaran

2

3

6

4←7

2

3

6←4

7

9 : 4 < 6 maka terjadi pertukaran

2

3

4

6

7

9 : Elemen ketiga yaitu 4 sudah terurut.

2 2

3 3

4 4

6 7←9 : 9 > 7 maka tidak terjadi pertukaran 6←7 9 : 7 > 6 maka tidak terjadi pertukaran

2

3

4

6

7

9 : 7 > 4 maka tidak terjadi pertukaran

9 : Elemen keempat yaitu 6 sudah terurut.

2 3 4 6 7←9 : 9 > 7 maka tidak terjadi pertukaran 2 3 4 6 7 9 : Elemen kelima yaitu 7 sudah terurut Pada akhir langkah kelima ini tinggal satu elemen terakhir (elemen ke-6) yang belum

Langkah 5 :

for i := 1 to n do

{Cetak Array Sebelum Pengurutan} writeln; textcolor(15); write(’Sebelum diurutkan : ‘); for i := 1 to n do write(A[i),’

for i := 1 to n-1 do

5. endfor Algoritma prosedur TUKAR: 6. TUKAR(x,y); 7. Temp ← x; x ← y; y ← Ternp; 8. end; Contoh Program :

Program Urut_BUBBLE; uses crt; var i,j,k,temp,n : integer; A, B, C : array [1..100] of integer; begin clrscr; textcolor(12); write(’Banyaknya Elemen Array : ‘) ; readln(n); {Input Data}

34

begin

for j := n downto i+1 do if A[j-1] > A[j] then temp := A[j-1]; A[j—1] := A[j]; A[j] := temp;

‘);

begin begin

end;

end;

{Cetak Array tiap langkah pengurutan:} writeln; write(’Hasil akhir langkah ke-’,i,’ : ‘); for k := 1 to n do write(A[k],’ ‘);

Algoritma : Ascending 1. for i ← 1 to n-1 do 2. for j ← n to I do 3. if A[j] < A[j—1) then TUKAR(A[j],A[j—1]) 4. endfor

‘);

writeln; textcolor(15); writeln(’Proses Pengurutan Bubble :

diproses, tetapi karena tinggal satu elemen maka dengan sendirinya sudah menempati urutan yang benar (sudah terurut) sehingga Iangkah tidak perlu dilanjutkan (selesai).

algoritma Bubble_Sort (A, n)

A[i]:= random(l000);

end;

{Cetak Array Setelah Pengurutan} writeln; writeln; textcolor(15) ; write(’Hasil Pengurutan Bubble : ‘) for i := 1 to n do write(A[i],’ ‘); readln; end.

2. Pengurutan GRAVITASI (Gravitasion Sort) ide Pengurutan: Mirip dengan Bubble Sort tetapi dimulai dari elemen pertama (paling kiri) dan dibandingkan dengan elemen di belakangnya (sebelah kanannya), sehingga pada akhir langkah pertama diperoleh elemen terakhir sudah dalarn posisi terurut. Demikian seterusnya.

35


Pengurutan/Sorting

Contoh: Urutkan naik elemen-elemen array A = [6, 2, 9, 3, 7, 4] Langkah 1 :

Langkah 2 :

6→2 9 2 6→9

Langkah 4 :

Langkah 5 :

7

4 : 6 > 2 maka terjadi pertukaran

3

4 4

7 : 6 > 9 maka tidak terjadi pertukaran 7 : 9 > 3 maka terjadi pertukaran

2 2

6 6

9→3 3 9→4

2 2

6 6

3 3

4 4

2→6 3 4 2 6→3 4 2 3 6→4 2 2

Langkah 3 :

3

3 3

4 4

7 : 9 > 4 maka terjadi pertukaran 9→7 : 9 > 7 maka terjadi pertukaran 7

9 : Elemen terakhir yaitu 9 sudah terurut.

7 7

9 : 2 < 6 maka tidak terjadi pertukaran 9 : 6 > 3 maka terjadi pertukaran

7 6→7 6 7

9 : 6 > 4 maka terjadi pertukaran 9 : 6 < 7 maka tidak terjadi pertukaran 9 : Elemen kelima yaitu 7 sudah terurut.

2→3 4 6 2 3→4 6 2 3 4→6 2 3 4 6

7 7 7 7

9 9 9 9

2→3 4 2 3→4 2 3 4

6 6 6

7 7 7

9 : 2 < 3 maka tidak terjadi pertukaran 9 : 3 < 4 maka tidak terjadi pertukaran 9 : Elemen ketiga yaitu 4 sudah terurut.

2→3 2 3

6 6

7 7

9 : 2 < 3 maka tidak terjadi pertukaran 9 : Elemen kedua yaitu 3 sudah terurut

4 4

: 2 < 3 maka tidak terjadi pertukaran : 3 < 4 maka tidak terjadi pertukaran : 4 < 6 maka tidak terjadi pertukaran : Elemen keempat yaitu 6 sudah terurut.

Pada akhir langkah kelima ini tinggal satu elemen pertama yang belum diproses, tetapi karena tinggal satu elemen maka dengan sendirinya sudah menempati urutan yang benar (sudah terurut) sehingga langkah tidak perliu dilanjutkan (selesai). Algoritma : Ascending algoritma Gravitation_Sort (A, n) 1. for i ← 1 to n—i do 2. for j ← 1 ton-i do 3. if A[j] > A[j+1) then TUKAR(A[j],A[+i]) 4. endfor 5. endfor Algoritma prosedur TUKAR: 6. TUKAR(x,y); x ← y; y ← Temp; 7. Temp ← x; 8. end;

36

Contoh Program : Program Urut_GRAVITASI;

uses crt; var i,j,k,temp,n integer;

A, B, C array [1..100] of integer;

begin

clrscr; textcolor(12); write(’Banyaknya Elemen Array : ‘);

readln(n);

{Input Data} for i := 1 to n do

begin write(’Elemen ke-’ ,i,’: ‘); readln(A[i]);

end;

{Cetak Array Sebelum Pengurutan} writeln; textcolor(15); write(’Sebelum diurutkan : ‘); for i := l to n do write(A[i],’ ‘); writeln; textcolor(15);

writeln; writeln(’Proses Pengurutan Gravitasi : ‘); for i := 1 to n-1 do begin for j := 1 to n-i do begin if A[j] > A[j+1] then begin temp := A[j+1]; A[j+1] := A[j]; A[j] := temp; end; end; writeln; textcolor(i);

37


Pengurutan/Sorting

{Cetak Array tiap Iangkah pengurutan :}

write(’Hasil akhir langkah ke-’,i,’ : ‘); for k := 1 to n do end;

write(A[k],’

Langkah 3 :

6

‘);

Langkah 4 : writeln; textcolor(15);

write(A[i],’ ‘); writeln; writeln; textcolor(10); write (’Sudah terurut dengan benar khan ..?‘);

readln; end.

2

3

4

Langkah 5 :

4

2

6

2

Hasilnya : 3

4

2

3

: rnaksimumnya 6 (elemen ke-l) ditukar dengan 3 (elemen ke-4) 7

9

Elemen sisanya (yang belum terurut): 3 3

write(’Hasil Pengurutan Gravitasi : ‘); for i := 1 to n do

4

Hasilnya : 3

{Cetak Array Setelah Pengurutan} writeln;

Elemen sisanya (yang belum terurut) : 6

4

2

: maksimumnya 4 (elemen ke-2) ditukar dengan 2 (elemen ke-3) 2

4

6

7

9

Elemen sisanya (yang belum terurut): 3 2 3 2 : maksimumnya 3 (elemen ke-l) ditukar dengan 2 (elemen ke-2) Hasilnya : 2 3 4 6 7 9

Pada akhir langkah ke-5 ini tinggal satu elemen yang belum diproses, tetapi karena sudah pasti menempati posisi yang sesuai maka proses tidak perlu dilanjutkan (selesai).

3. Pengurutan SELEKSI (Selection Sort) Ide Pengurutan: Pemilihan elemen-elemen ekstrim, paling besar (maksimum) atau paling kecil (minimum), kemudian ditempatkan pada posisi yang sesuai. Langkah tersebut diulangi untuk elemen-elemen sisanya, sampai semua elemen terurut. Berdasarkan ide tersebut maka terdapat 4 variasi dalam pengurutan seleksi ini, yaitu: 1. Pengurutan Naik : Pemilihan maksimum, ditempatkan di bagian akhir. 2. Pengurutan Naik : Pemilihan minimum, ditempatkan di bagian awal. 3. Pengurutan Turun : Pemilihan maksimum, ditempatkan di bagian awal. 4. Pengurutan Turun : Pemilihan minimum, ditempatkan di bagian akhir. Contoh: Urutkan naik elemen-elemen array A = [6, 9, 7, 3, 2, 4] dengan pemilihan maksimum. Langkah 1 :

Langkah 2 :

38

6

9 7

3

2

4

Hasilnya : 6

4

7

3

: maksimumnya 9 (elemen ke-2) ditukar dengan 4 (elemen ke-6) 2 9

Algoritma : Ascending dengan memilih maksimum algoritma Selection_Sort (A, n) 1. for i ← l to n—l do 2. imaks = 1; 3. for j ← 2 to n-i+1 do 4. if A[j] > A[imaks] then imaks ← j 5. endfor 6. TUKAR(A[imaks] ,A[n-i+l) 7. endfor Algoritma prosedur TUKA R: 8. TUKAR(,y); x ← y; 9. Temp ← x; 10. end

y ← Temp;

Silahkan dibuat programnya dan modifikasilah untuk tiga variasi yang lain.

Elemen sisanya (yang belum terurut) : 6 4 7 3 2 6 4 7 3 2 : maksimumnya 7 (elemen ke-3) ditukar dengan 2 (elemen ke-5) Hasilnya : 6 4 2 3 7 9

39


Pengurutan/Sorting

for i := 1 to n do

Contoh Program:

readln; end.

program Urut_SELEKSI;

uses crt; var i,j,k,temp,imaks,n : integer ;

A,B,C : array [1. .100] of integer;

begin clrscr;

textcolor(10);

write(’Banyaknya Elemen Array: ‘); readln(n);

{lnputData} for i := 1 to n do begin write(’Elemen ke-’ ,i, ’: ‘); end;

write(A[i],’ ‘ );

4. Pengurutan SISIP (Insertion Sort) Ide Pengurutan : Ambil sembarang elemen (misal secara beruntun mulai dari elemen kedua), bandingkan dengan elemen-elemen didepannya untuk rnendapatkan posisi yang sebenarnya (posisi terurut). Jika posisi yang benar sudah diperoleh maka tempatkan elemen tersebut ke posisi yang benar tersebut. Langkah untuk pengurutan naik :

readln(A[i]);

{Cetak Array Sebelum Pengurutan) writeln; textcolor(15); write(’Sebelum diurutkan : ‘); for i := 1 to n do write(A[i],’ ‘); writeln; writeln; textcolor(15); writeln(’Proses Pengurutan Seleksi : ‘); for i := 1 to n-1 do begin imaks := i; for j := i+1 to n do if A[j] < A[imaks] then imaks := j;

1. Anggap elemen pertama sudah dalam kondisi terurut. 2. Mulai elemen kedua sampai elemen terakhir lakukan : 2.1. Simpan elemen tersebut dalam variabel temporary 2.2. Bandingkan dengan elemen depannya: − Jika lebih kecil maka bandingkan lagi dengan elemen depannya lagi −

Jika Iebih besar maka lakukan pergeseran elemen-elemen dari elemen sebelum elemen tersebut sampai elemen setelah elemen yang lebih kecil itu ke kanan

satu langkah, dan isilah (assign-lah) posisi yang ditinggalkan oleh elemen yang digeser tersebut yang paling kiri dengan niali variable temporary tadi. 3. Ulangi untuk elemen-elemen berikutnya sampai semua elemen terurut. Ilustrasi,: Pengurutan naik Dari gambar di samping : Misalkan elemen ke -1 s.d. ke-5 sudah terurut. Maka sekarang kita ilustrasi-kan langkah pengurutan untuk elemen ke-6 :

{Tukar A[j] dengan A[imaks]} temp := A[imaks]; A[imaks] := A[i]; A[i] := temp; writeln; textcolor(i); {Cetak Array tiap langkah pengurutan:} write (‘Hasil akhir langkah ke-’ , i ,’ : ‘); for k := 1 to n do write(A[k],’ ‘); end;

Elemen ke : 1

2

3

4

5

6

7

8

Setelah elemen ke-6 dibanding-bandingkan dengan elemen-elemen didepannya ternyata seharusnya elemen ke-6 menempati elemen ke-2, maka elemen ke-2 sampai ke5 digeser ke kanan satu langkah, dan elemen ke-2 di isi oleh elemen ke-6.

{Cetak Array Setelah Pengurutan} textcolor(15); write(’Hasil Pengurutan Seleksi : ‘);

40

41


Pengurutan/Sorting

Contoh: Urutkan naik elemen-elemen array A = [6 9 7 3 2 4]

Langkah 1 :

Ambil Elemen kedua 6←9 7 3 2 4 Hasilnya

Langkah 2 :

6

9←7

6←7

4

9

4

: 7 < 9 maka terjadi pertukaran

3

2

4

: 7 > 6 maka tidak terjadi pertukaran

6

7

9

3

2

4

Ambil elemen keempat : 3 < 9 maka terjadi pertukaran 6 7 9←3 2 4 6 7←3 9 2 4 : 3 < 7 maka terjadi pertukaran 6←3 7 9 2 4 : 3 < 6 maka terjadi pertukaran 3

6

7

9

2

4

Ambil elemen kelima 3

6

7

9←2

3 6 7←2 3 6←2 7 3←2 6 7 Hasilnya

42

2

2

Hasilnya

Langkah 5 :

3

3

Hasilnya

Langkah 4 :

7

Ambil elemen ketiga 6

Langkah 3 :

9

: 9 > 6 maka tidak terjadi pertukaran

9 9 9 2

4

: 2 < 9 maka terjadi pertukaran

4 4 4

: 2 < 7 maka terjadi pertukaran : 2 < 6 maka terjadi pertukaran : 2 < 3 maka terjadi pertukaran

3

6

7

Ambil eleman keenam 2 3 6 7 9←4 2 3 6 7←4 9 2 3 6←4 7 9 2 3←4 6 7 9

: : : :

Hasilnya

6

2

3

4

9

4<9 4<7 4<6 4>3 7

4

maka terjadi pertukaran maka terjadi pertukaran maka terjadi pertukaran maka tidak terjadi pertukaran 9

Algoritma : Ascending algoritma Insertion_Sort (A, n) 1. for i ← 2 to n do j ← i-1; 2. temp ← A[i]; 3. 4.

while (temp < A[j]) and (j > 0) do j ← j-1

5. endwhile 6. for k ← i downto j+1 do 7. A[k] ← A[k-1] 8. endfor 9. A[j+1] ← temp; 10. endfor

Pahami langkah pengurutan tersebut, coba implementasikan algoritmanya, dan modifikasi-lah untuk pengurutan menurun. Contoh Program: program INSERTION_SORT;

uses crt; var i,j,k,temp,n : integer;

A,B,C : array [1. .100] of integer;

begin clrscr; textcolor(12);

write(’Banyaknya Elemen Array : ‘);

{Input Data} for i := 1 to n do begin write(’Elemen ke- ’ ,i,’: ‘) ; end;

readln(n);

readln(A[i];

{Cetak Array Sebelum Pengurutan} writeln; textcolor(15); write(’Sebelum diurutkan : ‘); for i := l to n do write(A[i],’ ‘); writeln; textcolor(15) ; writeln;

43


Pengurutan/Sorting

writeln (‘Proses Pengurutan Insertion : ‘); for i := 2 to n do begin temp := A[i);

j := i—1; while (temp < A[j]) and (j > 0) do

j := j - 1; for k := i downto j+1 do A[k]:= A[k-1];

A[j+1]:= temp; writeln; textcolor(i);

write(’Hasil akhir langkah ke-’ ,i-1,’ : ‘); {Cetak Array tiap langkah pengurutan :} for k := 1 to n do

end;

write(A[k],’

‘);

{Cetak Array Setelah Pengurutan} writeln; writeln; textcolor(15); write(’Hasil Pengurutan Insertion ‘);

for i := 1 to n do write(A[i),’ ‘); writeln; writeln; textcolor(10); write (‘ Sudah terurut dengan benar khan ..? ‘); readln; end. 5. Pengurutan SISIP-TUKAR (Swap-Insertion Sort) Ide Pengurutan: Mirip dengan pengurutan SISIP, bedanya jika posisi suatu elemen tidak dalam kondisi terurut maka langsung dilakukan pertukaran. Jadi tidak ada proses pergeseran. Untuk pengurutan naik : Ambil sembarang elemen (misal secara beruntun mulai dari elemen kedua), bandingkan dengan elemen didepannya, jika ternyata lebih kecil maka tukarkan, dan lakukan hal yang sama dengan elemen depannya lagi, sampai diperoleh kondisi lebih besar. Ulangi untuk elemen ketiga sampai elemen terakhir.

44

Langkah untuk pengurutan naik : 1. Anggap elemen pertama sudah dalam kondisi terurut. 2. Mulai elemen kedua sampai elemen terakhir lakukan : 2.1. Simpan (assign) variabel indeksnya ke variabel lain. 2.2. Bandingkan elemen tersebut dengan elemen depannya (gunakan variable indeks yang baru) : - Jika lebih kecil maka tukarkan, kemudian bandingkan lagi dengan elemen depannya lagi - Jika lebih besar maka berhenti. 3. Ulangi untuk elemen ketiga dan seterusnya sampai semua elemen terurut Contoh: Urutkan naik elemen-elemen array A [6, 2, 9, 3, 4, 7] Langkah 1 : Ambil elemen kedua 6←2 9 3 4 7 : 2 < 6 maka terjadi pertukaran dan Hasilnya : 2 6 9 3 4 7 Langkah pertama selesai (sudah sampai elemen terdepan) Langkah 2 : Ambil elemen ketiga 2 6←9 3 4 7 : 9 > 6 maka tidak terjadi pertukaran dan Langkah kedua selesai, Hasilnya : 2 6 9 3 4 7 Langkah 3 : Ambil elemen keempat 2 6 9←3 4 7 : 3 < 9 maka terjadi pertukaran 2 6←3 9 4 7 : 3 < 6 maka terjadi pertukaran 2←3 6 9 4 7 : 3 > 2 maka tidak terjadi pertukaran dan Langkah ketiga selesai, Hasilnya : 2 3 6 9 4 7 Langkah 4 : Ambil elemen kelima 2 3 6 9←4 7 : 4 < 9 maka terjadi pertukaran 2 3 6←4 9 7 : 4 < 6 maka terjadi pertukaran 2 3←4 6 9 7 : 4 > 3 maka tidak terjadi pertukaran dan Langkah keempat selesai, Hasilnya : 2 3 4 6 9 7 Langkah 5 : Ambil elemen keenam 2 3 4 6 9←7 : 7 < 9 maka terjadi pertukaran 2 3 4 6←7 9 : 7 > 6 maka tidak terjadi pertukaran dan Langkah kelima selesai, Hasilnya : 2 3 4 6 7 9

45


Pengurutan/Sorting

end;

Algoritma : Ascending

writeln; textcolor(i); write(’Hasil akhir langkah ke-’,i,’ : ‘);

algoritma Insertion_Swap_Sort (A, n) 1. for i ← 1 to n-1 do 2. j ← i+i; 3. 4.

{Cetak Array tiap Iangkah pengurutan:} for k := 1 to n do write(A[k],’ ‘);

while (A[j] < A[j-l]) and (j > 1) do begin TUKAR(A[j] ,A[j-1]); j ← j - 1;

end; {Cetak Array Setelah Pengurutan}

5. 6. endwhile 7. endfor

end.

Contoh Program :

clrscr; textcolor(12); write (‘Banyaknya Elemen Array : ‘); {Input Data} for i := 1 to n do end;

Program sorting_bubble_selection; uses crt; Type larik = array [1..10] of byte’ objek = object

bykdata : byte; dataawal : larik; procedure input; procedure tukar (var a,b : byte); procedure bubble (data : larik); procedure selection (data : larik);

readln(n);

write(’Elemen ke-’ ,i,’: ‘) ; readln(A[i]);

{Cetak Array Sebelum Pengurutan} writeln; textcolor(15); write(’Sebelum diurutkan : ‘); for i := 1 to n do write(A[i], ’ ‘ ); writeln; textcolor(15); writeln; writeln (‘Proses Pengurutan Swap_Insertion: ‘); for i := 1 to n-1 do begin j := i + 1; while (A[j] < A[j-1]) and (j > 1) do begin temp := A[j-1]; A[j-1]:= A[j]; A[j]:= temp; j := j — 1;

46

readln;

Contoh

Program INSERTION_SWAP_SORT; uses crt; var i,j,k,temp,n : integer; A,B,C : array [1. .100] of integer;

begin

writeln; textcolor(15);

write(’Hasil Pengurutan Insertion : ‘); for i := 1 to n do write(A[i],’ ‘);

Algoritma prosedur TUKAR: 8. TUKAR(x,y); 9. Temp ← x; x ← y; y ← Temp; 10. end;

begin

writeln;

end;

procedure cetak (data : larik);

procedure objek.input; var I : byte begin repeat write( ‘Banyak Data [max 110] ? ’); readln (bykdata); if (bykdata > 10) then begin writeln ( ‘Data yang dimasukkan kebanyakan ’); readkey; writeln;

47


Pengurutan/Sorting

end;

writeln(‘selection sort’);

begin

begin

until (bykdata <= 10); for i := 1 to bykdata do

end; end;

write(‘ Data ke- ‘,i,’= ’);

cetak (data); for i := 1 to bykdata do readln (dataawal[i]);

b := temp;

procedure objek.bubble (data : larik); var i,j : byte; begin clrscr; writeln (‘ bubble sort ’); write (‘awal : ‘); cetak (data); for i := 1 to bykdata-1 do begin

if (data [j] > data[j+1] then tukar(data[j], data[j+1]); gotoxy (6, wherey);

end; readkey; end; write (‘ akhir : ’); cetak (data); readkey; end; procedure objek.selection (data : larik); var i, j, lok : byte; begin clrscr;

48

lok := i ;

for j := i+1 to bykdata do if (data[lok] > data [j] then lok := j;

procedure objek.tukar (var a, b : byte); var temp : byte; begin temp := a; a := b; end;

write (‘awal ’);

end;

tukar (data [i], data[lok]);

write (‘I = ‘,i,’ lok = ‘, lok); cetak(data);

procedure objek.cetak (data : larik); var i : byte; begin

for i := 1 to bykdata do begin gotoxy (i*10, wherey); write(data[i] : 5);

end;

end;

writeln;

var sort : objek; begin clrscr;

end.

sort.input; sort.bubble (sort.dataawal); sort.selection (sort.dataawal);

Program Sorting_swap_insertion; uses crt; Type larik = array [1..10] of byte; Objek = object Bykdata : byte; Dataawal : larik; procedure input;

49


procedure tukar (var a,b : byte);

end;

procedure swa_insertion (data : larik); procedure cetak (data : larik);

Pengurutan/Sorting

for i := 1 to bykdata-1 do begin

write(‘I = ‘,i,’ ’); j := i+1; begin

procedure objek.input; var i : byte

while (data[j] < data [j-1]) and (j > 1) do begin

begin

tukar (data[j], data [j-1]);

repeat write(‘Banyak Data [max 110] ? ’); readln (bykdata); if (bykdata > 10) then begin

writeln (‘ Data yang dimasukkan kebanyakan ’); readkey; writeln;

end; until (bykdata <= 10); for i := 1 to bykdata do begin

end; end;

write(‘ Data ke- ‘,i,’= ’); readln (dataawal[i]);

procedure objek.tukar (var a, b : byte); var temp : byte; begin temp := a; a := b; b := temp; end; procedure objek.swap_insertion (data : larik); var i, j, lok : byte; begin clrscr; writeln (‘ swap insertion sort ’); write (‘awal ‘); cetak (data);

50

{gotoxy (6, wherey);} {write (‘J = ‘,j); }

end;

j := j-1;

Cetak (data); end;

writeln (‘ akhir = ’); cetak (data);

readkey; end; end;

procedure objek.cetak (data : larik); var i : byte; begin for i := 1 to bykdata do begin gotoxy (i*10, wherey); write(data[i] : 5);

end;

end; writeln;

var sort : objek; begin clrscr; sort.input; sort.swap_insertion(sort.dataawal); end.

***

51


6 Penggabungan/Merging Array

Merging adalah proses penggabungan dua array yang elemen-elemennya sudah terurut sehingga array hasil penggabungan tersebut juga terurut. Contoh: Array A = [2, 5, 10, 12, 15, 17] Array B = [4, 6, 7, 11, 16, 18,20] Misalkan array C adalah hasil proses merging array A dan B tersebut maka : Array C = [2, 4, 5, 6, 7, 10, 11, 12, 15, 16, 17, 18, 20] TUGAS: Buatlah program Merging dari dua array, misalkan array A dan B dengan banyaknya elemen masing-masing array tidak sama. Hasil Penggabungan simpan pada array C. Struktur programnya : Nama program Deklarasi varabel begin 1. input bilangan untuk banyaknya elemen array A misal m 2. generate array A : misal dengan random(1l0) 3. proses pengurutan array A 4. cetak array A 5. input bilangan untuk banyaknya elemen array B misal n 6. generate array B : misal dengan random(100) 7. proses pengurutan array B 8. mencetak array B 9. proses penggabungan (merging) 1O. cetak array C (hasil merging)) end.

52

53


Saran : akan lebih baik jika dibuat juga prosedur pengurutan (dengan algoritma apa saja : Bubble atau Selection atau Insertion), sehingga pada proses pengurutan masing-masing array A dan B tinggal panggil prosedur pengurutan tersebut.

Penggabungan/Merging Array

Contoh Program : PROGRAM MERGING_ARRAY;

uses crt; var i,j,k,m,n,y,Temp : integer;

A,B,C : array[1. .100] of integer;

Algoritma Merging: Langkah 0 : Baca kedua vektor yang akan dimerge, vektor A dan vektor B, banyaknya elemen pada kedua vektor, Ca dan Cb. Lakukan proses pengurutan secara urut naik pada kedua vektor ini. Langkah 1 : (Menentukan subskrib awalan) Tentukan: I = 1, J = 1, dan Cc = 0 Langkah 2 : (Proses merging berlangsung) Kerjakan langkah 3 dan 4 sampai (I > Ca) atau ( J > Cb) Langkah 3 :

Tentukan : Cc = Cc + 1.

Langkah 4 : Test apakah : A[I] < B [J] ?

Jika ya, tentukan : C[Cc] = A[I], dan I= I + 1. Jika tidak, tentukan : C[Cc] = B[j], dan J = J +1.

Procedure Cetak_array(A:array of integer; x:integer); var i : integer; begin

write(’ Hasilnya : ‘); for i:= 0 to x-1 do write(A[i], ’

end;

procedure sisip(var A : array of integer; x:integer); var i,j,temp : integer; begin for i := 1 to x-1 do begin temp := A[i];

for k := i downto j do

Jika tidak, berarti semua elemen pada vektor kedua sudah diproses semua, kerjakan langkah 7.

Langkah 7 : Untuk K = I sampai Cb, tentukan : Cc = Cc + 1, dan C[Cc] = A[k]. Langkah 8 : Selesai.

54

j := i;

while (temp < A[j-1]) and (j > 0) do j := j — 1;

Langkah 5 : Test apakah I > Ca ? Jika ya, berarti semua elemen pada vektor pertama sudah diproses semua, kerjakan langkah 6.

Langkah 6 : Untuk K = J sampai Cb, Tentukan : Cc = Cc + 1, dan C[Cc] = B[k], Dan melompat kelangkah 8.

‘);

end;

A[k] := A[k-1]; A[j] := temp;

end;

procedure Gabung(A,B array of integer; m,n : integer; var C : array of integer; var x : integer); var i, j, k, y : integer; begin i := 0; j := 0; k := 0; while (i <= m) and (j <= n) do begin if A[i] < B[j) then begin

55


Penggabungan/Merging Array

C[k]:= A[i];

begin

i := i + 1;

clrscr; randomize;

end

else begin

writeln(’ M E R G I N G’); write(’Banyaknya elemen array pertama :

C[k] := B[j]; j := j + 1;

readln(m); write(’Banyaknya elemen array kedua :

end;

k := k + 1; write(’i=’,i,’ j=’,j,’ k=’,k,’

end;

cetak_array(C,k-1); writeln;

readln(n); ‘);

if i > m then begin

for i := 1 to m do A[i] := random(100); for i := 1 to n do B[i] := random(100);

sisip(A,m); write(’ Array pertama : ‘); cetak_array(A,m); writeln; sisip(B,n);

end;

write(’ Array kedua : ‘); cetak_array(B,n); writeln;

end else if j > n then begin for y := k-1 to m+n do

writeln(’Proses Penggabungan : ‘); Gabung(A,B,m,n,C,y);

begin C[y] := A[i]; i := i + 1; end;

end;

‘);

writeln( ‘Sebelum Penggabungan : ‘);

for y := k-1 to m+n do begin C[y] := B[j]; j := j + 1;

end; write(’Setelah penggabungan : x := y;

‘);

‘); cetak_array(C,y);

writeln; write(’Setelah penggabungan : ‘); cetak_array(C,y); readln; end. Metoda MergeSort Metoda MergeSort atau yang sering disebut juga dengan metoda MergeSort Dua Arah (Two-way MergeSort). Metoda ini memanfaatkan keteraturan yang diperoleh dari hasil merging dua buah vektor. Vektor masukan dianggap yang mempunyai elemen dianggap sebagai N buah vektor yang masing-masing terdiri dari sebuah vektor. Untuk setiap pasang vektor kita lakukan proses

56

57


merging sehingga akan kitaperoleh N/2 vektor yang masing-masing terdiri dari 2 elemen (

7

jika ganjil, akan terdapat sebuah vektor dengan 1 elemen). Kemudian dilakukan merging kembali untuk setiap pasang vektor, sehingga kita peroleh N/4 buah vektor. Langkah ini

Record

kita teruskan sampai kita memperoleh sebuah vektor yang sudah dalam keadaan urut. Ilustrasi

15

12

45

56

13

10

43

34

56

65 Dengan tipe data record, dapat dikumpulkan beberapa item data yang masing-masing dengan tipe data berbeda-beda. Masing-masing item data itu disebut field. Jadi record terdiri dari kumpulan field yang dapat berbeda tipe. Biasanya record berisi beberapa field untuk sebuah subyek tertentu.

15

12

12

12

45

15

15

56

45

45

13

56

10

10

56

43

13

10

34

34

13

34

56

43

65

56

12

13

15

34

43

45

56

10

12

13

15

34

43

45

field1; field2; ….

43

fieldn; 56

10

65

Deklarasi Record : Type nama_record = Record

56

56

56

65

65

65

end; Contoh: Type Mhs= Record NPM : integer [12];

Var Mahasiswa: Record NPM : integer [12];

Nama: string[25]; Alamat: string[50]; End; Var Mahasiswa: Mhs;

Nama: string[25]; Alamat: string[50]; End;

Cara pemanggilannya: Mahasiswa.NPM Mahasiswa.Nama Mahasiswa.Alamat Statement with digunakan untuk mempersingkat penulisan record sehingga tidak perlu menuliskan lagi nama recordnya. Tipe Data Record dapat juga mempunyai Field berupa Tipe Data Record yang lainnya.

58

59


Record

Contoh Program Type Data Record. Type Hasil = Record

JariJari : real; Keliling : real;

Begin Writeln; With Mahasiswa[I] Do Begin Writeln;

Luas : real; End;

Write(‘NPM ke ‘, I:2,’ ? ‘); Readln (NPM); Write (‘Nama Mahasiswa ke ‘, I:2,’ ? ‘); Readln (Nama); Write (‘IP Mahasiswa ke ‘, I:2, ‘ ? ‘); Readln (IP);

Var Lingkaran : Hasil; Begin

With Lingkaran Do

Begin Write (‘Jari-Jari lingkaran? ‘); readln (JariJari); Keliling := 2*PI*JariJari; Luas := PI * sqr(JariJari); Writeln;

End; End; {Mengurutkan data berdasarkan NPM mahasiswa dengan Bubble Sort} For I:= 1 to JumlahMhs-1 Do For J:= 1 to JumlahMhs-I do If Mahasiswa[J].NPM > Mahasiswa[J+1].NPM then Begin

Writeln (‘Keliling Lingkaran = ‘, Keliling:7:2); Writeln(‘Luas Lingkaran = ‘, Luas:7:2); End; End; Contoh mengurutkan data mahasiswa berdasarkan NPM dengan Ascending (Mengurut Naik). Type DataMhs = Record NPM : Integer; Nama : String[20]; IP : Real; End; Var JumlahMhs, I, J Mahasiswa Temp

: Byte; : Array [1..50] of DataMhs; : DataMhs;

Begin {masukkan data mahasiswa} Write (‘Jumlah Mahasiswa ? ‘); Readln(JumlahMhs); For I := 1 to JumlahMhs Do

60

Temp := Mahasiswa[J]; Mahasiswa [J] := Mahasiswa [J+1]; Mahasiswa [J+1] := Temp; End; {menampilkan hasil} Writeln; Writeln(‘-----------------------------------------------------------------------‘); Writeln(‘ NPM Nama Mahasiswa IP ‘); Writeln(‘-----------------------------------------------------------------------‘); For I := 1 to JumlahMhs Do Begin With Mahasiswa[I] Do Writeln (NPM:5, Nama:20, IP:11:2); End; Writeln(‘-----------------------------------------------------------------------‘); End.

Contoh Tipe Data Record dengan Tipe Data Record Lainnya. Type TglLhr = Record Hari : 1..31; Bulan : 1..12; Tahun : Word;

61


End; Almt = Record Jalan : String[35];

8

Kota : String [25]; End;

File Teks

Mhs = Record Nama: String[25]; Alamat : Almt; TglLahir : TglLhr; End;

Bila data yang perlu disimpan mempunyai volume yang cukup besar, maka penggunaan

DataMhs : Mhs;

variable atau larik sudah tidak tepat lagi, karena variable dan larik menggunakan memory internal computer yang bersifat terbatas dan volatile (hilang jika aliran listrik terputus). Oleh

{masukkan data Mahasiswa} DataMhs.Nama := ‘Intan’;

karena itu File digunakan untuk menyimpan data bervolume yang besar dengan menyimpannya di eksternal memory yang relative punya kapasitas yang besar dan bersifat nonvolatile (data tidak hilang jika aliran listrik putus, permanen).

Var Begin

DataMhs.Alamat.Jalan DataMhs.Alamat.Kota DataMhs.TglLahir.Hari DataMhs.TglLahir.Bulan

:= ‘Muara 2’; := ‘Jakarta’; := ‘19’; := ‘11’;

Prosedur dan Fungsi Standar Assign Assign digunakan untuk menghubungkan nama dari eksternal file ke dalam suatu file

DataMhs.TglLahir.Tahun := ‘198X’; {menampilkan hasil} With DataMhs Do Begin Writeln (‘Nama Mahasiswa = ‘, Nama); With Alamat Do

variable dengan sintaks: Assign (f, name : string); Ket: f adalah file variable Name adalah eksternal file yang akan digunakan. Contoh: Assign(Rekam, ‘A:Data.DAT’); Assign (Cetak, ‘LPT1’);

Begin Writeln (‘Alamat Writeln (‘

Rewrite Rewrite digunakan untuk membuka file yang baru atau yang belum pernah ada di disk

= ‘, Jalan); ‘, Kota);

End; With TglLahir Do Begin Writeln (‘Tanggal Lahir End; End; End.

= ‘,Hari:2, ‘ -‘, Bulan:2, ‘ -‘, Tahun:4);

***

62

dengan sintaks: Rewrite (f[:file; recsize : word]); Ket: f adalah file variable yang sudah dihubungkan dengan eksternal file menggunakan prosedur standar Assign. Recsize adalah ukuran dari record yang digunakan. Contoh: Assign (Rekam, ‘A: GAJI.DAT’); Rewrite(Rekam); Rewrite akan menghapus isi yang sebelumnya sudah ada di file.

63


Write dan Writeln

File Teks

Begin

Write dan writeln akan menuliskan data-data yang akan direkamkan ke file teks. Perbedaannya adalah prosedur write belum memberikan tanda akhir baris sedang writeln

Assign (BerkasTeks, ‘Barang.txt’) {hubungan dengan eksternal file} Rewrite(BerkasTeks); {buka file}

sudah memberikan tanda akhir baris. Lagi := ‘Y’; Sintaks:

While Upcase (Lagi) = ‘Y’ Do

Write ([var f : text;] v1[,v2, …, vn]); Writeln ([var f : text;] v1[,v2, …, vn]);

Writeln (TipeFile, KodeBrg:5, NamaBrg:20, UnitBrg, HargaBrg:10:2); Close Close digunakan untuk menutup file yang telah dibuka dengan prosedur Rewrite, Reset, Append dengan sintaks: Close (f); Ket: f adalah file variable yang sudah dihubungkan dengan eksternal file menggunakan prosedur Assign. Contoh: Close (Rekam); Langkah-langkah untuk membuat file teks yang baru: 1. deklarasikan sebuah file variable dengan tipe file text. 2. Hubungkan file variable ini dengan external file yang akan digunakan dengan prosedur Assign. 3. File teks yang baru dibuka dengan prosedur Rewrite. 4. Masukkan data yang akan direkam ke file pada variable-variabel. 5. Rekam data yang ada di variable-variabel ke file teks dengan menggunakan prosedur write atau writeln. 6. Ulangi langkah 4 dan 5 bila rekam data belum selesai. 7. tutup file teks bila operasi file telah selesai menggunakan prosedur Close. Contoh Program File Teks

64

Clrscr; gotoXY(5,6); Write (‘Kode Barang gotoXY(5,8); Write (‘Nama Barang

Contoh:

Uses crt; Var BerkasTeks KodeBrg NamaBrg UnitBrg HargaBrg Lagi

Begin

: Text; {variable file} : String[5]; : String[20]; : Integer; : Real; : Char;

: ‘); : ‘);

gotoXY(5,10); Write (‘Unit Barang : ‘); gotoXY(5,12); Write (‘Harga Satuan Barang: ‘); {Masukkan data ke variable-variabel} gotoXY(27,6); readln(KodeBrg); gotoXY(27,8); readln(NamaBrg); gotoXY(27,10); readln(UnitBrg); gotoXY(27,12); readln(HargaBrg); {rekam di file} Writeln(BerkasTeks,KodeBrg:5,NamaBrg:20,UnitBrg,HargaBrg:10:2); gotoXY(5,15); Write(‘Ada data lagi (Y/T) ? ‘ ); Readln(Lagi); end; {tutup file} Close (BerkasTeks); End.

***

65


66

File Teks

67


68

Searching Modul Dalam Program...23

Recommend Documents