Как вывести массив на Паскале — примеры и объяснение

Паскаль – это один из самых популярных языков программирования, на котором можно написать различные программы. Он был разработан в 1970-х годах и по сей день активно используется.

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

Первый способ заключается в простом перечислении элементов массива с использованием цикла for. Например:

var
array: array[1..5] of integer = (1, 2, 3, 4, 5);
i: integer;
begin
for i := 1 to 5 do
writeln(array[i]);
end.

Как правильно вывести массив на Паскале: примеры и объяснение

Пример 1:

program PrintArrayExample1;

var

arr: array [1..5] of integer = (1, 2, 3, 4, 5);

i: integer;

begin

for i := 1 to Length(arr) do

writeln(arr[i]);

end.

Пример 2:

program PrintArrayExample2;

var

arr: array [1..5] of integer = (1, 2, 3, 4, 5);

i: integer;

begin

i := 1;

while i <= Length(arr) do

begin

writeln(arr[i]);

i := i + 1;

end;

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

Пример 1:


program printArray;
var
arr: array[1..5] of integer;
i: integer;
begin
arr[1] := 10;
arr[2] := 20;
arr[3] := 30;
arr[4] := 40;
arr[5] := 50;
for i := 1 to 5 do
begin
writeln(arr[i]);
end;
end.

В результате выполнения данного примера на экран будут выведены числа 10, 20, 30, 40 и 50, каждое на новой строке.

Пример 2:


program printArray;
var
arr: array[1..3] of string;
i: integer;
begin
arr[1] := 'apple';
arr[2] := 'banana';
arr[3] := 'orange';
for i := 1 to 3 do
begin
writeln(arr[i]);
end;
end.

В данном примере на экран будет выведены строки 'apple', 'banana' и 'orange', каждая на новой строке.

Важно помнить, что индексы элементов массива должны быть указаны корректно, чтобы избежать ошибок.

var
arr: array[1..5] of integer; // объявление одномерного массива
i: integer; // переменная для цикла
begin
for i := 1 to 5 do
end.
var
arr: array[1..3,1..3] of integer; // объявление двумерного массива
i, j: integer; // переменные для циклов
begin
i := 1; // начальное значение переменной i
while i <= 3 do // условие цикла
begin
j := 1; // начальное значение переменной j
while j <= 3 do // условие цикла
begin
j := j + 1; // изменение значения переменной j
end;
i := i + 1; // изменение значения переменной i
end;
end.
var
arr: array[1..5] of integer; // объявление одномерного массива
i: integer; // переменная для цикла
begin
for i := 1 to 5 do
end.
  • Использование цикла for

    Самый простой способ вывести массив на экран - использовать цикл for. Ниже приведен пример кода:

    var
    array: array[1..5] of Integer;
    i: Integer;
    begin
    array[1] := 10;
    array[2] := 20;
    array[3] := 30;
    array[4] := 40;
    array[5] := 50;
    for i := 1 to 5 do
    begin
    WriteLn(array[i]);
    end;
    end;
  • Использование цикла while

    Другой способ вывести массив на экран - использовать цикл while. Пример кода:

    var
    array: array[1..5] of Integer;
    i: Integer;
    begin
    array[1] := 10;
    array[2] := 20;
    array[3] := 30;
    array[4] := 40;
    array[5] := 50;
    i := 1;
    while i <= 5 do
    begin
    WriteLn(array[i]);
    i := i + 1;
    end;
    end;
  • Использование процедуры или функции

    var
    array: array[1..5] of Integer;
    procedure PrintArray;
    var
    i: Integer;
    begin
    for i := 1 to 5 do
    begin
    WriteLn(array[i]);
    end;
    end;
    begin
    array[1] := 10;
    array[2] := 20;
    array[3] := 30;
    array[4] := 40;
    array[5] := 50;
    PrintArray;
    end;
  • Использование рекурсии

    var
    array: array[1..2, 1..2] of Integer;
    procedure PrintArray(x, y: Integer);
    begin
    if x > 2 then
    Exit;
    if y > 2 then
    begin
    PrintArray(x + 1, 1);
    Exit;
    end;
    WriteLn(array[x, y]);
    PrintArray(x, y + 1);
    end;
    begin
    array[1, 1] := 10;
    array[1, 2] := 20;
    array[2, 1] := 30;
    array[2, 2] := 40;
    PrintArray(1, 1);
    end;

Оцените статью