Apprendre les bertsos

Le programme se concentre sur deux tableaux. à $ () et z $ (). Vous saurez qu'il faut dimensionner les matrices.

Le programme se concentre sur deux tableaux. à $ () et z $ ()

a $ ( ) recueille le texte original.
z $ ( ) l'autre texte saisi pour l'invitation.

Vous saurez qu'il faut dimensionner les matrices. Ici j'ai utilisé 2 dimensions sur 30 et 40 lignes. Le nombre 15 qui s'affiche limite le nombre de caractères de chaque variable. Autrement dit, les variables recevront au maximum 15 caractères des mots, donc si elles sont plus longues, elles seront enregistrées dans la mémoire découpée. (vous pouvez changer 15 pour un autre numéro).

Cette fois, je veux expliquer un programme pour travailler les tableaux.

Le programme consiste à demander d'abord le texte, l'enregistrer en mémoire, puis l'inviter avec l'original en l'entrant par le clavier, en indiquant les erreurs.

Le programme se compose de trois parties principales:

La première de 80 à 170. C'est pour enregistrer le texte original, si vous appuyez sur l'espace vous n'accepterez pas celui-ci (100 lignes d'instruction). Si vous voulez aussi passer de la ligne que vous écrivez à la suivante, annulez les variables qui resteront. (120-140).

Deuxième (1000-1050). Il s'agit d'afficher correctement le texte original sur l'écran une fois enregistré, en particulier la ligne d'instruction 1030. Ceci comptabilise les lettres de la variable à écrire et le limite aux mesures réelles, puisque nous devons nous rappeler que chaque variable a 15 caractères et si on introduit le mot "celui-là" la variable "celui-là"

Troisième 200-360. Une fois supprimé, entrez le même mot par mot, si vous l'entrez par erreur, en l'invitant au texte Écran avec l'original, il vous l'indiquera en demandant de réintroduire le mot. La ligne 250 est très importante pour que le programme fonctionne bien. Cela fait que s'il y a une variable annulée dans la matrice d'origine, elle annule aussi la variable z $ ( ).

Exemple :

Une fois le programme tapé, en appuyant sur run, les mesures du texte vous seront demandées. C'est-à-dire :

Nous introduirons ensuite le texte original, par exemple:

L'ordinateur a déjà appris le bertso et maintenant c'est notre tour.

L'écran est effacé et attend le verset que nous introduirons, si le texte que nous introduisons est différent de l'original, il nous indiquera qu'il y a erreur et nous demandera de l'introduire correctement.

1 REM APPRENANT DES VERSETS. J.M. ITURRIOTZ m 1986
5 CLS
10 I NPUT "Combien de lignes voulez-vous écrire? "; P
20 INPUT "Combien de mots par ligne? 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/let) LET à$ (I, n) = CHR$ 32 :LOTUS 130
150 NEXT n
160 LETx=O
170 NEXT 1
200 PRINT #0; "Écrivez BIEN si vous avez appris";PAUSE 0: CLS: REM. "QUESTIONNAIRE"
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 "mot"; 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) à$ (1, n) et FLET to$ de THB$ ": Pause 0: GOTO 260
310 IF z$1I, n) à$ (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 "Sous-routine d'écriture de vers sur écran" 101030LET

f = 15 1020LET
c = 1 1030IF
CODE b$ (f TO) THC INT 32 LET LET b$ b$ (c TO fl: RETURN 1040LET f = f - 1
1050GOT0 1030

Jetez le verset !

Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila