FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como generar palabras aleatorias
hola
tengo un problema soy nuevo en esto de programacion un amigo hace tiempo me hablo de esta pagina y estos foros que son lo maximo por que los mejores salen de aqui, basta de alagos y a lo que vine quiero generas palabras aleatorias pero no ten go la forma correcta lo que hice fue poner un una base de datos las letras y los numeros y signos que quieros usar para generar la palabras esto se me hace muy ineficiente porque toma mucho tiempo hacerlo ahi una forma de generar o funcion que genere palabras con una longitud contro lada para yo poder usarlo. Gracias de antemano y si les puedo ayudar en linux me avisan que tengo mucha experiencia en esto.!! |
#2
|
||||
|
||||
Cuando dices signos que quieres decir:
ó à â ..... O es que lo que pretendes es generar frases con dichas palabras aleatorias. Otra pregunta, sería estas palabras tienen que tener sentido, porque dadas las letras del alfabeto, que pueden hallarse en una matriz y la activación de los números aleatorios, lo más normal es que el 99% de las palabras formadas sean incoherentes para nuestro lenguaje? Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
He preparado este ejemplo, pero ya es un poco tarde y no lo retoco, necesitas un Listbox, según mis cáculos te pueda aguantar unas 30.000 palabras.
Código:
procedure TForm1.Button1Click(Sender: TObject); var MisLetras:string; nAncho:Integer; nIni:Integer; nPal:Integer; Mots:String; nIndice:Integer; begin MisLetras:='abcdefghijklmnñopqrstuvwxyz-,_'; nAncho:=10; Randomize; Mots:=''; For nIni:=1 to 5000 do begin for nPal:=1 to nAncho do begin nIndice:=Random(Length(MisLetras)); while nIndice = 0 do begin nIndice:=Random(Length(MisLetras)); end; Mots:=Mots+MisLetras[nIndice]; end; Listbox1.Items.Add(Mots); Mots:=''; end; ShowMessage(IntToStr(listbox1.items.count)); end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|