Penney's game: Difference between revisions
Penney's game en BASIC256
(Penney's game en FreeBASIC) |
(Penney's game en BASIC256) |
||
Line 112:
return
;-----------------------------------------------</lang>
=={{header|BASIC}}==
==={{header|BASIC256}}===
{{trans|FreeBASIC}}
<lang BASIC256>
global jugador, computador, secuencia
jugador = "" : computador = ""
function SecuenciaJugador(secuencia)
do
valido = TRUE
print chr(10) + "Ingresa una secuencia de 3 opciones, cada una de ellas H o T:";
input " > ", secuencia
secuencia = upper(secuencia)
if length(secuencia) <> 3 then valido = FALSE
if secuencia = computador then print "Pero no la misma que yo..."+ chr(10): valido = FALSE
if valido then
for i = 1 to 3
opcion = mid(secuencia, i, 1)
if opcion <> "H" and opcion <> "T" then valido = FALSE
next i
end if
until valido
SecuenciaJugador = secuencia
end function
function LanzamientoCPU()
secuencia = ""
computador =""
for i = 1 to 3
opcion = rand
if opcion < .5 then secuencia += "H" else secuencia += "T"
next i
LanzamientoCPU = secuencia
end function
do
cls
print "*** Penney's Game ***" + chr(10)
if rand < .5 then
print "Empiezas... ";
jugador = SecuenciaJugador(jugador)
computador = LanzamientoCPU()
if jugador = computador then computador = LanzamientoCPU()
print "Yo gano al ver "; computador; " por primera vez en la lista de lanzamientos..."
else
computador = LanzamientoCPU()
print "Elijo primero y gano al ver "; computador; " por primera vez en la lista de lanzamientos..."
jugador = SecuenciaJugador(jugador)
end if
print: print "Lanzamientos..."
secuencia = ""
winner = FALSE
do
pause 1
if rand <= .5 then
secuencia += "H"
print "H ";
else
print "T ";
secuencia += "T"
end if
if right(secuencia, 3) = jugador then print: print "¡Felicidades! ¡Ganaste!": winner = TRUE
if right(secuencia, 3) = computador then print: print "¡Yo gano!": winner = TRUE
until winner
do
valido = FALSE
print
input "¿Otra partida? (S/N) ", otra
if instr("SsNn", otra) then valido = TRUE
until valido
until upper(otra) = "N"
print "¡Gracias por jugar!"
end
</lang>
==={{header|Sinclair ZX81 BASIC}}===
Works with 1k of RAM.
| |||