Вывод массива

End.

Begin

End.

Begin

Пример.

Ввод элементов массива осуществляется поэлементно с помощью оператора цикла.

ИНИЦИАЛИЗАЦИЯ МАССИВА

Язык Pascal не имеет средств ввода всех элементов массива сразу, как целого объекта.

Ввести массив из 25 действительных чисел с клавиатуры.

var a: array [ 1..25 ] of real;

i:byte; //текущий индекс

writeln('Number of elements =25');

writeln('Enter elements values');

For i:=1 to 25 do

read(а[i]);

............................

Приведенный ниже код более рациональный и удобный.

//n – общее максимальное количество элементов

const n=25;

var a: array [ 1.. n ] of real;

{ m – количество элементов массива при вводе – реальное количество}

m: byte;

i: byte; //текущий индекс

writeln('Enter number of elements <=', n);

readln(m);

writeln('Enter elements values');

For i:=1 to m do

read(а[i]);

Элементы массива возможно вводить через пробел или в столбик.

Создать массив можно, например, используя для инициализации какую-нибудь функцию.

Но следует помнить, что тип результата функции должен быть совместим с типом компонента массива.

For i:=1 to m do

а[i]:= sin(i);

Также для инициализации можно использовать массивы-константы.

const a: array [ 1..5 ] of byte = (0, 1, 2, 3, 4);

Такая инициализация эквивалентна серии присваиваний

a[1]:=0; a[2]:=1; a[3]:=2; a[4]:=3; a[5]:=4;

Дата добавления: 2014-01-04