If you like fish soup guess what it's done with

Arrojeria, Eustakio

Elhuyar Zientziaren Komunikazioa

Lizaso, Pili

Informatika Saila

Elhuyar Fundazioa

You will already know the games that appear in magazines, newspapers, etc. (give us, crossword puzzles, word soups, etc. ). ). This program we present below forms word soups. The word soup, as the name suggests, is a mixture of letters and the game consists of finding in that mix words related to a theme.

Words can be left to right, right to left, up, down, diagonally. etc.

We have chosen a theme and have chosen the names of the fish. If you want to enter other words, you just need to change data.

Parts of the program:

  • From a set of words (in this case 30) 10 are taken randomly (120)
  • Selected words are stored in SOPA$ (130-300)
  • Once the words are placed in the soup, the free positions will be filled, taking the letters randomly (310-320)
  • The word soup is presented on screen, combining the words that can be found in it with others (330-350)
  • Use responses are collected until this invents 10 words or press F10 (36)-590)
  • It is checked if the word entered is in the word soup (440-500).
  • If the word is in soup, it will stand out in a more intense color. (510-590).
  • When you exit the program by pressing F10, the missing words will be highlighted in red.

Enter the selected words in SOPA$

This can be the most important part of the program, since while it is easy to do it by hand, when ordering the computer, we must define the conditions that we consider unconsciously.

In addition to randomly selecting words, their position is taken randomly in the letter soup. When you say position, the starting line and the column and direction of the word (from left to right, diagonal up, etc.) is meant to say.

The requirements for placing a word in one of the selected positions are:

  • If the initial position, that is, if the SOPA$ (LER,ZUT) is free or occupied, the letter in it corresponds to the first letter of the word we want to place (150).
  • Have as many rows and columns as word letters in the sense of study (180).
  • That the position corresponding to each letter of the word is free or you want to locate the existing letter (190-210).

Observations:

  • All directions will be tested before discarding a position. If it is not possible to locate the word in a specific line, column and sense, keeping the line and column will test the other addresses.
  • The set of words must be 30.
10 REM 20 DIM$(15,19),HITZA$(10,5),NORAN(8,2) 30 RANDOMIZE TIMER:CLS:KEY OFF:COLOR 2:LOCATE 1,35:PRINT "Letter soup": For example, 1 word for word 1(CHINT$ 1) Find out!!!" 350 RESTORE 860:COLOR 3:FOR I=6 TO 20:READ A$:LOCATE I,44:PRINT A$:NEXT I: End of the program 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 Introduction of the word 55V55V55V55V55V55V55V55V55V55V55V55V55V55V55A ": LOCATE 23,5:PRINT "Try again." 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 "Very good! News You've made all the words of this word soup right. ": LOCATE 25,20:PRINT "Do you want to do another (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 CLATE:soon. 640 END 650 END ACTION REM 660 COLOR 3:LOCATE 22.1:PRINT SPC(78):LOCATE 25.1:PRINT SPC(78):LOCATE 22.5: PRINT "Here are the words that were missing to get right!!!" For example, I=1 TO 10 680 IF HITZA$(I,2)="1" THEN 730 690 COLOR 4:FOR J=1 TO LEN(HITZA$(I,I) 700 L=VAL(Word)
Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila