Одна задача обработки массива. Случайные числа

1.

Тема: Одна задача
обработки массива
Случайные числа
Запишите тему урока, стр. 115

2.

Случайные процессы
Случайно…
1)встретить друга на улице
2)разбить тарелку
3)найти 10 рублей
4)выиграть в лотерею
Случайный выбор:
1)жеребьевка на
соревнованиях
2)выигравшие номера
в лотерее
Как получить случайность?
Случайные числа – результаты
случайного выбора из конечного
множества значений.

3.

Генератор случайных чисел в Паскале
Целые числа в интервале [0,N):
var x: integer;
...
x := random ( 100 );
{ интервал [0,99] }
Вещественные числа в интервале [0,1)
var x: real;
...
x := random;
{ интервал [0,1) }
Процедура randomize случайным образом устанавливает
начальное состояние датчика.

4.

Заполнение массива случайными числами
const N = 5;
var A: array [1..N] of integer;
i: integer;
begin
writeln('Исходный массив:'); случайные числа в
интервале [50,150)
for i:=1 to N do begin
A[i] := random(100) + 50;
write(A[i]:4);
end;
...
?
Зачем сразу выводить?

5.

Заполнение массива случайными числами
const N = 5;
3;
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;
...

6.

Заполнение массива случайными числами
const N = 3;
var A: array [1..N] of integer;
i: integer;
вegin
randomize;
writeln('Исходный массив:');
for i:=1 to N do begin
A[i] := random(100);
write(A[i]:4);
end;
...

7.

Заполнение массива случайными числами
const N = 3;
var A: array [1..N] of integer;
i: integer;
вegin
randomize;
writeln(‘Исходный массив:’);
for i:=1 to N do begin
A[i] := random(100);
write(A[i]:4);
end;
writeln();
if (A[1]=A[2]) and (A[1]=A[3])
then write (‘Вы выйграли!’)
else write (‘Попробуйте еще’)

8.

Д/З
Ответить на вопросы
стр. 118-119 (1-4), 2 вопрос
прислать скрин рабочего стола
с напечатанной программой.