[Sintaxis] Numero random

[drvedia1981]

Hola necesito generar un numero random entre 1 y 10 cual es la mejor manera.
Muchas gracias Saludos

[Fito]

Hola:

Todo depende si son enteros o con decimales. Lo podés hacer con la hora del sistema, tenés hasta centésimas de segundo.

Saudos.

Fito...

[drvedia1981]

Hola numeros enteros

[Josber]

Si te bajas el manual de power que hice para éste foro desde https://www.cobolforo.es/showthread.php?t=831, hay un ejemplo en las sección FUNCTIONS para generar números aleatorios.

Un saludo.-

[drvedia1981]

Hola josber no encuentro en el manual que me decís el ejemplo de random
Gracias

---------- Post añadido : 16:17 ---------- Post anterior : 16:15 ----------

Perdón ya esta

[Joseg]

Cita del post de drvedia1981

Hola necesito generar un numero random entre 1 y 10 cual es la mejor manera. Muchas gracias Saludos

COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 10 + 1.

[Kuk]

Joseg, esta sintaxis funciona en Fujitsu ?

[Josber]

Cita del post de Joseg

COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 10 + 1.

No tengo aquí a mano la sintáxis de la función RANDOM, (como ya he dicho en otro post, estoy aún reinstalando cosas), pero, suponiendo que funcionase así, el número generado, sería siempre el mismo porque la "semilla" del generador es siempre la misma, en éste caso 1, y el generador no es aleatorio si no pseudoaleatorio, que quiere decir que a misma semilla, mismo número generado.

Un saludo.-

[Kuk]

Josber, correcto!

Buscar aquí RANDOM:

http://software.fujitsu.com/jp/manua...304-01enz0.pdf

[Joseg]

Cita del post de Joseg

COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 10 + 1.

Exemplo mais concreto:

 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.