Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Numero random (https://www.cobolforo.es/showthread.php?t=887)

drvedia1981 5 de septiembre de 2018 22:18

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

Fito 6 de septiembre de 2018 00:17

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 6 de septiembre de 2018 02:54

Hola numeros enteros

Josber 6 de septiembre de 2018 10:21

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 12 de septiembre de 2018 17:17

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 13 de septiembre de 2018 10:34

Cita:

Citación del post de drvedia1981 (Mensaje 4465)
Hola necesito generar un numero random entre 1 y 10 cual es la mejor manera.
Muchas gracias Saludos

Código COBOL:
  1. COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 10 + 1.

Kuk 13 de septiembre de 2018 10:48

Joseg, esta sintaxis funciona en Fujitsu ?

Josber 13 de septiembre de 2018 20:22

Cita:

Citación del post de Joseg (Mensaje 4487)
Código COBOL:
  1. 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 13 de septiembre de 2018 21:31

Josber, correcto!

Buscar aquí RANDOM:

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

Joseg 13 de septiembre de 2018 23:51

Cita:

Citación del post de Joseg (Mensaje 4487)
Código COBOL:
  1. COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 10 + 1.

Exemplo mais concreto:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.                                    
  4.  01 MIN-NUMBER PIC 99 VALUE 0.                              
  5.  01 MAX-NUMBER PIC 99 VALUE 10.                              
  6.  01 RANDOM-NUMBER PIC 99.                                    
  7.  PROCEDURE DIVISION.                                          
  8.  MAIN-PARA.                                                  
  9.      PERFORM 10 TIMES                                        
  10.          COMPUTE RANDOM-NUMBER = FUNCTION RANDOM *        
  11.                             (MAX-NUMBER - MIN-NUMBER + 1) +
  12.                              MIN-NUMBER                      
  13.          DISPLAY 'RANDOM NUMBER:' RANDOM-NUMBER              
  14.      END-PERFORM.                                            


La franja horaria es GMT +2. Ahora son las 08:58.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.