Η τυχαία συνάρτηση στο COBOL

Η γλώσσα προγραμματισμού COBOL, μια από τις παλαιότερες που εξακολουθεί να χρησιμοποιείται τακτικά, έχει ισχυρή προκατάληψη προς επιχειρηματικές εφαρμογές, όπως η λογιστική, η μισθοδοσία και ο έλεγχος αποθεμάτων. Ωστόσο, οι νεότερες εκδόσεις του COBOL έχουν εξελιγμένες μαθηματικές συναρτήσεις, συμπεριλαμβανομένης μιας για τη δημιουργία τυχαίων αριθμών. Αν και σπάνια χρησιμοποιούνται για την καθημερινή λογιστική των επιχειρήσεων, οι τυχαίοι αριθμοί βοηθούν στη διευκόλυνση των στατιστικών υπολογισμών και ορισμένων ειδών αριθμητικών τεχνικών επίλυσης προβλημάτων.

Οι μαθηματικές συναρτήσεις COBOL αποτελούν μέρος του τμήματος διαδικασίας της γλώσσας, το τμήμα του προγράμματος που αποτελείται από διαδικαστικές δηλώσεις. Οι συναρτήσεις ξεκινούν με τη δεσμευμένη λέξη "function" ακολουθούμενη από το όνομα της συνάρτησης, όπως "cos", "random" ή "κούτσουρο." Μια συνάρτηση παίρνει ένα ή περισσότερα ορίσματα, εκτελεί μια διαδικασία σε αυτά και επιστρέφει ένα αποτέλεσμα πίσω στο COBOL πρόγραμμα. Ορισμένες συναρτήσεις λειτουργούν σε αριθμούς και αριθμητικές μεταβλητές, ενώ άλλες λειτουργούν σε δεδομένα χαρακτήρων.

Η τυχαία συνάρτηση παίρνει ένα μη αρνητικό ακέραιο όρισμα και επιστρέφει έναν δεκαδικό αριθμό. Το όρισμα ακέραιος είναι προαιρετικό. Είναι ο σπόρος για μια ψευδοτυχαία μαθηματική διαδικασία, που καθορίζει τον πρώτο αριθμό της συνάρτησης που επιστράφηκε. Στις γλώσσες υπολογιστών, όλες οι τυχαίες διεργασίες είναι στην πραγματικότητα μεγάλες, επαναλαμβάνοντας σειρές αριθμών που φαίνονται τυχαίοι. Μια καλά επιλεγμένη διαδικασία επαναλαμβάνεται μόνο μετά από δισεκατομμύρια τιμές, επομένως είναι μια πρακτική πηγή τυχαίων αριθμών, ακόμα κι αν δεν είναι θεωρητικά καθαρή. Εάν δώσετε στην τυχαία συνάρτηση ένα όρισμα, θα δημιουργήσει την ίδια ακολουθία αριθμών. Χωρίς το όρισμα, η τυχαία συνάρτηση δημιουργεί τον επόμενο αριθμό στην ακολουθία της.

Η τυχαία συνάρτηση στο COBOL επιστρέφει δεκαδικούς αριθμούς σε μια περιοχή από μηδέν έως ένα. Στατιστικά, οι τυχαίοι αριθμοί έχουν ορθογώνια κατανομή, που σημαίνει ότι κάθε αριθμός είναι εξίσου πιθανός. Ένα γράφημα μιας μεγάλης σειράς τυχαίων αριθμών θα έχει μια σχετικά επίπεδη γραμμή που εκτείνεται από το μηδέν έως σχεδόν το ένα. Αυτό έρχεται σε αντίθεση με την κανονική, ή Gaussian, κατανομή, η οποία σχηματίζει μια καμπύλη σε σχήμα καμπάνας.

Από μόνοι τους, οι δεκαδικοί αριθμοί τυχαίων συναρτήσεων δεν είναι πολύ χρήσιμοι, αλλά αν τους πολλαπλασιάσετε με έναν παράγοντα κλιμάκωσης, δημιουργείτε μια σειρά από τυχαίους αριθμούς κατάλληλους για την εφαρμογή σας. Για παράδειγμα, για να λάβετε τυχαίους ακέραιους αριθμούς μεταξύ ενός και 52, θα χρησιμοποιούσατε την ακόλουθη πρόταση COBOL: COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 52 + 1.

Στη δήλωση, η τυχαία συνάρτηση δημιουργεί αριθμούς μεγαλύτερους ή ίσους με μηδέν και μικρότερους από ένα. Πολλαπλασιάζοντας αυτό με το 52 σας δίνουμε αριθμούς μεταξύ μηδέν και 51. Η προσθήκη ενός σάς δίνει το εύρος από ένα έως 52.