Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği

49 Okunma Delphi

"Delphi" Programlama dilinde "Dizideki Bir Elemanı Döngü İle Arama Örneği" ile ilgili kod örneği aşağıda belirtilmiştir. 

program Main;

uses
  SysUtils;

var
  numbers: array[0..10] of Integer = (9, 12, 5, 4, 3, 6, 8, 1, 0, 11, 10);
  flag, x, i: Integer;
begin
  flag := 0;

  Write('Bulunması istenen rakamı girin: ');
  Readln(x);

  for i := 0 to High(numbers) do
  begin
    if (x = numbers[i]) then
    begin
      WriteLn('Bulundu, elemanın pozisyonu: ', i);
      flag := 1;
      Break;
    end;
  end;

  if (flag = 0) then
  begin
    WriteLn('Aranan eleman dizide bulunamadı.');
  end;

  Readln;
end.
Eleman Dizi Arama Döngü Bulma Delphi

İlginizi Çekebilir

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

Delphi Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Ö ...

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

Delphi Bir Stringteki Küçük Harfleri Öne Alma Örneği

Delphi 1'den 100'e Kadar Sayı Toplam Örneği