Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

32 Okunma Delphi

"Delphi" Programlama dilinde "Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği" ile ilgili kod örneği aşağıda gösterilmiştir. 

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  numbers: array[0..6] of Integer = (3, 4, 1, 9, 6, 2, 8);
  x, y, i: Integer;
begin
  Writeln(Format('[%s]', [Join(',', numbers)]));

  Write('Eklenecek Sayiyi Girin: ');
  Readln(x);

  Write('Eklenecek Index Numarasini Girin: ');
  Readln(y);

  for i := High(numbers) downto y + 1 do
    numbers[i] := numbers[i - 1];
  numbers[y] := x;

  Writeln(Format('[%s]', [Join(',', numbers)]));
end.
Dizi Konum Eleman Ekleme Index Delphi

İlginizi Çekebilir

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

Delphi Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

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

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği