Borland C++ Builder Mencari Nilai Tertinggi dan Terendah

Posted: Saturday, February 4, 2012 by Ciloty BrotherHoodz Community in Labels: ,
Comments

Kali ini kami akan melanjutkan berbagi ilmunya, Membuat Program untuk Mencari Nilai tertinggi dan Terendah Menggunakan Borland C++ Builder kali ini kita akan membuat program untuk mencari nilai tertinggi dan terenadah yang dimasukan oleh pengguna kemudian program akan menujukan nilai tertinggi dan terendah yang ada di dalam data yang telah pengguna program ini setelah ddata dimasukan.


Pertama buat tampilan program seperti gambar dibawah ini. Kemudian masukan deklarasi variabel yang akan digunakan pada "Public" seperti ini


public: // User declarations
AnsiString a[100];
int b[100], n;


Digambar diatas terdapat 3 "Button", 3 "ListBox" dan 3 "Edit", kemudian klik dua kali pada "Button" "Masukan" seperti yang ada digambar dan masukan algoritmanya seperti yang dibawah ini

{
 a[n] = (Edit1->Text);
 b[n] = StrToInt (Edit2->Text);

 ListBox1->Items->Add(a[n]);
 ListBox2->Items->Add(b[n]);

 Edit1->Text="";
 Edit2->Text="";
 n=n+1;
}

Silahkan dicoba dulu dengan menekan tombol F9 (run), untuk melihat ada kesalahan atau tidak jika lancar lanjutkan dengan mengisi algoritma pada tombol "Tertinggi" seperti ini :

{
 int i, indeks, max, ketemu;

 ListBox3->Items->Clear();

 i=0;
 max=-1;
 ketemu=0;
 while (i<n)
    {
     if (max < b[i])
        {
         max = b[i];
         indeks = i;
         ketemu=1;
        }
     i++;
    }
 if (ketemu==1)
    {
     Edit4->Text = IntToStr (max);
    }

 indeks=0;
 while (indeks<n)
    {
     if (max==b[indeks])
        {
         ListBox3->Items->Add(a[indeks]);
        }
     indeks=indeks+1;
    }
}

Selanjutnya test lagi seperti tadi dengan menekan tombol F9 (run) untuk mengecek ada kesalahan atau tidak, jika tidak lanjutkan kembali dengan mengisi algoritma pada tombol "Terendah" seperti ini :

{
 int i, ketemu, min, indeks;

 ListBox3->Items->Clear();

 i=0;
 min=9999999999999;
 ketemu=0;
 while (i<n)
    {
     if (min > b[i])
        {
         min = b[i];
         indeks = i;
         ketemu = 1;
        }
     i=i+1;
    }

 if (ketemu==1)
    {
     Edit4->Text = IntToStr (min);
    }

 for (indeks=0; indeks<n; indeks++)
    {
     if (min==b[indeks])
        {
         ListBox3->Items->Add(a[indeks]);
        }
    }
}

Setelah semua tombol diisi dengan benar maka program yang kita buat tadi akan menampilkan gambar seperti dibawah ini setelah entrinya kita masukan, 
  • Untuk menampilkan nilai tertinggi


  • Untuk menampilkan nilai terendah


Sekian dulu. Jika ada kesempatan nanti akan dilanjutkan dengan tutor yang lainnya.