Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

37 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 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği