Презентация на тему Программирование на языке Паскаль Часть II

Программирование на языке Паскаль Часть II

Тема 3. Обработка массивов

Случайные процессы

Случайно…
встретить друга на улице
разбить тарелку
найти 10 рублей
выиграть в лотерею

Случайный выбор:
жеребьевка на соревнованиях
выигравшие номера в лотерее

Как получить случайность?

Случайные числа на компьютере

Электронный генератор

нужно специальное устройство
нельзя воспроизвести результаты

318458191041

564321

209938992481

458191

938992

малый период (последовательность повторяется через 106 чисел)

Метод середины квадрата (Дж. фон Нейман)

в квадрате

Псевдослучайные числа – обладают свойствами случайных чисел, но каждое следующее число вычисляется по заданной формуле.

Распределение случайных чисел

Модель: снежинки падают на отрезок [a,b]

распределение

равномерное

неравномерное

Распределение случайных чисел

Особенности:
распределение – это характеристика всей последовательности, а не одного числа
равномерное распределение одно, компьютерные датчики случайных чисел дают равномерное распределение
неравномерных – много
любое неравномерное можно получить с помощью равномерного

a

b

a

b

равномерное распределение

неравномерное распределение

Генератор случайных чисел в Паскале

Целые числа в интервале [0,N):
var x: integer;
...
x := random ( 100 ); { интервал [0,99] }
Вещественные числа в интервале [0,1)
var x: real;
...
x := random; { интервал [0,1) }

Заполнение массива случайными числами

const N = 5;
var A: array [1..N] of integer;
i: integer;
begin
writeln('Исходный массив:');
for i:=1 to N do begin
A[i] := random(100) + 50;
write(A[i]:4);
end;
...

случайные числа в интервале [50,150)

Подсчет элементов

Задача: заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов.
Идея: используем переменную-счётчик.
Решение:
записать в счётчик ноль
просмотреть все элементы массива: если очередной элемент = 0, то увеличить счётчик на 1
вывести значение счётчика

Подсчет элементов

начало

конец

нет

да

нет

да

count:= 0
i:= 1

count:= count + 1

i:= i + 1

пока ни одного не нашли

начать с 1-ого

перейти к следующему

нашли еще 1

Подсчет элементов

program qq;
const N = 5;
var A: array [1..N] of integer;
i, count: integer;
begin
{ здесь надо заполнить массив }
count:= 0;
for i:=1 to N do
if A[i] = 0 then count:= count + 1;
writeln('Нулевых элементов: ', count);
end.

for i:=1 to N do
if A[i] = 0 then count:= count + 1;

перебираем все элементы массива

Задания

«4»: Заполнить массив случайными числами в интервале [20,100] и подсчитать отдельно число чётных и нечётных элементов.
«5»: Заполнить массив случайными числами в интервале [1000,2000] и подсчитать число элементов, у которых вторая с конца цифра – четная.