Basic - Permutaciones

   
Vista:

Permutaciones

Publicado por Alvaro (1 intervención) el 02/08/2011 03:29:47
Voy a tratar de explicar lo mejor que puedo mi consulta:

Este programa aparece en un libro de Matematicas del juego.

El juego en cuestion es el BLACKJACK.

Lo que el programa pretende es calcular la probabilidad de todos los posibles resultados que puede obtener el repartidor (crupie) mostrando inicialmente una carta:


A= numero de cartas en el mazo
T = J = carta inicial que muestra.
W [ I ] = cantidad de cartas de denominacion " I " ( 4 As; 4 2s; 4 3's;.......;16 10's)
K = 0
B = 1
F [ X ] = probabilidad de obtener un total de X

10 FOR I = 1 TO 10
20 IF W(I) = 0 THEN 270
30 B = B*W(I)/A
40 W(I) = W(I)-1
50 T = T+I
60 IF T>16 THEN 130
70 IF (T-11)*(T-7)>0 THEN 170
80 IF (I-1)*(J-1) = 0 THEN 150
90 FOR L =1 TO K
100 IF A(L) = 1 THEN 150
110 NEXT L
120 GO TO 170
130 F(T) = F(T)+B
140 GO TO 240
150 F(T+10)=F(T+10)+B
160 GO TO 240
170A = A-1
180 K = K+1
190 A(K) = I
200 GO SUB 10
210 I = A(K)
220 K = K-1
230 A = A+1
240 W(I) = W(I)+1
250 T= T-I
260 B = B*A/W(I)
270 NEXT I
280 RETURN



El programa lo he pasado a XBasic.

Con pocas cartas en el mazo da algunos resultados bien, pero

Con muchas cartas no arroja resultados razonables, y no pude darme cuenta porque.

cualquier ayuda biene bien .
saludos.
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