Aprendendo bertsos

O programa céntrase en dúas matrices. a $ () e z $ (). Saberás que hai que dimensionar as matrices.

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!

Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila