}

Si vous aimez la soupe de poisson devine avec ce qui est fait

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

Vous connaîtrez déjà les jeux qui apparaissent dans des magazines, des journaux, etc. (dámaros, mots croisés, soupes de lettres, etc.) ). ). Ce programme que nous présentons ci-dessous forme des soupes de lettres. La soupe de lettres, comme son nom l'indique, est un mélange de lettres et le jeu consiste à trouver dans ce mélange des mots liés à un thème.

Les mots peuvent être de gauche à droite, de droite à gauche, en haut, en bas, en diagonale. etc.

Nous avons choisi un thème et avons choisi les noms des poissons. Si vous voulez entrer d'autres mots, il suffit de changer les données.

Parties du programme:

  • D'un ensemble de mots (dans ce cas 30) 10 sont pris aléatoirement (120)
  • Les mots sélectionnés sont stockés dans SOUPE$ (130-300)
  • Une fois les mots placés dans la soupe, les positions libres seront remplies en prenant les lettres au hasard (310-320)
  • La soupe de lettres est affichée à l'écran, combinant les mots qui peuvent être trouvés avec d'autres (330-350)
  • Les réponses d'utilisation sont recueillies jusqu'à ce que cela invente les 10 mots ou appuyez sur la touche F10 (36)-590)
  • On vérifie si le mot introduit se trouve dans la soupe de lettres (440-500).
  • Si le mot est en soupe, il sera mis en évidence dans une couleur plus intense. (510-590).
  • Lorsque vous quittez le programme en appuyant sur F10, les mots manquants seront mis en évidence en rouge.

Entrez les mots sélectionnés dans SOUPE$

Cela peut être la partie la plus importante du programme, car s'il est facile de le faire à la main, lors de la commande de l'ordinateur, nous devons définir les conditions que nous considérons inconsciemment.

En plus de sélectionner aléatoirement les mots, il prend aléatoirement sa position dans la soupe de lettres. Quand on dit position, la ligne initiale et la colonne et la direction du mot (de gauche à droite, diagonale vers le haut, etc.) on veut dire.

Les conditions requises pour placer un mot dans l'une des positions sélectionnées sont :

  • Si la position initiale, c'est-à-dire si la SOUPE$ (LER,ZUT) est libre ou occupée, la lettre qu'elle contient correspond à la première lettre du mot que nous voulons placer (150).
  • Avoir autant de lignes et de colonnes que les lettres du mot dans le sens de l'étude (180).
  • Que la position correspondant à chaque lettre du mot soit libre ou que l'on veuille placer la lettre existante (190-210).

Observations:

  • Avant de jeter une position, toutes les adresses seront testées. S'il n'est pas possible de placer le mot dans une ligne, colonne et sens concret, en gardant la ligne et la colonne, les autres directions seront testées.
  • L'ensemble des mots doit être de 30.
POPE DE LETTRES 10 REM 20 DIM$(15,19),HITZA$(10,5),NORAN(8,2) 30 RANDOMIZE TIMER:CLS:KEY OFF:COLOR 2:LOCATE 1,35:PRINT "POPE DE LETTRES": Mot 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 FOR I=1 TO 8:320 Découvrez-les!!!" 350 RESTORE 860:COULEUR 3:FOR I=6 TO 20:READ A$:LOCATE I,44:PRINT A$:NEXT I: Fin du programme 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 Mat Mat 1$ dans THE,PTE$ Z=VAL(HITZA$(I,4))+(J-1)*NORAN(VAL(MOT$(I,5),2) 540 LOCATE L+4,Z*2+1:PRINT MID 555555 ": LOCATE 23,5:PRINT "Réessayez." 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 "Très bien! Nouvelles Vous avez réussi tous les mots de cette soupe de lettres. "LOCATE 25,20:PRINT "Voulez-vous faire un autre (S/N)?" 610 TE$=INKEY$:WHILE TE$ "":TE$=INKEY$:WEND: WHILE TE$ "B" AND TE$ "b" AND TE$ "E" AND TE$ "e":TE$=INKEY$:WEND 620 IF TE$="B" OR TE$="b" THEN 30 630 Nouvelles Bientôt 12,3. 640 END 650 ACTION FIN REM 660 COULEUR 3:LOCATE 22,1:PRINT SPC(78):LOCATE 25,1:PRINT SPC(78):LOCATE 22,5: PRINT "Voici les mots qui vous manquaient pour réussir!!!" 670*FOR I=1 TO 10 680 IF HITZA$(I,2)="1" THEN 730 690 COULEUR 4:FOR J=1 TO LEN(HITZA$(I,1) 700 L=VAL(MOT$(I,A)

Gai honi buruzko eduki gehiago

Elhuyarrek garatutako teknologia