Aprenent bertsos

1986/04/01 Iturriotz, J.M. Iturria: Elhuyar aldizkaria

• Programazioa

El programa se centra en dues matrius. a $ () i z $ ()

a $ ( ) recull el text original.
z $ ( ) l'altre text que s'introdueix per a la invitació.

Sabràs que cal dimensionar les matrius. Aquí he utilitzat 2 dimensions en 30 i 40 línies. El número 15 que apareix en ell limita el nombre de caràcters de cada variable. Dit d'una altra manera, les variables rebran com a màxim 15 caràcters de les paraules, per la qual cosa si són més llargues es guardaran en la memòria retallades. (pots canviar el 15 per un altre número).

Aquesta vegada vull explicar un programa per a treballar les matrius.

El programa consisteix a demanar primer el text, guardar-lo en la memòria i després convidar-lo amb l'original en introduir-lo pel teclat, indicant els errors.

El programa consta de tres parts principals:

La primera de 80 a 170. És per a guardar el text original, si prem sobre l'space no acceptarà aquest (100 línies d'instrucció). Si a més vols passar de la línia que estàs escrivint a la següent, anul·la les variables que sobrarien. (120-140).

Segona (1000-1050). Es tracta de mostrar correctament el text original en la pantalla una vegada guardat, sobretot la línia d'instrucció 1030. Això comptabilitza les lletres de la variable que ha d'escriure i ho limita a mesures reals, ja que hem de recordar que cada variable té 15 caràcters i si s'introdueix la paraula "aquell" la variable "aquell"

Tercer 200-360. Una vegada esborrat introdueix la mateixa paraula per paraula, si ho introdueixes erròniament, en convidar-li al text Pantalla amb l'original, li ho indicarà sol·licitant que torni a introduir la paraula. La línia 250 és molt important perquè el programa corri bé. Això fa que si hi ha alguna variable anul·lada en la matriu original, també anul·la la corresponent a z $ ( ).

Exemple:

Una vegada teclejat el programa, prement sobre run, se li sol·licitaran les mesures del text. És a dir:

A continuació introduirem el text original, per exemple:

L'ordinador ja ha après el bertso i ara és el nostre torn.

La pantalla s'esborra i queda a l'espera del vers que introduirem nosaltres, si el text que introduïm és diferent a l'original, ens indicarà que hi ha error i ens demanarà que ho introduïm correctament.

1 REM APRENENT VERSOS. J.M. ITURRIOTZ m 1986 5 CLS 10 I NPUT "Quantes línies vols escriure? "; P 20 INPUT "Quantes paraules per línia? (màxim)"; h 30 DIM$ (p, h, 15) 40 DIM z$ (p, h, 15) 50 LET x = 0 60 FOR 1 = 1 TO p 70 FOR n = 1 TO h 80 I NPUT "; a$ (1, n) 90 LET b = a $ (l,n) 100 GOT (b/e )"; t$ 130 IF n = h THEN GOTO 150 140 IF n h AND CODE t$ = 69 OR CODE t$ = 101 THE LET n = n + 1: LET a$ (I, n) = CHR$ 32 :LOTUS 130 150 NEXT n 160 LETx=O 170 NEXT 1 200 PRINT #0; "Escriu BÉ si has après";PAUSE 0: CLS: REM. "QÜESTIONARI" 210 LETx=O 220 FOR I = 1 TO p 230 FOR n = 1 TO n 240 IF n h THEN GOTO 340 250 LET b = a$ (l, n): IFG CODE b$ (1 TO 1) = 32 THEN LET n = n + 1: GOTO 240 260 I NPUT "paraula"; z$ (1, n) 270 LET f = 15 280 LET b$ = z$11, n) 290 IF CODE b$ (1 TO 1) = 32 THEN GOTO 260 300 IF (1, n) a$ (1, n) i FLET to$ de THB$ PRINT #0; b$; "INCORRECTE! ": PAUSE 0: GOTO 260 310 IF z$1I, n) a$ (1, n) THEN LET f = f - 1: GOTO 300 320 GOSUB 1000 330 NEXT n 340 LET x = 0 350 NEXT I 360 GOTO 200 1000 REM "Subrutina d'escriptura de vers en pantalla" 1010LET f = 15 1020LET c = 1 1030IF CODE b$ (f TO) THC INT 32 TO INT LET x = x + 1 + LEN b$ (c TO f): LET b$ b$ (c TO fl: RETURN 1040LET f = f - 1 1050GOT0 1030 tira el vers!