Fungsi Acak di COBOL

Bahasa pemrograman COBOL, salah satu yang tertua masih digunakan secara teratur, memiliki bias yang kuat terhadap aplikasi bisnis, seperti akuntansi, penggajian dan pengendalian persediaan. Namun, versi COBOL yang lebih baru memiliki fungsi matematika yang canggih, termasuk untuk menghasilkan angka acak. Meskipun jarang digunakan untuk akuntansi bisnis sehari-hari, angka acak membantu memfasilitasi perhitungan statistik dan beberapa jenis teknik pemecahan masalah numerik.

Fungsi matematika COBOL adalah bagian dari pembagian prosedur bahasa, bagian dari program yang terdiri dari pernyataan prosedural. Fungsi dimulai dengan kata khusus "fungsi" diikuti dengan nama fungsi, seperti "cos", "acak" atau "catatan." Sebuah fungsi mengambil satu atau lebih argumen, melakukan proses pada mereka dan mengembalikan hasilnya kembali ke COBOL program. Beberapa fungsi bekerja pada angka dan variabel numerik, sementara yang lain bekerja pada data karakter.

Fungsi acak mengambil argumen integer non-negatif dan mengembalikan angka desimal. Argumen integer adalah opsional. Ini adalah benih untuk proses matematika pseudo-acak, yang menentukan nomor kembali pertama fungsi. Dalam bahasa komputer, semua proses acak sebenarnya panjang, mengulangi serangkaian angka yang tampak acak. Proses yang dipilih dengan baik hanya berulang setelah miliaran nilai, jadi ini adalah sumber praktis dari bilangan acak, bahkan jika itu tidak murni secara teoritis. Jika Anda menyediakan fungsi acak dengan argumen, itu akan menghasilkan urutan angka yang sama. Tanpa argumen, fungsi acak menghasilkan nomor berikutnya dalam urutannya.

Fungsi acak dalam COBOL mengembalikan angka desimal dalam kisaran nol hingga satu. Secara statistik, angka acak memiliki distribusi persegi panjang, yang berarti setiap angka memiliki kemungkinan yang sama. Grafik deret panjang bilangan acak akan memiliki garis yang relatif datar memanjang dari nol hingga hampir satu. Ini kontras dengan distribusi normal, atau Gaussian, yang membentuk kurva berbentuk lonceng.

Dengan sendirinya, bilangan desimal fungsi acak tidak terlalu berguna, tetapi jika Anda mengalikannya dengan faktor penskalaan, Anda membuat rentang bilangan acak yang sesuai untuk aplikasi Anda. Misalnya, untuk mendapatkan bilangan bulat acak antara satu dan 52, Anda akan menggunakan pernyataan COBOL berikut: KOMPUTASI NILAI-RANDOM = FUNCTION RANDOM (1) * 52 + 1.

Dalam pernyataan, fungsi acak menghasilkan angka yang lebih besar dari atau sama dengan nol dan kurang dari satu. Mengalikan ini dengan 52 memberi Anda angka antara nol dan 51. Menambahkan satu memberi Anda kisaran satu hingga 52.