Programa de manexo de datos dun centro

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

• Programazioa

Planificar ao computador os programas que van utilizar o ficheiro é un dos problemas máis complexos. O exemplo que se mostra a continuación mostra como se pode crear este tipo de programa en computadores que non teñen orde de uso do ficheiro.

Por suposto, nestas condicións o programa será limitado. Pero doutra banda, leste é un exemplo sinxelo que axuda a tomar conciencia da posibilidade de violar o computador paira realizar novas tarefas.

Este programa contén un sinxelo ficheiro cos datos dun grupo de alumnos. Estes datos son de tres tipos:

Nome e apelidos
Cursos

• Materias

Neste exemplo non se teñen en conta as materias pendentes do alumno sen aproveitar, aínda que esta adaptación é bastante sinxela. No programa explicativo tomouse un grupo de dez alumnos e a súa adaptación ou adaptación consiste na capacidade de almacenamento do programa.

Os datos almacénanse en catro matrices:

Matriz de nomes e
apelidos Matriz de cursos
Matriz de materias

• Matriz de relacións de nomes e materias.

No tres primeiras matrices almacénanse os datos que o propio nome indica. A cuarta é una matriz bidimensional na que un conxunto de ceros e uns indican as materias nas que se matriculou cada alumno.

As matrices utilizadas neste exemplo son:

1 LOTE DE DOUS A DOUS ANOS DE DOUS A TRES ANOS
380 GOSUB 1010 : EXECUTA
390 LOCATE 8,4 : PRINT "Coñecendo un dato"
400 LOCATE 9,4 : PRINT "."
410 GOSUB 1010 : EXECUTA PAIRA SEGUIR REM
420 CLS
430 LOCATE 11,5 : PRINT " CURSO (1)"
440 LOCATE 13,5 : PRINT "
450 LOCATE 15,5 : PRINT " MATERIA (3) 13,5 : Que input
460 datos? ", 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 "Materia"; 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