Rabu, Juni 02, 2010

Menentukan Bilangan Terbesar/Terkecil Dalam Array

MENENTUKAN BILANGAN TERBESAR DAN TERKECIL DALAM SUATU ARRAY
Oleh Manorang Gultom, ST

Dalam suatu array yang mengandung elemen data random, akan ditemukan bilangan terkecil dan terbesar. Permasalahannya adalah bagaimana cara menentukan bilangan terkecil dan terbesar dari sekian banyak bilangan random yang diberikan ke kita.
Logika untuk mencari bilangan terkecil dan terbesar tersebut sangat mudah di terapkan, yaitu dengan cara :
1. Tentukan Bilangan terbesar sementara dalam suatu variable dengan nilai terkecil yang mungkin diberikan dalam array
2. Tentukan Bilangan terkecil sementara dalam suatu variable dengan nilai terbesar yang mungkin diberikan dalam array
3. Bandingkan bilangan terkecil dan terbesar sementara dengan semua elemen array
4. Jika ditemukan bilangan terkecil dan terbesar dalam array, maka simpan bilangan tersebut sebagai bilangan terkecil dan terbesar sementara
5. Lakukan langkah 4 hingga semua elemen array dibandingkan dengan bilangan terkecil dan terbesar sementara

Logika membandingkan bilangan terkecil dan terbesar dengan elemen array adalah sebagai berikut :

If A[i]>Besar Then Besar:=A[i];
If A[i]
Dengan logika diatas, maka jika ditemukan elemen array lebih kecil dan lebih besar dari bilangan terkecil dan terbesar sementara, maka elemen array akan disimpan menjadi bilangan terkecil dan terbesar sementara. Demikian seterusnya hingga semua elemen array terbandingkan.

Perhatikan contoh program dibawah ini :


Uses Crt;
Var
a : Array[1..100] Of Integer;
i,Besar,Kecil : Integer;
Begin
Clrscr;
Write('Array Asal =');
Randomize;
Besar:=0;
Kecil:=100;
For i := 1 to 15 Do
Begin
A[i]:=Random(100);
Write(A[i]:4);
If A[i]>Besar Then Besar:=A[i];
If A[i] End;
Writeln;
Readln;
Writeln('Bilangan Terbesar Dalam Array = ',Besar);
Writeln('Bilangan Terkecil Dalam Array = ',Kecil);
Readln;
End.

1 komentar:

Azrul (Aaz) mengatakan...

cacad program'a.. :/