QuickBasic - Generar números enteros

 
Vista:
Imágen de perfil de Claudio
Val: 1
Ha mantenido su posición en QuickBasic (en relación al último mes)
Gráfica de QuickBasic

Generar números enteros

Publicado por Claudio (1 intervención) el 23/01/2020 23:10:33
Trato de tener un programa que genere 3 números dígitos DISTINTOS, del 0 al 9 incluídos, para lo cual creé un programa que siempre entrega los mismos números ….

1
2
3
4
5
6
7
10 CLEAR
20 C1=FIX(10*RND)
30 C2=FIX(10*RND)
40 C3=FIX(10*RND)
50 IF ((C1-C2)*(C1-C3)*(C2-C3)=0) THEN GOTO 10 ELSE GOTO 60
60 PRINT C1; C2; C3
70 END

¿POR QUE SIEMPRE GEERA LOS MISMOS TRES NÚMEROS Y NO CAMBIA, SI YO LIMPIO MEMORIAS E INVOCO RND, QUE ENTREGA NÚMEROS DISTINTOS ?

¿ALGUEN ME PUEDE AYUDAR POR FAVOR?
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
sin imagen de perfil
Val: 13
Ha mantenido su posición en QuickBasic (en relación al último mes)
Gráfica de QuickBasic

Generar números enteros

Publicado por dario (2 intervenciones) el 24/01/2020 04:43:58
Hola, pruebalo asi:
Salu2.

1
2
3
4
5
6
7
10 CLS
20 RANDOMIZE TIMER
30 c1 = FIX(10 * RND)
40 c2 = FIX(10 * RND)
50 c3 = FIX(10 * RND)
60 IF ((c1 - c2) * (c1 - c3) * (c2 - c3) = 0) THEN GOTO 10 ELSE GOTO 70
70 PRINT c1; c2; c3
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar