Pascal/Turbo Pascal - URGENTE: alguien podria ayudarme con este programa

   
Vista:

URGENTE: alguien podria ayudarme con este programa

Publicado por juan (2 intervenciones) el 22/12/2009 19:36:47
MENU PRINCIPAL

pulsa la tecla 1 para añadir alumno nuevo
pulsa la tecla 2 para BUSCAR un alumno
PULSA LA TECLA 3 PARA LISTADOS
PULSA LA TECLA 4 PARA SALIR

alumno nuevo:(tecla 1)
Nº expediente:
Nombre:
Apellidos:
FECHA DE NACIMIENTO (dd/mm/aaaa)
EDAD: ( LO CALCULA EL PROGRAMA A PARTIR DE LA FECHA DE NACIMIENTO EN EL MOMENTO DE SACAR LOS LISTADOS)
ESPECIALIDAD:
Curso:
dni:
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE: alguien podria ayudarme con este progr

Publicado por juan (2 intervenciones) el 22/12/2009 19:38:52
yevo esto del programa.......es el menu 1

program colegio;
const
MAX_REGIS = 100;
type
asignaturas1 = (lengua, matematicas, dibujo);
ind = 1..MAX_REGIS;
fecha = record
dia: 1..31;
mes: 1..12;
anio: 1950..2050;
end;
estudios1 = (primaria, ESO);
numExp1 = integer;
dni1 = integer;
nombre1 = string[30];
apellidos1 = string[30];
tAlumnos = record
numExp : numExp1;
nombre : nombre1;
apellidos : apellidos1;
Fnacimiento : fecha;
Especialidad: asignaturas1;
Curso : estudios1;
dni : dni1;
end;
tAlumnosLengua = record
numExp : numExp1;
nombre : nombre1;
apellidos : apellidos1;
Fnacimiento : fecha;
Curso : estudios1;
dni : dni1;
end;
tAlumnosMate = record
numExp : numExp1;
nombre : nombre1;
apellidos : apellidos1;
Fnacimiento : fecha;
Curso : estudios1;
dni : dni1;
end;
tAlumnosDibujo = record
numExp : numExp1;
nombre : nombre1;
apellidos : apellidos1;
Fnacimiento : fecha;
Curso : estudios1;
dni : dni1;
end;
tListaAlum = array[ind] of tAlumnos;
tBaseDatos = record
datos : tListaAlum;
cantidad : integer;
end;
var
opcion1, opcion2, opcion3, opcion4: real;
aux, aux2: integer;
asignaturas: asignaturas1;
esturios: estudios1;
numeroExp: numExp1;
nomb:nombre1;
opcion5, opcion6, opcion7: real;
menu: real;
opcionA, opcionB, opcionC, opcionD: real;
opcion8, opcion9, opcion10: real;
baseDatos: tBaseDatos;
apelli: apellidos1;
dia, mes, anio: fecha;

begin
readln(menu);
writeln('pulsa la tecla 1 para añadir alumno nuevo: ');
writeln('pulsa la tecla 2 para buscar un alumno: ');
writeln('pulsa la tecla 3 para listados: ');
writeln('pulsa la tecla 4 para salir: ');
read(opcion4);
if opcion4 = 4 then
exit;
read(opcion1);
if opcion1 = 1 then
begin
write('Escriba el numero de expediente: ');
readln(numeroExp);
write('Escribe el nombre del alumno nuevo: ');
readln(nomb);
write('Escribe los apellidos del alumno nuevo: ');
readln(apelli);
write('dia de nacimiento: ');
readln(dia);
write('mes de nacimiento: ');
readln(mes);
write('anio de nacimiento: ');
readln(anio);
write('Especialidad en (lengua=1, matematicas=2,dibujo=3): ');
if opcion = 1 then
readln(tAlumnosLengua);
if opcion = 2 then
readln(tAlumnosMate);
if opcion = 3 then
readln(tAlumnosDibujo);
write('Curso (primaria=1, ESO=2): ');
read(aux2);
until (aux2 >= 1) and (aux2 <=2);
if aux = 1 then estudios := primaria;
if aux = 2 then estudios := ESO;
write('Escriba el numero de DNI: ');
read(dni);
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar