Обработка массива — Заполнение

• Генерация и присваивание значений с помощью датчика случайных чисел
• Использование в формуле заполнения индекса элемента
• Использование рекуррентного соотношения

Генерация и присваивание значений с помощью датчика случайных чисел

Функции и процедуры, используемые для заполнения массива случайными числами:
Random - функция, возвращает случайное вещественное в диапазоне [0..1).
Random(x) -функция, возвращает случайное целое в диапазоне от 0 до x-1.
Randomize - процедура языка Pascal, которая инициализирует встроенный генератор случайных чисел с произвольным значением.

Заполнение массива оператором случайных чисел Random на интервале [0;1):

randomize;
for i:=1 to n do
a[i]:=random;

Пример 1 (.pas) Заполните массив, состоящий из 10 вещественных чисел в диапазоне [0..1):
randomize;
for i:=1 to 10 do
a[i]:=random;

Заполнение массива оператором случайных чисел Random на интервале [ a ; b ]:

randomize;
for i:=1 to n do
a[ i ] := random (b-a+1)+a;

Пример 2 (.pas) Заполните массив, состоящий из 10 целых чисел на интервале [5..10]:
randomize;
for i:=1 to 10 do
a[ i ] := random (6)+5;

Заполнение массива оператором случайных чисел Random на интервале [a ; b):

randomize;
for i:=1 to n do
a[ i ] := random (b-a)+a;

Пример 3 (.pas) Заполните массив, состоящий из 10 целых чисел на интервале [5..10):
randomize;
for i:=1 to 10 do
a[ i ] := random (5)+5;

Пример 4 (.pas) Заполните массив на 25 элементов целыми значениями, лежащими в диапазоне от –12 до 7, и организуйте вывод первых 7 элементов.
program z;
         const n=25;
         type mas= array [1..n] of integer;
         var a: mas;
         i: integer;
begin
         cls;
         randomize;
         for i:=1 to n do
         a[ i ] := random (20)-12;
         for i:=1 to 7 do  write(a[i],' ');
end.

Использование в формуле заполнения индекса элемента

         Если элементы массива удовлетворяют некоторой закономерности, например, являются четными числами, то их ввод можно организовать с помощью формул, содержащих индекс элемента.
Например, заполним массив чисел, так чтобы:

1. Значения элементов массива совпадают с квадратами их индексов: 
   for i:=1 to N do a[i]:=i*i;
2. Значения элементов массива совпадают с их индексами:
   for i:=1 to N do a[i]:=i;
3. Значения элементов массива - числа нечетные: 
   for i:=1 to N do a[i]:=2i - 1;
4. Значения элементов массива - числа четные:
   for i:=1 to N do a[i]:=2i;
5. Значения элементов массива - числа обратные индексам:
   for i:=1 to N do a[i]:=1/i.