O obxectivo deste programa é traballar a ortografía dalgunhas palabras. Cada vez aparecerá una palabra na pantalla. Esta palabra pode estar correctamente escrita ou conter algún erro. O que se che pedirá é escribir correctamente a palabra en calquera dos dous casos. O programa indicarache si acertaches ou non, dando una resposta correcta nos casos nos que estás equivocado.
O programa que aquí che presentamos está feito dunha maneira bastante sinxela e traballáronse algunhas palabras concretas. O noso obxectivo principal é explicar como podes escribir este tipo de programas; logo cada un verá cales son as palabras que lle interesan traballar e si quere facer algún cambio ou non.
Aínda que neste caso só se trataron as palabras, existen outras posibilidades: preguntar pola palabra ou concepto definido mediante unha definición ou pedir que se corrixan algunhas palabras dun texto.
Observacións:
10 REM TRABALLANDO A
ORTOGRAFÍA 20 DIM FIL(5) : J=0
30 KEY OFF: SCREEN 1,0 : CLS
40 LOCATE 12,6 : PRINT "PROGRAMA ORTOGRAFIA"
50 FOR I=1 TO 2000 : K=K+1 : NEXT I
60 CLS : RANDOMIZE TIMER
70
LOCATE 4,15 : PRINT "MENÚ PRINCIPAL 7,9"
90 LOCATE 9,9 : PRINT "2. TX, TS ou TZ
100 LOCATE 11,9 : PRINT "3. X, S ou Z
110 LOCATE 13,9 : PRINT "4. A orgánica, si ou non?"
120 LOCATE 15,9 : PRINT "5. Todos mesturados"
130 LOCATE 17,9 : PRINT "6. Programa
Fin" 140 LOCATE 20,6 : INPUT "Que opcións queres traballar";AUK
150 IF AUK 1 OR AUK 6 THEN LOCATE 20,6
: PRINT SPC(34) : GOTO 140
160 CLS
170
LOCATE 2,12 : PRINT Examinar a
palabra "PRINT 7,6"
1$
EN THRM=
100%
FOX
420 LOCATE 21,INT ((40-LEN(HITZA1$)/2) : INPUT "",ERAN$
430 LOCATE 23,6 : IF ERAN$=PALABRA1$ THEN PRINT "BEN!!!" :
BEN=BEN+1
ELSE PRINT "MAL! ";PALABRA1$"."
"sacerdote",
"sacerdote",
"sacerdote",
"sacerdote",
"sacerdote",
"salgueiro",
"sacerdote",
"salgueiro",
"lenzo",
"abatido",
"salgueiro"