var
numbers: array of Integer;
i: Integer;
begin
SetLength(numbers, 5);
numbers[0] := 10;
numbers[1] := 20;
numbers[2] := 30;
numbers[3] := 40;
numbers[4] := 50;
for i := 0 to Length(numbers) - 1 do
begin
WriteLn(numbers[i]);
end;
end;
Если мы хотим вывести двумерный массив, мы можем использовать два вложенных цикла. Например, если у нас есть двумерный массив с именем "matrix", мы можем использовать следующий код:
var
matrix: array [0..3, 0..3] of Integer;
i, j: Integer;
begin
matrix[0, 0] := 1;
matrix[0, 1] := 2;
matrix[0, 2] := 3;
matrix[1, 0] := 4;
matrix[1, 1] := 5;
matrix[1, 2] := 6;
matrix[2, 0] := 7;
matrix[2, 1] := 8;
matrix[2, 2] := 9;
for i := 0 to High(matrix) do
begin
for j := 0 to High(matrix[i]) do
Write(matrix[i, j]);
WriteLn;
end;
end;
Использование процедуры OutputArray
Для использования процедуры OutputArray необходимо следовать нескольким шагам:
- Укажите размерность и тип массива, а также заполните его значениями.
Ниже приведен пример использования процедуры OutputArray:
var
arr: array [1..5] of integer = (1, 2, 3, 4, 5);
procedure OutputArray(arr: array of integer);
var
i: integer;
begin
WriteLn('| ', arr[i], ' |
end;
begin
OutputArray(arr);
end.
В результате выполнения программы будет выведена таблица, содержащая элементы массива:
| 1 |
| 2 |
| 3 |
| 4 |
| 5 |
Следующий код демонстрирует, как вывести элементы массива на экран в языке программирования Delphi:
var
myArray: array[1..5] of Integer;
i: Integer;
begin
myArray[1] := 10;
myArray[2] := 20;
myArray[3] := 30;
myArray[4] := 40;
myArray[5] := 50;
for i := 1 to 5 do
begin
Writeln(myArray[i]);
end;
end. При выполнении этого кода на экране появится следующий результат:
- 10
- 20
- 30
- 40
- 50
Таким образом, мы успешно вывели элементы массива на экран с помощью простого цикла.
Как вывести массив в виде таблицы
Шаг 1: Создайте переменную с типом двумерного массива, на примере:
var
myArray: array [0..2, 0..2] of Integer;
i, j: Integer;
// Заполнение массива значениями
for i := 0 to 2 do
for j := 0 to 2 do
myArray[i, j] := Random(100);
Шаг 2: Создайте HTML-таблицу:
var
tableHTML: string;
// Формирование заголовка таблицы
tableHTML := '<table>';
// Формирование тела таблицы
for i := 0 to 2 do
begin
tableHTML := tableHTML + '<tr>';
for j := 0 to 2 do
begin
tableHTML := tableHTML + '<td>' + IntToStr(myArray[i, j]) + '</td>';
end;
tableHTML := tableHTML + '</tr>';
end;
// Закрытие таблицы
tableHTML := tableHTML + '</table>';
WebBrowser1.Navigate('about:blank');
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
WebBrowser1.Document.Write(tableHTML);
var
myArray: array[0..4] of integer; // объявление массива из 5 элементов
i: integer; // переменная-счетчик цикла
begin
// заполнение массива
myArray[0] := 1;
myArray[1] := 2;
myArray[2] := 3;
myArray[3] := 4;
myArray[4] := 5;
for i := 0 to 4 do
begin
WriteLn(myArray[i]);
end;
end.
В результате выполнения данного кода в консоли будут выведены числа от 1 до 5, каждое число на новой строке.
Для начала необходимо создать массив и заполнить его значениями. Можно сделать это с помощью цикла или задать значения массива вручную. Например, можно создать массив чисел:
var
arr: array[0..4] of Integer;
i: Integer;
begin
arr[0] := 10;
arr[1] := 20;
arr[2] := 30;
arr[3] := 40;
arr[4] := 50;
end;Затем необходимо создать объект Memo на форме. Для этого нужно перейти в режим редактирования формы, выбрать панель инструментов "Additional" и добавить компонент Memo на форму. После этого нужно установить размеры Memo и задать имя объекту. Например, можно назвать его Memo1.
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Width := 200;
Memo1.Height := 150;
end;Затем можно вывести массив с использованием функции Memo. Для этого нужно пройти по всем элементам массива и добавить их значения в Memo, каждый элемент с новой строки. Например, можно использовать цикл:
for i := 0 to High(arr) do
begin
Memo1.Lines.Add(IntToStr(arr[i]));
end;Memo1.Clear;| Элемент |
|---|
| 10 |
| 20 |
| 30 |
| 40 |
| 50 |