Випадкова функція в COBOL

Мова програмування COBOL, одна з найстаріших, які все ще використовуються регулярно, має сильний упередження до бізнес-додатків, таких як бухгалтерський облік, нарахування заробітної плати та контроль запасів. Однак новіші версії COBOL мають складні математичні функції, зокрема функцію для генерування випадкових чисел. Хоча випадкові числа рідко використовуються для повсякденного ділового обліку, випадкові числа допомагають полегшити статистичні розрахунки та певні види чисельних методів вирішення проблем.

Математичні функції COBOL є частиною процедурного поділу мови, розділу програми, що складається з процедурних операторів. Функції починаються із зарезервованого слова «функція», за яким слідує назва функції, наприклад «cos», «random» або "журнал". Функція приймає один або кілька аргументів, виконує з ними процес і повертає результат назад до COBOL програма. Деякі функції працюють з числами та числовими змінними, а інші працюють із символьними даними.

Випадкова функція приймає невід’ємний цілочисельний аргумент і повертає десяткове число. Цілочисельний аргумент необов’язковий. Це початковий матеріал для псевдовипадкового математичного процесу, який визначає перше число, яке повертає функція. У комп’ютерних мовах усі випадкові процеси насправді довгі, повторювані ряди чисел, які здаються випадковими. Добре підібраний процес повторюється лише після мільярдів значень, тому він є практичним джерелом випадкових чисел, навіть якщо він не є теоретично чистим. Якщо ви надасте випадковій функції аргумент, вона згенерує ту саму послідовність чисел. Без аргументу випадкова функція генерує наступне число у своїй послідовності.

Випадкова функція в COBOL повертає десяткові числа в діапазоні від нуля до одиниці. За статистикою випадкові числа мають прямокутний розподіл, тобто кожне число є однаково ймовірним. Графік довгої серії випадкових чисел матиме відносно рівну лінію, що простягається від нуля до майже одиниці. Це контрастує з нормальним, або гауссовим, розподілом, який утворює дзвоноподібну криву.

Самі по собі десяткові числа випадкової функції не дуже корисні, але якщо ви помножите їх на коефіцієнт масштабування, ви створите діапазон випадкових чисел, відповідних для вашої програми. Наприклад, щоб отримати випадкові цілі числа від одиниці до 52, слід використовувати такий оператор COBOL: COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 52 + 1.

У операторі випадкова функція генерує числа, більші або рівні нулю і менші за одиницю. Помноживши це на 52, ви отримаєте числа від нуля до 51. Якщо додати один, ви отримаєте діапазон від одного до 52.