Ввод и вывод одномерных массивов в Паскале

Ввод и вывод одномерных массивов в Паскале

Ввод и вывод массивов осуществляется поэлементно.

Введем одномерный массив Х, состоящий из 30 элементов, то есть необходимо ввести некую последовательность элементов Х₁, Х₂, …, Х₃₀.

Пусть i – индекс (порядковый номер) элемента в массиве Х. Тогда

Х_i – i-й элемент массива Х, где i = 1, 2, …, 30.

Для ввода массива можно использовать любой цикл.

Первый вариант: ввод массива с использованием цикла с предусловием (Рисунок 1).

Program Primer_1;

Var i: integer;

     X: array [1..30] of Integer;

Begin

     i := 1;

     While i <= 30 Do

         Begin

            Read (X[i]); i := i + 1

          End;

       Readln

End.

Можно ввести с клавиатуры элементы следующим образом:

-7 _ 4 _ -2 _ 0 _ 12 _ -1 _ -5 _  9 _ 11 _ -3 _ -5 _ … _15, то есть через пробел ввести в строчку и нажать клавишу Enter.

Можно было ввести элементы в столбец,   отделяя элементы клавишей Enter, то есть каждый элемент с новой экранной строки:

-7 Enter

 4 Enter

-2 Enter

  …

 15 Enter

Второй вариант: ввод массива с использованием цикла с постусловием (Рисунок 2).

Program Primer_2;

Var i: integer;

     X: array [1..30] of Integer;

Begin

     i := 1;

     Repeat

           Read (X[i]); i := i + 1

     Until i > 30;

       Readln

End.

Третий вариант: ввод массива с использованием цикла с параметром (Рисунок 3).

Program Primer_3;

Var i: integer;

     X: array [1..30] of Integer;

Begin

     For i := 1 To 30 Do Read (X[i]);

     Readln

End.

Массив вводится с помощью цикла с параметром, где в качестве параметра используется индекс элемента массива (i).

Вывод одномерного массива осуществляется аналогично.

В программе вместо операторов Read или Readln используются операторы Write или Writeln. Но просто заменить одни операторы на другие здесь недостаточно. Для того чтобы выводимые значения не сливались между собой, надо явным образом вставлять между ними разделитель – пробел или перевод строки. Приведем два возможных способа вывода массива:

• For i := 1 To n Do Write (X[i],’ ‘);

• For i := 1 To n Do Writeln (x[i]).

Например, выведем одномерный массив Х₁, Х₂, …, Х_n, состоящий из элементов вещественного типа, используя цикл с параметром (Рисунок 4):

Program Primer_4;

Const n = 30;

Var i: Integer;

     X: Array [1..n] Of Real;

Begin

        For i:= 1 To n Do Write (X[i] : 6 : 2,  ‘ ‘);

          Writeln; {курсор переводит на новую строку}

        Readln

End.