Программирование. Pascal ABC. Случайные числа


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Случайные числаи программирование игр… Случайные числаТак называемые случайные числа используются в статистическом моделировании, численном анализе, выборе оптимальной стратегии игр и т. д.Во всех языках программирования существует функция, генерирующая случайные числа.В языке Pascal эту роль играет функция random.Формат: random(N)Данная функция генерирует целое случайное число в диапазоне от 0 до N-1, то есть [0;N)Так как это функция, то её значение можно вывести или чему-то присвоить, например: x := random(10);Какие числа могут быть значением переменной x?
Пример программыСоздадим программу, которая случайным образом выдает оценку за урок:program z;var x:integer;begin x:=random(6); writeln('Ваша оценка: ',x);end.Какие числа могут быть значением переменной x?Что хотелось бы исправить в программе? Шестерка не входит в диапазон оценок

ДиапазоныДля того, чтобы диапазон начинался не с нуля, к значению функции random можно прибавить некоторое число, например, random(4)+2 дает варианты случайных чисел в диапазоне от 2 до 5.В общем случае для получения случайных чисел из диапазона от a до b, функцию можно записать в следующем виде:random(b–a+1)+aВ нашем случае a=2, b=5, тогда 5–2+1=4 и функция записывается так, как показано выше. Потренируемся…Числа от 10 до 20random(11)+10От 1 до 100random(100)+1random(30)+5числа от 5 до 34random(30)–17числа от –17 до 12Таким образом, случайные числа могут быть и отрицательными.




Угадай числоСоздадим программу, в которой компьютер загадывает число, а мы будем его отгадывать.Числа возьмем однозначные, т.е., в диапазоне от 1 до 9. В программе будем подсчитывать количество наших попыток.Нам нужны три целочисленных переменных:х – загаданное число, a – вводимое нами число (угадываемое), k – количество попыток.Так как нам нужно вводить хотя бы 1 раз, то будем использовать цикл repeat. Угадай числоvar x,a,k:integer;beginx:=random(9)+1;repeat write('Введите число от 1 до 9); readln(a); k:=k+1;until a=x;writeln('Поздравляем, Вы угадали с ',k,'-ой попытки');end. ЗаданияЗапрограммируйте подсказки, то есть сделайте так, чтобы компьютер выводил, больше или меньше Ваше число задуманного.Увеличьте диапазон от 1 до 100 и попробуйте угадать число (с подсказками) максимум за 7 попыток.Зациклите программу, чтобы можно было сыграть несколько раз подряд, запустив программу всего 1 раз.

Приложенные файлы