შემთხვევითი ფუნქცია COBOL-ში

COBOL პროგრამირების ენა, ერთ-ერთი უძველესი, რომელიც ჯერ კიდევ რეგულარულად გამოიყენება, აქვს ძლიერი მიკერძოება ბიზნეს აპლიკაციების მიმართ, როგორიცაა აღრიცხვა, სახელფასო და ინვენტარის კონტროლი. თუმცა, COBOL-ის ახალ ვერსიებს აქვთ დახვეწილი მათემატიკური ფუნქციები, მათ შორის შემთხვევითი რიცხვების გენერირებისთვის. მიუხედავად იმისა, რომ იშვიათად გამოიყენება ყოველდღიური ბიზნეს აღრიცხვისთვის, შემთხვევითი რიცხვები ხელს უწყობს სტატისტიკური გამოთვლების და გარკვეული სახის რიცხვითი პრობლემების გადაჭრის ტექნიკებს.

COBOL მათემატიკის ფუნქციები არის ენის პროცედურების განყოფილების ნაწილი, პროგრამის განყოფილება, რომელიც შედგება პროცედურული განცხადებებისგან. ფუნქციები იწყება რეზერვირებული სიტყვით "function", რასაც მოჰყვება ფუნქციის სახელი, როგორიცაა "cos", "შემთხვევითი" ან "ლოგი". ფუნქცია იღებს ერთ ან მეტ არგუმენტს, ასრულებს პროცესს მათზე და აბრუნებს შედეგს COBOL-ში პროგრამა. ზოგიერთი ფუნქცია მუშაობს ციფრებზე და ციფრულ ცვლადებზე, ზოგი კი სიმბოლოების მონაცემებზე.

შემთხვევითი ფუნქცია იღებს არაუარყოფითი მთელი რიცხვის არგუმენტს და აბრუნებს ათობითი რიცხვს. მთელი არგუმენტი არჩევითია. ეს არის ფსევდო შემთხვევითი მათემატიკური პროცესის თესლი, რომელიც განსაზღვრავს ფუნქციის პირველ დაბრუნებულ რიცხვს. კომპიუტერულ ენებში, ყველა შემთხვევითი პროცესი ფაქტობრივად გრძელია, იმეორებს რიცხვების სერიებს, რომლებიც შემთხვევით ჩანს. კარგად შერჩეული პროცესი მეორდება მხოლოდ მილიარდობით მნიშვნელობის შემდეგ, ამიტომ ის შემთხვევითი რიცხვების პრაქტიკული წყაროა, თუნდაც ის არ იყოს თეორიულად სუფთა. თუ შემთხვევით ფუნქციას მიაწვდით არგუმენტს, ის გამოიმუშავებს რიცხვების იგივე თანმიმდევრობას. არგუმენტის გარეშე, შემთხვევითი ფუნქცია წარმოქმნის შემდეგ რიცხვს თავისი თანმიმდევრობით.

შემთხვევითი ფუნქცია COBOL-ში აბრუნებს ათობითი რიცხვებს ნულიდან ერთამდე დიაპაზონში. სტატისტიკურად, შემთხვევით რიცხვებს აქვთ მართკუთხა განაწილება, რაც ნიშნავს, რომ თითოეული რიცხვი თანაბრად სავარაუდოა. შემთხვევითი რიცხვების გრძელი სერიის გრაფიკს ექნება შედარებით ბრტყელი ხაზი, რომელიც ვრცელდება ნულიდან თითქმის ერთამდე. ეს ეწინააღმდეგება ნორმალურ, ანუ გაუსიან განაწილებას, რომელიც ქმნის ზარის ფორმის მრუდს.

თავისთავად, შემთხვევითი ფუნქციის ათობითი რიცხვები არ არის ძალიან გამოსადეგი, მაგრამ თუ მათ გაამრავლებთ სკალირების ფაქტორზე, თქვენ შექმნით შემთხვევითი რიცხვების დიაპაზონს, რომელიც შესაფერისია თქვენი განაცხადისთვის. მაგალითად, შემთხვევითი მთელი რიცხვების მისაღებად ერთსა და 52-ს შორის, გამოიყენეთ შემდეგი COBOL წინადადება: COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 52 + 1.

განცხადებაში, შემთხვევითი ფუნქცია აგენერირებს ნულს ან ერთზე ნაკლებ რიცხვებს. ამის გამრავლება 52-ზე მოგცემთ რიცხვებს ნულსა და 51-ს შორის. ერთის დამატება გაძლევთ დიაპაზონს ერთიდან 52-მდე.