Запустите эту программу ещё пару раз и сравните результаты. Вы заметили, что они повторяются? Так и должно быть! Все потому, что функция Random создает псевдослучайную последовательность чисел. «Псевдо» – значит «не совсем случайную». Эта особенность функции полезна при отладке программ. Но в экзаменующей программе надо получать разные последовательности чисел, иначе смышленые школяры приноровятся к экзаменатору!
Этого можно добиться применением ещё одной процедуры. Она называется Randomize (что значит «уравнять шансы» или «перемешать») и не требует параметров. Вызвав эту процедуру единожды в начале программы, мы смешаем карты и заставим функцию Random при повторных запусках программы генерировать разные последовательности чисел. Итак, вставьте вызов процедуры Randomize в начало программы и повторите опыты, запустив программу несколько раз подряд.
>{ P_15_2 – пятикратный вызов функции Random(100) после Randomize }
>Begin
> Randomize;
> Writeln( Random(100) );
> Writeln( Random(100) );
> Writeln( Random(100) );
> Writeln( Random(100) );
> Writeln( Random(100) );
> Readln;
>end.
Теперь от успешного финиша проекта нас отделяет один шаг: придумаем способ генерировать числа от 1 до 10 (а не от 0 до 9). Очевидно, что простое арифметическое выражение решает эту проблему.
> X:= 1+ Random(10); { генерация чисел от 1 до 10 }
Сейчас вы готовы написать второй вариант экзаменатора, вот каким он может быть (новые операторы, как обычно, выделены курсивом).
>{ P_15_3 – программа-экзаменатор, версия 2 }
>var A, B, C : integer; { сомножители и произведение }
>begin
> Randomize; { смешиваем «карты» }
> repeat
> A:= 1+ Random(10); B:= 1+ Random(10);
> Write(’Сколько будет ’, A,’ x ’,B, ’ ? ’);
> Readln(C);
> if C=0 then break; { завершение цикла, если C=0 }
> { проверяем правильность вычисления }
> if A*B=C
> then Writeln(’Молодец, правильно!’)
> else Writeln(’Ошибка, повтори таблицу умножения!’);
> until false; { бесконечный цикл! }
>end.
Обратите внимание на вывод задания для умножения.
> Write(’Сколько будет ’, A,’ x ’,B, ’ ? ’);
Здесь процедура Write содержит уже пять параметров: две числовые переменные и три строковые константы. Так, при A=3 и B=7 на экране появится вопрос: «Сколько будет 3 x 7 ?». Остальные операторы программы обойдутся без моих пояснений.
Итоги
• В языках программирования предусмотрены средства для согласованной работы программистов, одно из них – библиотеки процедур и функций.
