Náhodná funkcia v COBOL

Programovací jazyk COBOL, jeden z najstarších, ktorý sa stále bežne používa, má silné zameranie na obchodné aplikácie, ako je účtovníctvo, mzdy a kontrola zásob. Novšie verzie COBOL však majú sofistikované matematické funkcie, vrátane jednej na generovanie náhodných čísel. Hoci sa náhodné čísla zriedka používajú na každodenné obchodné účtovníctvo, pomáhajú zjednodušiť štatistické výpočty a určité druhy numerických techník riešenia problémov.

Matematické funkcie COBOL sú súčasťou rozdelenia procedúr jazyka, pričom časť programu pozostáva z procedurálnych príkazov. Funkcie začínajú rezervovaným slovom „funkcia“, za ktorým nasleduje názov funkcie, ako napríklad „cos“, „náhodný“ alebo "log." Funkcia prevezme jeden alebo viac argumentov, vykoná na nich proces a vráti výsledok späť do COBOL program. Niektoré funkcie pracujú s číslami a číselnými premennými, zatiaľ čo iné pracujú s údajmi o znakoch.

Náhodná funkcia prevezme nezáporný celočíselný argument a vráti desatinné číslo. Argument celého čísla je voliteľný. Je to základ pre pseudonáhodný matematický proces, ktorý určuje prvé vrátené číslo funkcie. V počítačových jazykoch sú všetky náhodné procesy v skutočnosti dlhé, opakujúce sa série čísel, ktoré sa zdajú byť náhodné. Dobre zvolený proces sa opakuje až po miliardách hodnôt, je teda praktickým zdrojom náhodných čísel, aj keď nejde o teoreticky čistý. Ak náhodnej funkcii dodáte argument, vygeneruje rovnakú postupnosť čísel. Bez argumentu náhodná funkcia vygeneruje ďalšie číslo v poradí.

Náhodná funkcia v COBOL vracia desatinné čísla v rozsahu od nuly do jednej. Štatisticky majú náhodné čísla pravouhlé rozdelenie, čo znamená, že každé číslo je rovnako pravdepodobné. Graf dlhého radu náhodných čísel bude mať relatívne rovnú čiaru siahajúcu od nuly po takmer jednu. To kontrastuje s normálnym alebo Gaussovým rozložením, ktoré tvorí krivku v tvare zvona.

Samotné desiatkové čísla s náhodnou funkciou nie sú veľmi užitočné, ale ak ich vynásobíte koeficientom mierky, vytvoríte rozsah náhodných čísel vhodných pre vašu aplikáciu. Napríklad na získanie náhodných celých čísel od 1 do 52 by ste použili nasledujúci príkaz COBOL: COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 52 + 1.

V príkaze náhodná funkcia generuje čísla väčšie alebo rovné nule a menšie ako jedna. Vynásobením tohto čísla 52 získate čísla medzi nulou a 51. Pridaním jednej získate rozsah od jednej do 52.