Ayuda con ciclo de repeticion(bucle)

[gabtroc]

Vale, Gracias delphius ya corregi eso no me habia dado cuenta que era lo mismo, error de novato xd.

Para no estar haciendo otro tema preguntare esto por aqui mismo necesito hacer un programa que me genere numeros aleatorios por la tecnica del cuadrado medio. Si no lo saben consiste en tomar un número de N cifras elevarlo al cuadrado y usar los N dígitos centrales como número aleatorio, luego repetir el proceso para generar nuevos números aleatorios usando como semilla el aleatorio anterior.

Necesito escribir el programa para que lea un número entero cualquiera de N cifras y genere una lista de 20 números aleatorios utilizando esa tecnica, pero no logro hacer un algoritmo que me sirva y no tengo idea de como hacer que solo agarre los numeros centrales. Alguna idea?

Si la tienen se los agradecere mucho, de todas formas gracias por la ayuda con el programa anterior.

[ecfisa]

Empezado por gabtroc

Para no estar haciendo otro tema preguntare esto por aqui mismo necesito hacer un programa que me genere numeros aleatorios por la tecnica del cuadrado medio.

Hola gabtroc.

Contrariamente yo te aconsejo que inicies un nuevo hilo con tu nueva pregunta. Y entre otros, los principales motivos son: Facilitar la búsqueda temática e incrementar tu posibilidad de recibir respuestas.

Un saludo.

Edito: Ya me olvidaba... Aplicando la ley de De Morgan también podés utilizar:

Código Delphi [-]
  if not((d1=d2)or(d1=d3)or(d1=d4)or(d2=d3)or(d2=d4)or(d3=d4)) then

[gabtroc]

Ok ecfisa ya genero un nuevo tema con la pregunta, si tienes alguna idea para eso te invito a contestarla.

[[Delphius]]

El generador que debes implementar se llama Generador de Lehmer no del cuadrado medio. Ha repasar la teoría de Modelos y Simulación

Saludos,

[[Delphius]]

Yo y mi bocota, mejor mandenme a mi recursar la cátedra... confundí el Cuadrado Central con Lehmer. Esto me pasa por confundir los primeros estudios de Lehmer, ya que fue el quien a quien se lo conoce como el iniciador de los generadores.

Saludos,