aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
Task/Dice-game-probabilities/BASIC256/dice-game-probabilities.basic Normal file
View file

@ -0,0 +1,36 @@
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