Случайната функция в COBOL

Езикът за програмиране COBOL, един от най-старите, които все още се използват редовно, има силно пристрастие към бизнес приложения, като счетоводство, заплати и контрол на инвентара. По-новите версии на COBOL обаче имат сложни математически функции, включително такава за генериране на произволни числа. Въпреки че рядко се използват за ежедневното бизнес счетоводство, произволните числа помагат за улесняване на статистическите изчисления и определени видове числени техники за решаване на проблеми.

Математическите функции на COBOL са част от разделението на процедурите на езика, секцията на програмата, състояща се от процедурни оператори. Функциите започват със запазената дума „функция“, последвана от името на функцията, като „cos“, „random“ или "дневник". Функцията приема един или повече аргументи, изпълнява процес върху тях и връща резултат обратно към COBOL програма. Някои функции работят върху числа и числови променливи, докато други работят върху символни данни.

Случайната функция приема неотрицателен целочислен аргумент и връща десетично число. Целочисленият аргумент е по избор. Това е зародишът за псевдослучаен математически процес, който определя първото върнато число на функцията. В компютърните езици всички произволни процеси всъщност са дълги, повтарящи се серии от числа, които изглеждат случайни. Един добре подбран процес се повтаря само след милиарди стойности, така че е практически източник на произволни числа, дори ако не е теоретично чист. Ако предоставите на произволната функция аргумент, тя ще генерира същата последователност от числа. Без аргумента, произволната функция генерира следващото число в своята последователност.

Случайната функция в COBOL връща десетични числа в диапазон от нула до едно. Статистически, произволните числа имат правоъгълно разпределение, което означава, че всяко число е еднакво вероятно. Графика от дълга серия от случайни числа ще има относително плоска линия, простираща се от нула до почти едно. Това контрастира с нормалното или гаусово разпределение, което образува крива с форма на камбана.

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

В изявлението произволната функция генерира числа, по-големи или равни на нула и по-малки от едно. Умножаването на това по 52 ви дава числа между нула и 51. Добавянето на едно ви дава диапазона от едно до 52.