Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örneği

"Delphi" Programlama dilinde "Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örneği" ile ilgili örnek kod aşağıda verilmiştir.

program FirstLastSame;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function FirstLastSame(numberList: array of Integer): Boolean;
var
  first_num, last_num: Integer;
begin
  Write('Listemiz: ');
  for var i := 0 to High(numberList) do
    Write(numberList[i], ' ');
  Writeln;

  first_num := numberList[0];
  last_num := numberList[High(numberList)];

  if first_num = last_num then
    Result := True
  else
    Result := False;
end;

var
  numbers_x: array of Integer;
  numbers_y: array of Integer;
begin
  SetLength(numbers_x, 5);
  numbers_x[0] := 10;
  numbers_x[1] := 20;
  numbers_x[2] := 30;
  numbers_x[3] := 40;
  numbers_x[4] := 10;
  Writeln('Sonuc: ', FirstLastSame(numbers_x));

  SetLength(numbers_y, 5);
  numbers_y[0] := 75;
  numbers_y[1] := 65;
  numbers_y[2] := 35;
  numbers_y[3] := 75;
  numbers_y[4] := 30;
  Writeln('Sonuc: ', FirstLastSame(numbers_y));
end.



İlginizi Çekebilir

Delphi Bir Dizideki Tek Sayıların Adetini Bulma Örneği

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

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

Delphi Dört İşlem Yapan Örnek

Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği