Selasa, 26 Mei 2009
Sifat masing-masing elemen array mengikuti jenis data yang dimilikinya, untuk array dengan tipe bilangan integer atau real kita bisa melakukan berbagai standar operasi aritmatika seperti penjumlahan, perkalian, pengurangan, dsb. Yang perlu di garis bawahi, bahwa sifat dari array dimanfaatkan untuk operasi matrik.
a. Mencari Harga Tertentu pada Array
Mencari suatu elemen data di dalam suatu data merupakan suatu kejadian yang sering kita alami, contoh: mencari nama mahasiswa dari daftar presensi. Pencarian beruntun (sequence), merupakan suatu teknik untuk mencari suatu elemen dalam suatu sistim yang lebih besar. Contoh. Misal array A[8], dengan elemen sbb: A 60 12 76 23 11 42 18 42 Untuk mencari apakah bilangan x=11 ada didalam tabel maka dilakukan pemeriksaan terhadap :60 12 76 23 11Sehingga ditemukan x pada elemen ke-5, dalam bahasa PASCAL diterjemahkan seperti berikut:
type PITA = ARRAY [1..8] of integer; var AKU: PITA;procedure CARI_MATRIK(AKU: PITA); var i: integer; {faktor pengulang} begin for i:=1 to 8 do begin if AKU[i]:= 11 then writeln(‘ terdapat bilangan 11 dalam pita ini ‘); else writeln(‘ tidak ada bilangan 11, pencarian berhenti ‘); end; end;
type PITA = ARRAY [1..8] of integer; var AKU: PITA;procedure CARI_MATRIK(AKU: PITA); var i: integer; {faktor pengulang} begin for i:=1 to 8 do begin if AKU[i]:= 11 then writeln(‘ terdapat bilangan 11 dalam pita ini ‘); else writeln(‘ tidak ada bilangan 11, pencarian berhenti ‘); end; end;
b. Mencari Harga Maksimum pada Array
Misal array di atas kita cari harga yang tertinggi, maka kita perlu menentukan nilai tertinggi dahulu sebelum melakukan pencarian ; diawali dengan nilai maksimum=0
procedure CARI_MAKSIMUM(AKU: PITA); var i: integer; {faktor pengulang} MAKS : integer; begin MAKS := AKU[1]; for i:=1 to 8 do begin if AKU[i]> MAKS then MAKS:= AKU[i]; End; Writeln(‘NILAI MAKSIMUM = ’,MAKS); end;
procedure CARI_MAKSIMUM(AKU: PITA); var i: integer; {faktor pengulang} MAKS : integer; begin MAKS := AKU[1]; for i:=1 to 8 do begin if AKU[i]> MAKS then MAKS:= AKU[i]; End; Writeln(‘NILAI MAKSIMUM = ’,MAKS); end;
0 Comments:
Subscribe to:
Posting Komentar (Atom)