}

Si t'agrada la sopa de peix endevina amb què està fet

1988/12/01 Arrojeria, Eustakio - Elhuyar Zientziaren Komunikazioa | Lizaso, Pili - Informatika SailaElhuyar Fundazioa Iturria: Elhuyar aldizkaria

Ja coneixeràs els jocs que apareixen en revistes, periòdics, etc. (dámaros, mots encreuats, sopes de lletres, etc.). ). Aquest programa que presentem a continuació forma sopes de lletres. La sopa de lletres, com el seu nom indica, és una mescla de lletres i el joc consisteix a trobar en aquesta mescla paraules relacionades amb un tema.

Les paraules poden estar d'esquerra a dreta, de dreta a esquerra, a dalt, a baix, diagonalment. etc.

Nosaltres hem triat un tema i hem triat els noms dels peixos. Si tu vols introduir altres paraules, només has de canviar de dades.

Parts del programa:

  • D'un conjunt de paraules (en aquest cas 30) es prenen 10 aleatòriament (120)
  • Les paraules seleccionades s'emmagatzemen en SOPA$ (130-300)
  • Una vegada col·locades les paraules en la sopa, s'emplenaran les posicions lliures, prenent les lletres aleatòriament (310-320)
  • La sopa de lletres es presenta en pantalla, combinant les paraules que es poden trobar en ella amb altres (330-350)
  • Es recullen les respostes de l'ús fins que això inventa les 10 paraules o prem la tecla F10 (36)-590)
  • Es comprova si la paraula introduïda es troba en la sopa de lletres (440-500).
  • Si la paraula està en sopa, es destacarà en un color més intens. (510-590).
  • En sortir del programa prement F10 es ressaltaran en vermell les paraules que faltaven per a trobar-les.

Introduir les paraules seleccionades en SOPA$

Aquesta pot ser la part més important del programa, ja que si bé és fàcil fer-ho a mà, a l'hora d'ordenar l'ordinador, hem de definir les condicions que nosaltres considerem inconscientment.

A més de seleccionar aleatòriament les paraules, es pren aleatòriament la seva posició en la sopa de lletres. Quan es diu posició, la línia inicial i la columna i la direcció de la paraula (d'esquerra a dreta, diagonal cap amunt, etc.) es vol dir.

Els requisits per a poder situar una paraula en una de les posicions seleccionades són:

  • Si la posició inicial, és a dir, si la SOPA$ (LER,ZUT) està lliure o està ocupada, la lletra que hi ha en ella es correspon amb la primera lletra de la paraula que volem col·locar (150).
  • Tenir tantes files i columnes com a lletres de la paraula en el sentit d'estudi (180).
  • Que la posició corresponent a cada lletra de la paraula estigui lliure o es vulgui situar la lletra existent (190-210).

Observacions:

  • Abans de descartar una posició es provaran totes les direccions. Si no és possible situar la paraula en una línia, columna i sentit concret, mantenint la línia i la columna es provaran les altres direccions.
  • El conjunt de paraules ha de ser de 30.
SOPA DE LLETRES 10 REM 20 DIM$(15,19),HITZA$(10,5),NORAN(8,2) 30 RANDOMIZE TIMER:CLS:KEY OFF:COLOR 2:LOCATE 1,35:PRINT "SOPA DE LLETRES": Paraula LOCR$ 1(CHINT$ 1)(ZOPA$ 1(I,J) PRINT(O P A P R E S T Z N":LOCATE 13,13:PRINT "A R I Z" 100 RESTORE 850 110 FOR I=1 TO 8:READ A,B:An PARAULA RUT=1$ DE SOPA$(I,J)=CHR$(A) 320 NEXT J:NEXT I 330 COLOR 2:FOR I=1 TO 15:FOR J=1 TO 19:LOCATE I+4,J*2+1:LOCNPER:44 nomenis Sopa de lletres "PRINT". Descobreix-les!!!" 350 RESTORE 860:COLOR 3:FOR I=6 TO 20:READ A$:LOCATE I,44:PRINT A$:NEXT I: Fi del programa FOR I=6 TO 20:READ A$:LOCATE I,63:PRINT A$:NEXT I 360 KEY 10,":KEY(10) ON:ON KEY(10) GOSUB 650 370 J=1:FMAT="Mat Termes: 1$ en THE,PTE$ Z=VAL(HITZA$(I,4))+(J-1)*NORAN(VAL(PARAULA$(I,5),2) 540 LOCATE L+4,Z*2+1:PRINT MID$(PARAULA$(I,Vº50,V51,V55551,55551,5555555551,551,5551,551,55551,551,5555551,551,555551,551,551,5S51,551,1,1,1,5 PRINT "La paraula introduïda no és una de les paraules introduïdes en la sopa de lletres. ": LOCATE 23,5:PRINT "Torna a intentar-ho." 570 GOSUB 770 580 LOCATE 22,1:PRINT SPC(78):LOCATE 23,1:PRINT SPC(78) 590 GOTO 370 600 LOCATE 22,1:PRINT SPC(78):LOCATE 25,1:PRINT SPC(78):22,5 LOCATE: PRINT "Molt bé! Notícies Has encertat totes les paraules d'aquesta sopa de lletres. ": LOCATE 25,20:PRINT "Vols fer un altre (S/N)?" 610 ET$=INKEY$:WHILE ET$ "":ET$=INKEY$:WEND: WHILE ET$ "B" AND ET$ "b" AND ET$ "E AND" ET$ "e :ET$=INKEY$:WEND"620 IF ET$="B" OR ET$="b" THEN 30 630 CLATE:12,3 Notícies Fins aviat." 640 END 650 ACCIÓ FI REM 660 COLOR 3:LOCATE 22,1:PRINT SPC(78):LOCATE 25,1:PRINT SPC(78):LOCATE 22,5: PRINT "Aquí tens les paraules que et faltaven per a encertar!!!" 670 FOR I=1 TO 10 680 IF HITZA$(I,2)="1" THEN 730 690 COLOR 4:FOR J=1 TO LEN(HITZA$(I,1) 700 L=VAL(PARAULA$(I,A) Z=VAL(PARAULA$(I,4)+(J-1)*NORAN(VAL(PARAULA$(I,5),2) 710 LOCATE L+4,Z*2+1:PRINT MID$(I,S25,71) TONYINA DEL NORD
eu es fr en ca gl

Gai honi buruzko eduki gehiago

Elhuyarrek garatutako teknologia

Batuketak
2018-10-29Zientzia
Ordua
1991-1-1Zientzia