Aqui se pide al usuario un numero al que se le aplicara la formula para dar numeros aleatorios , a este numero lo dividimos entre 1000 y comprobamos si la parte entera esta entre 1 y 49 , si se cumple la condicion vamos almacenandolo en la tabla hasta tener los 6 numeros (de 1 o 2 cifras), luego imprmimos la tabla para mostrar los numeros.



Salida:

Introduzca un valor para numero_inicial: 15


Numeros Aleatorios:
37   41   49   16   48   45

Procedimiento PL/SQL terminado correctamente.


Codigo:

set termout on;
set serveroutput on;
set ver off;


declare
	
	inicial number :=0;
	repetida boolean := false;
	n number :=1;
	numero number := 1;
	type tabla is table of number index by binary_integer;
	aleatorios tabla;
	
	
begin

	/*Pedir el Numero Inicial al Usuario*/
	inicial := '&numero_inicial';
	
	/* Inicializar la tabla en 0 */	
	for j in 1..6 loop
		aleatorios(j) := 0;
	end loop;

	
	
	/* Alamacenar los 6 numeros aleatorios que cumplan las condiciones */
	while n < = 6 loop
		/* FORMULA */
		inicial := MOD((25173 * inicial + 13849 ),65536);
		
		/* Guardar en Numero la parte entera del numero aleatorio dividido entre mil */
		numero := floor(inicial / 1000);
		
		/* Comprobar que el numero este entre 1 y 49 */
		if numero >0 AND numero < = 49 then
			/* Recorrer la tabla buscando que el numero no este repetido*/
			for k in 1..6 loop
				if aleatorios(k) = numero then
					repetida := true;
					exit;
				end if;
			end loop;
			
			
			/* Si NO esta repetida lo guardamos en la posicion de la tabla y si lo esta ponemos a False de nuevo la variable */
			if repetida = false  then
				aleatorios(n) := numero;
				n := n +1;
				
				else
					repetida := false;
			end if;	
			
		end if;	
		
	end loop;
	
	
	
	/* Imprimimos la tabla con los 6 numeros */
	dbms_output.put_line ('
	');
	dbms_output.put_line ('Numeros Aleatorios:');
	for i in 1..6 loop
	
		dbms_output.put(rpad(aleatorios(i),5));
		
	end loop;
		dbms_output.put_line ('	');
	
	
end;
/

Terminos de Busqueda:

  • guardar numero aleatorio java
  • oracle parte decimal de un numero
  • tabla numeros aleatorios
  • en plpgsql funcion para determinar si un numero es multiplo de otro
  • generar un sorteo en pl sql
  • generar numeros aleatorios entre 1 y 10 java en plsql
  • valor aleatorio pl sql
  • generar numero aleatorio pl/sql
  • Generar nuemos aleatorios y comprobar que existan en la tabla SQL
  • generar codigo aleatorio sql
  • generar aleatorios en oracle
  • 6 numeros aleatorios del 1 al 49
  • datos aleatorios de una tabla en sql
  • crear funcion en pl sql para generar numeros aleatorios
  • como sacar numeros aletorios en sql
  • como sacar multiplo de un numero en oracle
  • como obtener los multiplos de 6 de una tabla de oracle
  • como eliminar oracle america inc
  • como dar datos aleatorios en sql
  • como calcular el binario de un numero en pl sql