Programa de maneig de dades d'un centre

1987/10/01 Arrojeria, Eustakio - Elhuyar Zientziaren Komunikazioa | Lizaso, Pili - Informatika SailaElhuyar Fundazioa Iturria: Elhuyar aldizkaria

• Programazioa

Planificar a l'ordinador els programes que utilitzaran el fitxer és un dels problemes més complexos. L'exemple que es mostra a continuació mostra com es pot crear aquest tipus de programa en ordinadors que no tenen ordre d'ús del fitxer.

Per descomptat, en aquestes condicions el programa serà limitat. Però d'altra banda, aquest és un exemple senzill que ajuda a prendre consciència de la possibilitat de violar l'ordinador per a fer noves tasques.

Aquest programa conté un senzill fitxer amb les dades d'un grup d'alumnes. Aquestes dades són de tres tipus:

Nom i cognoms
Cursos

• Assignatures

En aquest exemple no es tenen en compte les assignatures pendents de l'alumne sense aprofitar, encara que aquesta adaptació és bastant senzilla. En el programa explicatiu s'ha pres un grup de deu alumnes i la seva adaptació o adaptació consisteix en la capacitat d'emmagatzematge del programa.

Les dades s'emmagatzemen en quatre matrius:

Matriu de noms i
cognoms Matriu de cursos
Matriu d'assignatures

• Matriu de relacions de noms i assignatures.

En les tres primeres matrius s'emmagatzemen les dades que el propi nom indica. La quarta és una matriu bidimensional en la qual un conjunt de zeros i uns indiquen les assignatures en les quals s'ha matriculat cada alumne.

Les matrius utilitzades en aquest exemple són:

1 LOT DE DOS A DOS ANYS DE DOS A TRES ANYS
380 GOSUB 1010 : EXECUTA
390 LOCATE 8,4 : PRINT "Coneixent una dada"
400 LOCATE 9,4 : PRINT "."
410 GOSUB 1010 : EXECUTA PER A SEGUIR REM
420 CLS
430 LOCATE 11,5 : PRINT " CURS (1)"
440 LOCATE 13,5 : PRINT "
450 LOCATE 15,5 : PRINT " ASSIGNATURA (3) 13,5 : Quin input
460 dades? ", A 470
IF A 1 AND A 2 AND A 3 THEN 420
480 IF A =
1 THEN 630
490
IF
= 2 THEN 770
500 CLS
510

LOCATE
: INPUT "Assignatura"; B$
520 CLS : PRATE








CONC



=
1$






CONC








= 10$







PRINT

0,1,0,1,0,1,0,1,0,1URNA, 1,0,1,0,1URNA,
1,0,1UPR1,0,1UBI,
1,0,1UPR1,0,1UBI,

LIZASO


L,AZKUNE

A,P,MANTEROL H

1030 T$ = ""
1040 WHILE T$ "J" AND T$ "j" :
T$=INKEY$:WEND 1050 RETURN
1060 REM AMAYA