Teño un número, cal é?
1988/08/01 Arrojeria, Eustakio - Elhuyar Zientziaren Komunikazioa | Lizaso, Pili - Informatika SailaElhuyar Fundazioa Iturria: Elhuyar aldizkaria
Queremos seguir xogando. Moitas veces dise que una das mellores maneiras de aprender as cousas e traballar a capacidade da persoa é o ambiente de xogo. Á hora de presentar este programa, queremos ofrecer a oportunidade de xogar e, ao mesmo tempo, ofrecer una forma de traballar a lóxica e a capacidade de sacar conclusións nun ambiente lúdico.
Descrición do xogo
- O xogo consiste en idear un número de 5 díxitos creado aleatoriamente polo programa.
- Terás 28 opcións paira acertar o número aleatorio.
Cada vez que introduzas un número, ademais de acertar, proporcionaráseche o número de díxitos que están no lugar adecuado.
O número aleatorio creado polo programa non incluirá díxitos repetidos.
Por exemplo:
- número creado polo programa: 43756
- no lugar adecuado: 1 (7)
introducida por vostede: 35789
acertos: 3 (3,5,7)
10 REM *** SI TEÑO UN NÚMERO É: ***
20 COR 2 : CLS : KEY OFF : DIM JOKO(5) : DIM DIG(10)
30 LOCATE 2,31:PRINT "EXPLICACIÓN XOGO":LOCATE 3,31:
PRINT "=================="
40 LOCATE 5,9:PRINT "1.- A esencia deste xogo é a aleatoria dos
computadores"; "5 dei-":LOCATE 6,13:PRINT "é a invención dun número de pinga."
50 LOCATE 8,9:PRINT "2.- Inventar un número cada vez que o introduzas"; "do díxito tó-":LOCATE 9,13
:PRINT "puro e adiviñado ademais de lugar e"; "daráselle o número dos que
están no gato":LOCATE 10,13:PRINT "vaiche".
60 LOCATE 12,9:PRINT "3.- No número aleatorio creado polo
computador "; "non hai repetitiva-":LOCATE 13,13:PRINT "."
70 LOCATE 15,9:PRINT "4.- 28 opcións poderás elixir o número aleatorio
as"; "maquetar iza-":LOCATE 16,13:PRINT "che."
80 LOCATE 18,13:PRINT "Exemplo:":LOCATE 18,25:PRINT "no computador";
"número = ";:COR 4:PRINT "43756":COR 2:LOCATE 19,25:
PRINT "introducida por ti = ";:COR 4:PRINT "35789"
90 LOCATE 21,25:PRINT "inventados = 3 (3,5,7)":LOCATE 22,25: PRINT=
1 (7)"
100 GOSUB 570 : REM CONTINUAR
110 CLS : COR 2
120
FOR I=1 TO 10
: DIG(I)=I-1 :
NEXT I : NEX=130 NIC=0 ; IDEM=
140 ":LOCATE 2,27:
PRINT "==========================":LOCATE 4,13:PRINT "INVENTADOS ONDE";
" ADECUADO":LOCATE 4,52:PRINT "INVENTADOS NO LUGAR ADECUADO"
220 LOCATE 5,13: PRINT "-------------- -----------":LOCATE 5,52:
PRINT "-----------------------"
230 XX=4 :
YY=7 240 REM REFRÁN
250 REM
260 ASMA=0 : EGOKI=0
270
LOCATE YY,XX:PRINT"------ 1 Nº DIGINT 23,15" ";:
COR 4:INPUT "",IMP$
290 IF LEN(IMP$) 5 THEN LOCATE 23,15:PRINT SPC(50):COR 2:
GOTO 280
300 CONT = 1
310 LOCATE YY,XX:IMP$
320 IF VAL(IMP$)=IMP THEN IGUAL$="E" : GOTO 410
330 FOR
I=1 TO=5 MIF ACERTADO=1)
GOTO 380
350 FOR=1 TO 5
360 IF VAL(MID$(IMP$,I,1)=JOKO(J) THEN
ASMA=ASMA+1 370 NEXT J
380 NEXT I
390 COR 4:LOCATE YY3:
LOCATE YY,XX+27:PRINT ADECUADO:COR 2
400 YY=YY+1
410 IF$
= "E" OR YY=21 THEN
GOTO
440
420
LOCATE 23,15:PRINT SPC(64) 423,30
IF Noticias ";:COR 3:CONS-PRINT;: Acertaches en COR
2:PRINT ". AGUR!!! ": GOTO 520
510 LOCATE 23,5:PRINT "Non acertaches. Número ";:COR 3:NÚMERO PRINT;:
COR 2:PRINT ". AGUR!!!"
520 GOSUB 570: EXERCENDO
530 RETURN
540 REM AMAIA **** PAIRA SEGUIR REM, CAL É O meu NÚMERO?
** 550 REM
560 REM
570 REM
580 COR 3 : LOCATE 25,30 : PRINT "Pulse J paira continuar"
590 CHE$=INKEY$
:
WHILE CHE$ "" CHE=INKEY : FIND
600$ MES
Estrutura do programa
- Na liña 20, se dimensionan as matrices.
- Nas liñas 570-630, ata que o usuario pulse a tecla "j" detense o programa.
Nas liñas 30-90, onde se describe o xogo.
Liña 120, onde se almacenan os díxitos que compoñen os números. Nas
liñas 130-200, faise a pregunta, infórmase os acertos e dos díxitos colocados no lugar adecuado e invéntase o número ou finaliza as posibilidades.
Observacións
Nesta ocasión o número aleatorio que xera o programa debe cumprir dous requisitos: por unha banda, ten que ter 5 díxitos e por outro, todos os díxitos deben ser diferentes.
Elhuyar paira cumprir estas condicións. N.T. No número 14 utilizamos o mesmo sistema que utilizamos paira ordenar aos ciclistas (120-200).
