Resultados 1 al 3 de 3

Tema: Rutina Números Aleatorios

  1. #1
      Guardián del Foro
    H

    Registrado
    febrero de 2015
    Edad
    70
    Mensajes
    327
    Ciudad
    Puerto Madryn

    Agradecimientos
     
    Recibidos
    118
    Enviados
    107

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Guardián del Foro / Point Value: 0

    Predeterminado Rutina Números Aleatorios

    Hola Amigos !!!!
    Necesito una rutina, ocx, etc que genere números aleatorios de 3, 4 o 5 dígitos
    Alguien tiene algo sobre este tema
    Saludos !!!!

    0 Not allowed!

  2. #2
      Guardián del Foro
    Avatar de Fito

    Registrado
    febrero de 2015
    Edad
    51
    Mensajes
    331
    Ciudad
    Córdoba, Villa María

    Agradecimientos
     
    Recibidos
    171
    Enviados
    176

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    24
    Agradecimientos / Point Value: 0 Guardián del Foro / Point Value: 0 Activista del Foro / Point Value: 0

    Predeterminado

    Hola:

    Nunca lo probé, pero a lo mejor esta función te sirve.

    RANDOM Function
    This function returns a pseudo random value from uniform distributions.
    Format
    FUNCTION RANDOM [(argument-1)]
    Argument
    1. The type of argument-1 must be integer.
    2. The value of argument-1 must be zero or a positive integer. It is used to
    generate a pseudo-random string.
    3. The RANDOM function with argument-1 will generate a pseudo-random string
    using argument-1 as source.
    4. If argument-1 is omitted in the RANDOM function first executed in the run unit, a
    pseudo-random string is generated using zero as source.
    5. When determining a random value from the same pseudo random string after
    execution of the RANDOM function, argument-1 may be omitted. The value of
    argument-1 is valid until the next RANDOM function having argument-1 appears.
    Function Value
    1. The function value is any value in the current pseudo-random string.
    2. The range of the function value is:
    0 ≤ function value < 1
    3. If the value of argument-1 (source value) is the same as in a previous execution,
    the same pseudo-random string is used.
    Saludos.

    Fito...

    0 Not allowed!

  3. #3
      Guardián del Foro
    H

    Registrado
    febrero de 2015
    Edad
    70
    Mensajes
    327
    Ciudad
    Puerto Madryn

    Agradecimientos
     
    Recibidos
    118
    Enviados
    107

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Guardián del Foro / Point Value: 0

    Predeterminado

    Acá esta la respuesta FITO, me la paso un amigo !!


    COBOL Código:
    1. ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  01  Misc.
    5.      05  Pseudo      Pic X.
    6.      05  Multi-Digit Pic 999999999V9(6).
    7.      05  Two-Digit   Pic 99999999.
    8.      05  Vary        Pic 99
    9.      05  hora        Pic 99999999.
    10.  PROCEDURE       DIVISION.
    11.  
    12.  Return-Pseudo.
    13.      ACCEPT HORA FROM TIME
    14.      Compute Multi-Digit = (Function Random (hora)) * 1
    15.      Display Two-Digit  " VARY" Vary " -----1--> " Multi-Digit  " --------> " hora 
    16.      Perform Varying Vary from 1 by 1
    17.        Until Vary > 50
    18.         Compute Multi-Digit = (Function Random) * 1
    19.         Move Multi-Digit to Two-Digit
    20.      Display Two-Digit  " VARY" Vary " --------> " Multi-Digit  " --------> " hora 
    21.      End-Perform

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Sintaxis] Crear Rutina que exporte archivos DAT a TXT?
    Por KalEl en el foro NetCOBOL for Windows
    Respuestas: 26
    Último Mensaje: 05.07.2022, 16:42
  2. [Aporte] Traductor de números a letras.
    Por Gusaiello en el foro Cocina AcuCOBOL
    Respuestas: 2
    Último Mensaje: 22.05.2018, 20:45
  3. [Sintaxis] Rutina de filtrado de palabras
    Por Gatomalo en el foro RM/COBOL
    Respuestas: 4
    Último Mensaje: 10.03.2017, 09:09
  4. [Petición] Rutina impresión sticker con codigos de barras
    Por Gatomalo en el foro Cocina PowerCOBOL
    Respuestas: 7
    Último Mensaje: 19.08.2016, 17:44
  5. [Aporte] Dividir números muy grandes en COBOL
    Por Josber en el foro Cocina Casera
    Respuestas: 3
    Último Mensaje: 02.05.2015, 21:44

User Tag List

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •