Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
16
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
Trucos
TEMARIONúmeros Aleatorios
Sec. Escape a Impresoras
Imp. ¿Pantalla o Impresora?
Dibujar Cuadros o Líneas
Años Bisiestos
Ventana de Opciones
Campos Tipo Hora
Busqueda de Cadenas
Mandar un e-mail
Pequeño Editor Texto
Día de la Semana
Registros / Fichero
ListBox en modo caracter

Números Aleatorios

(317 palabras totales en este texto)
(16455 Lecturas)   Versión Imprimible



¿Como podemos obtener números aleatorios en Cobol ?. Bien, aunque no exista ninguna orden al respecto, podremos nosotros crearnos un algoritmo partiendo de alguna variable que varie constantemente y nada mejor para ello que la hora del sistema. ¿Como lo haríamos?

En la Working, creariamos una variable de 8 dígitos para guardar la hora y la subdividimos en 4 variables de 2 dígitos, para la hora, minutos, segundos y milisegundos. Y otra para guardar el número aleatorio.

WORKING-STORAGE SECTION.
01  HORARIO PIC 9(8).
01  HORA REDEFINES HORARIO.
     02  HH  PIC 99.
     02  HM  PIC 99.
     02  HS  PIC 99.
     02  HX  PIC 99.
01  NUMERO PIC 9(6).

Ahora en la Procedure aplicamos el algoritmo. 

PROCEDURE DIVISION.
ALEATORIO.
     ACCEPT HORARIO FROM TIME.
     COMPUTE NUMERO = (HH * HX) / HM + HS.

Por supuesto, podremos ampliar la fórmula o incluir mas variables, como la fecha, el dia del año, etc ...

También tenéis en las Rutinas de números, una de nuestro amigo Jose Carlos Florán mucho mejor y que nos permite definir valores máximos y mínimos.

   Inicio de Página   
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]