1) С помощью оператора присваивания. Этот способ заполнения массива удобен, когда между элементами существует какая-то зависимость. Например, арифметическая или геометрическая прогрессии, или элементы связаны между собой каким-либо соотношением, или следующий элемент можно вычислить через предыдущие (такое соотношение называется рекуррентным).
Пример 1.Заполнить одномерный массив элементами, отвечающими следующему соотношению:
a1 = 1; a2 = 1; ai = ai–2 + ai–1 (i = 3, 4, …, n).
Write(‘Введите количество элементов массива’);ReadLn(N);{Заполнение массива}A[1]:=1; A[2]:=1;For i:=3 to N do А[i]:=А[i-2]+A[i-1];
2) Ввод значений элементов массива с клавиатурыиспользуется, когда между элементами не наблюдается никакой зависимости.
Пример 2.Заполнить массив последовательностью чисел
1, 2, –5, 6, –111, 0.
Write(‘Введите количество элементов массива’);ReadLn(N);{Заполнение массива}For i:=1 to N do begin Write('Введите значение A[',i:2,']'); ReadLn(A[i]); end;
3) Заполнение массива случайными числами. Случайным называется число, появление которого не связано ни с какой закономерностью. Например, случайным является число, выпадающее при бросании кубика для игры в кости. А сам кубик можно рассматривать как генератор случайных чисел. Во всех языках программирования реализованы генераторы случайных чисел. В языке TurboPascal для инициализации генератора случайных чисел используется функция Randomize, а само случайное число можно получить, если использовать функцию Random. Например: у:=Random(x); здесь у – целое случайное число в интервале от 0 до х–1, х – целое число, задающее верхнюю границу интервала случайных чисел. Чтобы получить случайное число в интервале от А до В (А < В), надо использовать следующее присваивание: у:=Random(B–A +1)+A;
Пример 3.Заполнить массив случайными числами.
Randomize;For i:=1 to 10 do A[i]:=random(10);{i-му элементу массива присваивается «случайное» целое число в диапазоне от 0 до 10}