Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

Задание элементов одномерного массива
с помощью функции случайных чисел 
В языке ПаскальABC можно получать числа с помощью фун-
кции случайных чисел Random. Применяя функцию в разных видах, 
можно получить число из заданного интервала. В таблице приве-
дены некоторые варианты записи функции случайных чисел. 
Изучая варианты, представленные в табл. 8.1, можно сделать 
вывод, что в общем случае существуют только два выражения
a + Random(b – a) для получения последовательности целых чисел 
и a + (b – a)*Random для получения случайных последовательностей 
действительных чисел в диапазоне [a, b). Варьируя a и b, можно 
получить все желаемые диапазоны. 
Таблица 8.1 
Тип 
Формат 
Промежуток 
Выражение, содержа-
щее функцию Random 
Целое 
Положительное 
[a, b) 
a + Random(b – a) 
Отрицательное 
[a, b) 
–(a + Random(b – a)) 
Целое
со знаком 
[a, b) 
(a + Random(b – a)) – 
– (a + Random(b – a)) 
Действительное 
Положительное 
[0, 1) 
Random 
Положительное 
[a, b) 
a + (b – a)*Random 
Действительное 
со знаком 
[a, b) 
(a + (b – a)*Random) – 
– (a + (b – a)*Random) 
Элементы массива можно задавать с помощью функции случай-
ных чисел. 
Пример 2. Составьте блок-схему (рис. 8.2) и напишите программу 
решения следующей задачи: одномерный массив, который содержит не 
более 20 вещественных чисел, задайте с помощью функции случайных 
чисел. Найдите номер последнего элемента, кратного данному числу х. 
Если таких элементов нет, выведите об этом сообщение. 
Решение. Будем по порядку просматривать все элементы массива. 
Как только найдется элемент, который делится на х без остатка, 
необходимо зафиксировать его номер в массиве. Для этого введем 
переменную m, в которой сохраним номер найденного элемента.
Чтобы зафиксировать, нашелся или нет элемент в массиве 
кратный х, введем переменную k. Этой переменной перед 

---

117 
просмотром всех элементов массива дадим значение, например, 
True. Когда найдется нужный элемент, то значение переменной k 
поменяем на False.
Если же в массиве нужных элементов не 
найдется, то переменная k не изменит свое значение и останется 
равной True. Такие переменные в программе называются флажками, 
дополнительными переменными, флюгерами.
Program Primer_2; 
Type mas=Array[1..20] of Integer; 
Var a:mas; 
i,n,m,x:Integer; 
k:Boolean;
{k – необходима для вывода сообщения, что искомых чисел нет} 
Begin 
Writeln(‘Ввести число х’);
Readln(x); 
Writeln('Ввести размер массива'); 
Readln(n); 
{Ввод элементов массива с помощью функции случайных чисел} 
For i:=1 to n do a[i]:=Random(100); 
{Вывод элементов массива на экран} 
Writeln('Массив a:');
For i:=1 to n do Write(a[i]:8:2);
Writeln; 
{Решение задачи} 
k:=True;
m:=0;
For i := 1 to n do
If a[i] mod x=0
Then begin
m:=i;
k:= False; 
end; 
{Вывод ответа на экран} 
If k=True 
Then Writeln('элементов кратных’, х,’ нет') 
Else Writeln('Последний элемент кратный ‘,x,’=',a[m]:8:2,' его 
номер=',m); 
End. 

---

118