Простой и эффективный способ вывода массива в Delphi

iconНа чтение2 мин
iconОпубликовано
iconОбновлено

Если вы программируете на Паскале с использованием среды разработки Delphi, то нередко вам приходится работать с массивами. Вывести массив на экран может понадобиться в самых разных ситуациях — от отладки программы до представления данных в удобочитаемом виде.

Как вывести массив делфи

  1. Использование цикла for:
    program OutputArray;vararr: array[1..5] of Integer = (1, 2, 3, 4, 5);i: Integer;beginfor i := 1 to 5 dobeginWrite(arr[i], ' ');end;end.
  2. Использование цикла foreach:
    program OutputArray;vararr: array[1..5] of Integer = (1, 2, 3, 4, 5);num: Integer;beginfor num in arr dobeginWrite(num, ' ');end;end.
  3. Использование процедуры:
    program OutputArray;vararr: array[1..5] of Integer = (1, 2, 3, 4, 5);procedure PrintArray(arr: array of Integer);vari: Integer;beginfor i := 0 to High(arr) dobeginWrite(arr[i], ' ');end;end;beginPrintArray(arr);end.

Выберите подходящий способ в зависимости от ваших потребностей и предпочтений. Не стесняйтесь экспериментировать и искать оптимальное решение для вашей задачи.

Вот пример кода:

varmyArray: array[0..4] of Integer;i: Integer;beginmyArray[0] := 1;myArray[1] := 2;myArray[2] := 3;myArray[3] := 4;myArray[4] := 5;for i := 0 to Length(myArray) - 1 doShowMessage(IntToStr(myArray[i]));end;

Для начала, объявим и заполним массив:

vararr: array[1..5] of Integer;i: Integer;beginarr[1] := 10;arr[2] := 20;arr[3] := 30;arr[4] := 40;arr[5] := 50;end;
for i := 1 to Length(arr) doWriteLn(arr[i]);
  • 10
  • 20
  • 30
  • 40
  • 50

Добавить комментарий

Вам также может понравиться