Citación del post de
Joseg
|
❞
Código COBOL:
COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 10 + 1.
|
Exemplo mais concreto:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MIN-NUMBER PIC 99 VALUE 0.
01 MAX-NUMBER PIC 99 VALUE 10.
01 RANDOM-NUMBER PIC 99.
PROCEDURE DIVISION.
MAIN-PARA.
PERFORM 10 TIMES
COMPUTE RANDOM-NUMBER = FUNCTION RANDOM *
(MAX-NUMBER - MIN-NUMBER + 1) +
MIN-NUMBER
DISPLAY 'RANDOM NUMBER:' RANDOM-NUMBER
END-PERFORM.