36 lines
1,005 B
Text
36 lines
1,005 B
Text
dado1 = 9: lado1 = 4
|
|
dado2 = 6: lado2 = 6
|
|
total1 = 0: total2 = 0
|
|
|
|
for i = 0 to 1
|
|
for cont = 1 to 100000
|
|
jugador1 = lanzamiento(dado1, lado1)
|
|
jugador2 = lanzamiento(dado2, lado2)
|
|
if jugador1 > jugador2 then
|
|
total1 = total1 + 1
|
|
else
|
|
if jugador1 <> jugador2 then total2 = total2 + 1
|
|
endif
|
|
next cont
|
|
|
|
print "Lanzado el dado "; (cont - 1); " veces"
|
|
print "jugador1 con "; dado1; " dados de "; lado1; " lados"
|
|
print "jugador2 con "; dado2; " dados de "; lado2; " lados"
|
|
print "Total victorias jugador1 = "; total1; " => "; left(string(total2 / total1), 9)
|
|
print "Total victorias jugador2 = "; total2
|
|
print (cont - 1) - (total1 + total2); " empates" + chr(10)
|
|
|
|
dado1 = 5: lado1 = 10
|
|
dado2 = 6: lado2 = 7
|
|
total1 = 0: total2 = 0
|
|
next i
|
|
end
|
|
|
|
function lanzamiento(dado, lado)
|
|
total = 0
|
|
|
|
for lanza = 1 to dado
|
|
total = total + int(rand * lado) + 1
|
|
next lanza
|
|
return total
|
|
end function
|