Apagada docs

Aprendiendo a programar el pasado

Herramientas de usuario

Herramientas del sitio


en:basic:caja_de_alubias
Tarro de Alubias

How many beans are there in the jar? This is a Chipmunk Basic where you have to guess it. Game captions and variables are in Spanish.

10 rem Caja de alubias
20 randomize (timer)
30 alubias = rnd(1000)
40 turno = 0
50 print "¿Cuántas alubias hay en la caja (0-1000)";
60 input n
70 if alubias = n then print "Lo acertaste!!" : goto 170
80 print "No, hay ";
90 if abs(alubias-n) > 200 then print "muuchas ";
100 if abs(alubias-n) < 10 then print "unas poquitas ";
110 if alubias > n then print "más." :  else print "menos."
120 turno = turno+1
130 if turno < 9 then print "Te quedan ";10-turno;"intentos."
140 if turno = 9 then print "Este es tu último intento."
150 if turno >= 10 then print "Lo siento, no te quedan más intentos..." : goto 210
160 goto 50
170 print "BIEN";
180 for f = 1 to 25 : print "!"; : next
190 print
200 goto 210
210 print "¿Otra partida (S/N)"; : input r$
220 if r$ = "S" or r$ = "s" then goto 30
230 if r$ = "N" or r$ = "n" then end
240 goto 210
700 rem Ahora, el ordenador lo piensa
705 turnos = 0
710 print "Piensa un número del 1 al 1000. te aseguro que lo acertaré."
715 input "(Pulsa ENTER)";x$
720 max = 1000 : min = 0 : n = min+(max-min)/2
730 print "¿Es ";n;"?"
740 input n$
750 if n$ = "S" or n$ = "s" then 1000
760 if n$ = "N" or n$ = "n" then 790
770 print "Por el momento, dime sólo si he acertado (S) o no (N)."
780 goto 730
790 print "Bien; no lo he acertado. Dime si me he quedado (C)orto o me he (P)asado (C/P)"
800 input n$
810 if n$ = "C" or n$ = "c" then min = n+1 : goto 860
820 if n$ = "P" or n$ = "p" then max = n-1 : goto 860
850 print "Por favor, dime si me he quedado corto (C) o si me he pasado (P)." : goto 800
860 if max < min then print "¿Cómo puede ser menor que ";max;" pero mayor que ";min;"?"
870 if max = min then print "Ya lo tengo. Sólo puede ser ";max;"." : goto 900
880 n = min+int((max-min)/2)
890 turnos = turnos+1
900 if turnos = 9 then print "Bueno, la última vez..."
910 if turnos >= 10 then print "No me puedo creer que no lo haya acertado. ¿Qué número era?" : input n
920 if turnos < 10 then goto 730
930 print "¿Me dejas probar de nuevo?"; : input n$
940 if n$ = "S" or n$ = "s" then goto 930
950 if n$ = "N" or n$ = "n" then end
960 goto 930
1000 print "Te dije que lo acertaría!!"
1005 print "He tardado ";turnos;" turnos en acertar."
1010 print "¿Te atreves a probar de nuevo?"
1020 input n$
1030 if n$ = "S" or n$ = "s" then goto 700
1040 if n$ = "N" or n$ = "n" then end
1050 goto 1010
Este sitio web utiliza cookies. Al utilizar el sitio web, usted acepta almacenar cookies en su computadora. También reconoce que ha leído y entendido nuestra Política de privacidad. Si no está de acuerdo abandone el sitio web.Más información
en/basic/caja_de_alubias.txt · Última modificación: 2013/01/09 14:09 por nepenthes