Само название "генератор случайных чисел" уже говорит, о том, что в программировании можно осуществить выдачу случайного числа (компьютер придумывает число).
Для этого вначале программы объявим процедуру RANDOMIZE (не сохраняет последовательность случайных чисел при повторном запуске). Потом присвоим сгенерированное число в переменную. Для этого следует написать функцию RANDOM, затем конечное значение, знак "плюс" и начальное значение:
a:=random(10)+1;
RANDOMIZE - функция, инициализирующая работу генератора. Вот часть кода, благодаря которой программа "придумывает" любое отрицательное число в диапазоне от -50 до -5:
...
Randomize;
a:=(-random(50)-5);
...
Или просто, как вариант, можно домножить на (-1):
...
Randomize;
a:=(random(50)+5)*(-1);
...
Задания:
- Составить программу, которая определяет верно ли найдена пользователем сумма двух чисел (a и b), заданных компьютером.
- Вывести на экран таблицу Пифагора.
- Разработать программу, которая проверяет таблицу умножения (10 примеров), высвечивает количество ошибок, правильных ответов и ставит оценку.
Ответы к заданиям предыдущей статьи:
- Найти квадрат нечетных чисел.
Для примера возьмем 10 чисел. Четное число должно нацело делиться на 2, а у нечетного остаток будет равным 1. Поэтому функцией MOD проверяем четность числа I и возводим его в квадрат функцией SQR(I).
- Вывести на экран среднее арифметическое вводимых чисел, сколько введено чисел и их сумму.
Чтобы пользователь смог ввести неограниченное количество чисел, нам понадобится один из двух циклов: либо REPEAT, либо WHILE. В данной программе мы взяли REPEAT. Как только пользователь введет 0, условие (UNTIL) выполнится, и программа выведет результат. Во время ввода программа высчитывает количество введенных чисел (N) и их сумму (S). Затем остается вычислить их среднее арифметическое. Для этого сумму чисел разделим на количество чисел (S/N). При делении число необязательно получится целым, поэтому назначим тип для переменной I REAL и выведем две цифры после запятой.
- Найти сумму делителей числа A.
Структура программ, требующих найти делители любого числа, одна и та же. Достаточно лишь перебрать все числа от единицы до самого числа. В нашем случае делители не могут быть дробными, поэтому те числа, на которые можно разделить число нацело, являются делителями числа. Затем переменной K находим их сумму.
- Проверить, является ли число совершенным (равным сумме всех его делителей).
- Выяснить, является ли введенное число неполным (делится только на себя и на единицу).
<<Предыдущая статья Следующая статья >>
Опубликовано: 2011-12-20 22:00:01