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

211 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 Dikdörtgenin Alanını Hesaplama Örneği

Delphi Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği