dalam suatu deretan sejumlah angka.
1. Pencarian Angka Terbesar
Misalkan terdapat M = (2,9,3,15,10), dan n = 5
maka untuk mencari angka terbesar diperoleh Max = 2
untuk i = 1,
jika M[2] > Max, maka Max <--M[2], dikarenakan 9 > 2 bernilai benar maka
diperoleh nilai Max yang baru yaitu 9
untuk i = 2,
jika M[3] > Max, maka Max <--M[3], dikarenakan 3 > 9 bernilai salah maka
nilai Max tetap yaitu 9 (Max<--M[3] tidak dijalankan)
untuk i = 3,
jika M[4] > Max, maka Max <--M[4], deikarenakan 15 > 9 bernilai benar, maka
diperoleh nilai Max yang baru yaitu 15
untuk i = 4,
jika M[5] > Max, maka Max <--M[5], dikarenakan 15 > 10 bernilai salah maka
nilai Max tetap yaitu 15 (Max<--M[5] tidak dijalankan)
maka dari proses berjalan diperoleh angka Max = 15
dalam penggalan pemrograman pascal dapat dibuat sbb:
Const
M : Array[1..5] Of Byte = (2,9,3,15,10);
Var
i,Max : byte;
Begin
Write ('Angka Terbesar Dari Deretan Angka - Angka ');
For i := 1 to 5 do
Write(M[i]:3);
Max := M[1];
For i := 1 to 5-1 do
If (M[i] > Max) Then
Max := M[i];
Writeln ('Adalah : ',Max);
End.
dalam penggalan pemrograman C++ dapat dibuat sbb:
main( ) {
int M[5] = {2,9,3,15,10};
int i, max;
cout<<"Angka Terbesar dari Deretan Angka - Angka ";
for (i = 0;i <= 5;i++)
cout<<M[i]<<"\t";
for (i = 0;i <= 4;i++)
if ( M[i] > max)
if ( M[i] > max)
max = M[i];
cout<<"Adalah : "<<max;
}
2. Pencarian Angka Terkecil
Misalkan terdapat M = (15,9,3,2,10), dan n = 5
maka untuk mencari angka terbesar diperoleh Min = 15
untuk i = 1,
jika M[2] < Min , maka Min <--M[2], dikarenakan 9 < 15 bernilai benar maka
diperoleh nilai Min yang baru yaitu 9
untuk i = 2,
jika M[3] < Min, maka Min <--M[3], dikarenakan 3 < 9 bernilai benar maka
diperoleh nilai Min yaitu 3
untuk i = 3,
jika M[4] < Min, maka Min <--M[4], dikarenakan 2 < 3 bernilai benar, maka
diperoleh nilai Min yang baru yaitu 2
untuk i = 4,
jika M[5] < Min, maka Min <--M[5], dikarenakan 10 < 2 bernilai salah maka
nilai Min tetap yaitu 2 (Min<--M[5] tidak dijalankan)
maka dari proses berjalan diperoleh angka Min = 2
dalam penggalan pemrograman pascal dapat dibuat sbb:
Const
M : Array[1..5] Of Byte = (15,9,3,2,10);
Var
i,Min : byte;
Begin
Write ('Angka Terkecil Dari Deretan Angka - Angka ');
For i := 1 to 5 do
Write(M[i]:3);
Max := M[1];
For i := 1 to 5-1 do
If (M[i] < Min) Then
Min := M[i];
Writeln ('Adalah : ',Min);
End.
dalam penggalan pemrograman C++ dapat dibuat sbb:
main( ) {
int M[5] = {15,9,3,2,10};
int i, min;
cout<<"Angka Terkecil dari Deretan Angka - Angka ";
for (i = 0;i <= 5;i++)
cout<<M[i]<<"\t";
for (i = 0;i <= 4;i++)
if (M[i] < min)
if (M[i] < min)
min = M[i];
cout<<"Adalah : "<<min;
}
Semoga Bermanfaat.........
Semoga Bermanfaat.........
Tidak ada komentar:
Posting Komentar