Basic - Generador de frases aleatorias

   
Vista:

Generador de frases aleatorias

Publicado por lrcvs (17 intervenciones) el 21/08/2009 00:22:50
'Programa generador de frases aleatorias
'lrcvs 20.08.09

'Posibles usos:
'para rellenar ficheros y ordenarlos, buscar
'para rellenar arrays, ordenar, burcar
'filtrarlo y obtener palabras de distinta longitud

CLS
FOR h = 1 TO 10 'Numero de frases
l = 10 'Longitud maxima de las palabras
j = 0
WHILE j < l
z$ = ""
RANDOMIZE TIMER
a = INT(RND * 100)
IF a > 64 THEN b = a
IF b < 91 THEN c = b
IF a > 64 AND b < 91 THEN z$ = CHR$(b): y$ = z$
FOR n = 1 TO 10
RANDOMIZE TIMER
a = INT(RND * 100)
IF a > 64 THEN b = a
IF b < 91 THEN c = b
IF a > 64 AND b < 91 THEN z$ = z$ + CHR$(b)
NEXT n
k$ = k$ + z$ + " "
j = j + 1
IF LEFT$(k$, 1) = " " THEN MID$(k$, 1) = y$
WEND
PRINT k$
k$ = ""
NEXT h
END
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder