Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

187 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 Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

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

Delphi Bir Sayının Faktöriyelini Bulma Örneği

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

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