CODIGO PARA BASE DE DATOS 10 ALUMNOS ¡completo!

Proceso sin_titulo
Dimension promedio(10)
Dimension n(10,10)
Dimension nom(10)

Para i<-1 Hasta 10 Con Paso 1 Hacer
escribir "ingrese el nombre del primer alumno"
leer nom(i)
pt<-0
Para j<-1 Hasta 3 Con Paso 1 Hacer
Escribir "ingrese la nota N# ",j,"   del alumno : " ,i
leer n(i,j)
pt<-pt+n(i,j)
FinPara
promedio(i)<-pt/3
FinPara
Escribir "     nota 1","  ","nota 2","  ","nota 3"
para m<-1 hasta 5 Con Paso 1 Hacer
Escribir "cod:",m,"  ",n(m,1),"        ",n(m,2),"        ",n(m,3) 
FinPara
x<-1
Mientras x<=1 Hacer
Escribir "escribir 1 si desea continuar y 2 si desea terminar";
leer x
Si x=1 Entonces
Escribir "si sabe el nombre escriba 1 si sabe el codigo escriba 2"
leer dato
Si dato=1 Entonces
Escribir "nombre del alumno"
leer nomb
Para i<-1 Hasta 10 Con Paso 1 Hacer
Si nom(i)=nomb Entonces
Escribir  "codigo ",i
Escribir "NOTA 1:",n(i,1)
Escribir "NOTA 2:",n(i,2)
Escribir "NOTA 3:",n(i,3)
a <- promedio(i)
r <- REDON(a*100)/100;
Escribir "PROMEDIO::::", r
Sino
FinSi
FinPara
Sino
Si dato=2 Entonces
Escribir "codigo del alumno"
leer cod
Escribir  nom(cod)
Escribir "NOTA 1:",n(cod,1)
Escribir "NOTA 2:",n(cod,2)
Escribir "NOTA 3:",n(cod,3)
a <- promedio(cod)
r <- REDON(a*100)/100;
Escribir "PROMEDIO::::", r
Sino

FinSi
FinSi
Sino
FinSi
FinMientras
FinProceso