Aprendendo bertsos

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

• Programazioa

O programa céntrase en dúas matrices. a $ () e z $ ()

a $ ( ) recolle o texto orixinal.
z $ ( ) o outro texto que se introduce paira a invitación.

Saberás que hai que dimensionar as matrices. Aquí utilicei 2 dimensións en 30 e 40 liñas. O número 15 que aparece nel limita o número de caracteres de cada variable. Dito doutro xeito, as variables recibirán como máximo 15 caracteres das palabras, polo que si son máis longas gardaranse na memoria recortadas. (podes cambiar o 15 por outro número).

Esta vez quero explicar un programa paira traballar as matrices.

O programa consiste en pedir primeiro o texto, gardalo na memoria e despois convidalo co orixinal ao introducilo polo teclado, indicando os erros.

O programa consta de tres partes principais:

A primeira de 80 a 170. É paira gardar o texto orixinal, si pulsa sobre o space non aceptará este (100 liñas de instrución). Se ademais queres pasar da liña que estás a escribir á seguinte, anula as variables que sobrarían. (120-140).

Segunda (1000-1050). Trátase de mostrar correctamente o texto orixinal na pantalla una vez gardado, sobre todo a liña de instrución 1030. Isto contabiliza as letras da variable que debe escribir e limítao a medidas reais, xa que debemos lembrar que cada variable ten 15 caracteres e si introdúcese a palabra "aquel a" variable "aquel"

Terceiro 200-360. Una vez borrado introduce a mesma palabra por palabra, se o introduces erroneamente, ao convidarlle ao texto Pantalla co orixinal, indicarallo solicitando que volva introducir a palabra. A liña 250 é moi importante para que o programa corra ben. Isto fai que si hai algunha variable anulada na matriz orixinal, tamén anula a correspondente a z $ ( ).

Exemplo:

Una vez tecleado o programa, pulsando sobre run, solicitaránselle as medidas do texto. É dicir:

A continuación introduciremos o texto orixinal, por exemplo:

O computador xa aprendeu o bertso e agora é a nosa quenda.

A pantalla bórrase e queda á espera do verso que introduciremos nós, se o texto que introducimos é diferente ao orixinal, indicaranos que hai erro e pediranos que o introduzamos correctamente.

1 REM APRENDENDO VERSOS. J.M. ITURRIOTZ m 1986 5 CLS 10 I NPUT "Cantas liñas queres escribir? "; P 20 INPUT "Cantas palabras por liña? (máximo)"; 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 :LOTO 130 150 NEXT n 160 LETx=Ou 170 NEXT 1 200 PRINT #0; "Escribe BEN se aprendiches";PAUSE 0: CLS: REM. "CUESTIONARIO" 210 LETx=Ou 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 "palabra"; 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) e FLET to$ de THB$ PRINT #0; b$; "INCORRECTO! ": 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 de escritura de verso 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 bota o verso!