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

Arrojeria, Eustakio

Elhuyar Zientziaren Komunikazioa

Lizaso, Pili

Informatika Saila

Elhuyar Fundazioa

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
Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila