Генератор случайных чисел (random)

Надпись random

Само название "генератор случайных чисел" уже говорит, о том, что в программировании можно осуществить выдачу случайного числа (компьютер придумывает число).

Для этого вначале программы объявим процедуру RANDOMIZE (не сохраняет последовательность случайных чисел при повторном запуске). Потом присвоим сгенерированное число в переменную. Для этого следует написать функцию RANDOM, затем конечное значение, знак "плюс" и начальное значение:

a:=random(10)+1;

RANDOMIZE - функция, инициализирующая работу генератора. Вот часть кода, благодаря которой программа "придумывает" любое отрицательное число в диапазоне от -50 до -5:

...
Randomize;
a:=(-random(50)-5);
...

Или просто, как вариант, можно домножить на (-1):

...
Randomize;
a:=(random(50)+5)*(-1);
...

Задания:

  • Составить программу, которая определяет верно ли найдена пользователем сумма двух чисел (a и b), заданных компьютером.
  • Вывести на экран таблицу Пифагора.
  • Разработать программу, которая проверяет таблицу умножения (10 примеров), высвечивает количество ошибок, правильных ответов и ставит оценку.


Ответы к заданиям предыдущей статьи:

  • Найти квадрат нечетных чисел.

Pascal Квадрат нечетных чисел

Для примера возьмем 10 чисел. Четное число должно нацело делиться на 2, а у нечетного остаток будет равным 1. Поэтому функцией MOD проверяем четность числа I и возводим его в квадрат функцией SQR(I).

  • Вывести на экран среднее арифметическое вводимых чисел, сколько введено чисел и их сумму.

Pascal Среднее арифметическое

Чтобы пользователь смог ввести неограниченное количество чисел, нам понадобится один из двух циклов: либо REPEAT, либо WHILE. В данной программе мы взяли REPEAT. Как только пользователь введет 0, условие (UNTIL) выполнится, и программа выведет результат. Во время ввода программа высчитывает количество введенных чисел (N) и их сумму (S). Затем остается вычислить их среднее арифметическое. Для этого сумму чисел разделим на количество чисел (S/N). При делении число необязательно получится целым, поэтому назначим тип для переменной I REAL и выведем две цифры после запятой.

  • Найти сумму делителей числа A.

Pascal Сумма делителей

Структура программ, требующих найти делители любого числа, одна и та же. Достаточно лишь перебрать все числа от единицы до самого числа. В нашем случае делители не могут быть дробными, поэтому те числа, на которые можно разделить число нацело, являются делителями числа. Затем переменной K находим их сумму.

  • Проверить, является ли число совершенным (равным сумме всех его делителей).

Pascal Нахождение совершенного числа

  • Выяснить, является ли введенное число неполным (делится только на себя и на единицу).

Сумма полных чисел на Паскаль 


<<Предыдущая статья                                     Следующая статья >>

Опубликовано:

Читайте также:
Заказывайте товары и услуги:

Комментарии (0)
Оставить комментарий