Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Cambio formato de numero Roger PowerCOBOL (ActiveX, v4 - v11) 12 13 de junio de 2018 00:07
[Aporte] Obtener numero de serie del Disco Duro (HDD) Hrmcobol Cocina PowerCOBOL 0 17 de abril de 2015 15:59
[Aporte] Numero de Registos en un Ficheiro indexado Rapinto Cocina PowerCOBOL 0 27 de febrero de 2015 01:04
Respuesta
 
Herramientas

  #1
Antiguo 5 de septiembre de 2018, 22:18
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
Ubicación Caba Argentina
Última Actividad12.03.2020 16:37
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado Numero random

Hola necesito generar un numero random entre 1 y 10 cual es la mejor manera.
Muchas gracias Saludos
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 6 de septiembre de 2018, 00:17
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad49 años
Última Actividad18.01.2021 12:59
PROCEDURE DIVISION
PostsPosts: 249
Ha dicho GraciasEnviado: 125
Ha recibido agradecimientosRecibido: 112
Mejores respuestasSoluiones: 13
ReputaciónReputación: 16
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

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...
Fito no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 6 de septiembre de 2018, 02:54
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
Ubicación Caba Argentina
Última Actividad12.03.2020 16:37
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado

Hola numeros enteros
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 6 de septiembre de 2018, 10:21
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad15.01.2021 19:58
PROCEDURE DIVISION
PostsPosts: 555
Ha dicho GraciasEnviado: 247
Ha recibido agradecimientosRecibido: 267
Mejores respuestasSoluiones: 35
ReputaciónReputación: 26
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

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.-
Josber no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 12 de septiembre de 2018, 17:17
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
Ubicación Caba Argentina
Última Actividad12.03.2020 16:37
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado

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
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 13 de septiembre de 2018, 10:34
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad15.01.2021 17:57
PROCEDURE DIVISION
PostsPosts: 198
Ha dicho GraciasEnviado: 43
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 12
ReputaciónReputación: 13
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de drvedia1981 Ver Mensaje
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.
Joseg no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 13 de septiembre de 2018, 10:48
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad18.01.2021 19:31
PROCEDURE DIVISION
PostsPosts: 1.694
Ha dicho GraciasEnviado: 505
Ha recibido agradecimientosRecibido: 688
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Joseg, esta sintaxis funciona en Fujitsu ?


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 13 de septiembre de 2018, 20:22
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad15.01.2021 19:58
PROCEDURE DIVISION
PostsPosts: 555
Ha dicho GraciasEnviado: 247
Ha recibido agradecimientosRecibido: 267
Mejores respuestasSoluiones: 35
ReputaciónReputación: 26
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Joseg Ver Mensaje
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.-
Josber no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 13 de septiembre de 2018, 21:31
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad18.01.2021 19:31
PROCEDURE DIVISION
PostsPosts: 1.694
Ha dicho GraciasEnviado: 505
Ha recibido agradecimientosRecibido: 688
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Josber, correcto!

Buscar aquí RANDOM:

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


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 13 de septiembre de 2018, 23:51
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad15.01.2021 17:57
PROCEDURE DIVISION
PostsPosts: 198
Ha dicho GraciasEnviado: 43
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 12
ReputaciónReputación: 13
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de Joseg Ver Mensaje
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.                                            
Joseg no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 03:20.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.