Dizide En Büyük ve En Küçük Elemanı Bulma


   
var
  Numbers: Array[1.9] of Integer;  // Dizinin boyutunu 10 olarak kabul ediyoruz
  Counter, MinValue, MaxValue: Integer;

{
  // Diziyi tanımlayıp, içine rastgele sayılar ekliyoruz
  Numbers[1] = 45;
  Numbers[2] = 23;
  Numbers[3] = 67;
  Numbers[4] = 89;
  Numbers[5] = 12;
  Numbers[6] = 56;
  Numbers[7] = 34;
  Numbers[8] = 90;
  Numbers[9] = 18;

  // İlk elemanı hem en küçük hem de en büyük olarak kabul edelim
  MinValue = Numbers[1];
  MaxValue = Numbers[1];

  // Diziyi dolaşarak en küçük ve en büyük değeri bulalım
  for (Counter = 2 to 10)  // Dizinin 2. elemanından başlayalım
  {
    // En küçük değeri kontrol et
    if (Numbers[Counter] < MinValue) 
    {
      MinValue = Numbers[Counter];  // Yeni en küçük değeri atıyoruz
    }

    // En büyük değeri kontrol et
    if (Numbers[Counter] > MaxValue) 
    {
      MaxValue = Numbers[Counter];  // Yeni en büyük değeri atıyoruz
    }
  }

  // Sonuçları ekranda göster
  ShowMessage('En küçük değer: ' + IntToStr(MinValue));
  ShowMessage('En büyük değer: ' + IntToStr(MaxValue));
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kayra12 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Aralık 2024 Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra12 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Dizide En Büyük ve En Küçük Elemanı Bulma Gönderim Zamanı: 10 Saat 4 Dakika Önce Saat 14:14
	var Numbers: Array[1.9] of Integer; // Dizinin boyutunu 10 olarak kabul ediyoruz Counter, MinValue, MaxValue: Integer; { // Diziyi tanımlayıp, içine rastgele sayılar ekliyoruz Numbers[1] = 45; Numbers[2] = 23; Numbers[3] = 67; Numbers[4] = 89; Numbers[5] = 12; Numbers[6] = 56; Numbers[7] = 34; Numbers[8] = 90; Numbers[9] = 18; // İlk elemanı hem en küçük hem de en büyük olarak kabul edelim MinValue = Numbers[1]; MaxValue = Numbers[1]; // Diziyi dolaşarak en küçük ve en büyük değeri bulalım for (Counter = 2 to 10) // Dizinin 2. elemanından başlayalım { // En küçük değeri kontrol et if (Numbers[Counter] < MinValue) { MinValue = Numbers[Counter]; // Yeni en küçük değeri atıyoruz } // En büyük değeri kontrol et if (Numbers[Counter] > MaxValue) { MaxValue = Numbers[Counter]; // Yeni en büyük değeri atıyoruz } } // Sonuçları ekranda göster ShowMessage('En küçük değer: ' + IntToStr(MinValue)); ShowMessage('En büyük değer: ' + IntToStr(MaxValue)); }