Pues posiblemente no.. es un Intel Celeron
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPROGRAM PEC2;
uses crt;
CONST Num_Alumnos=2;
TYPE
Cadena50 = packed array[1..50] of Char;
DatosAlumno=
RECORD
Alumno: Cadena50;
DNI: string ;
FechaNacimiento: string;
Domicilio: string;
Telefono: integer;
end;
tDatosAlumno= array [1..Num_Alumnos] of DatosAlumno;
VAR Datos: tDatosAlumno;letra,i,opc:integer;
PROCEDURE LeerDatos(VAR Datos:tDatosAlumno); //Lee datos de Alumnos
VAR i:integer;
begin
for i:=1 to Num_Alumnos do
begin
with datos[i] do
begin
write('Alumno: '); readln(Alumno);
write('DNI: '); readln(DNI);
write('Fecha de Nacimiento (dd/mm/aaaa): '); readln(FechaNacimiento);
write('Domicilio: '); readln(Domicilio);
write('Telefono: '); readln(Telefono);
readln;
end;
end;
end;
PROCEDURE EscribirDatos(Datos:tDatosAlumno); //Imprime datos de Alumnos
VAR i:integer;
begin
for i:=1 to Num_Alumnos do
begin
with Datos[i] do
begin
writeln('Alumno: ',Alumno);
write('DNI: ',DNI);
writeln;
writeln('Fecha de Nacimiento: ',FechaNacimiento);
writeln('Domicilio: ',Domicilio);
writeln('Telefono: ',Telefono);
readln;
end;
end;
end;
PROCEDURE Menu;
begin
writeln('*Eliga una de las siguientes opciones*');
writeln;
writeln('1: ALTA');
writeln('2: BAJA');
writeln('3: MODIFICACION');
writeln('4: LISTADOS');
writeln('5: ESTADISTICAS');
writeln('6: SALIR');
end;
PROCEDURE LetraDNI(VAR Datos:tDatosAlumno;letra:integer); //Calcula la letra del DNI
CONST y=23;
Begin
letra:= DNI mod y;
CASE letra of
0:write('T');
1:write('R');
2:write('W');
3:write('A');
4:write('G');
5:write('M');
6:write('Y');
7:write('F');
8:write('P');
9:write('D');
10:write('X');
11:write('B');
12:write('N');
13:write('J');
14:write('Z');
15:write('S');
16:write('Q');
17:write('V');
18:write('H');
19:write('L');
20:write('C');
21:write('K');
22:write('E');
end;
end;
PROCEDURE Compr_DNI(Datos:tDatosAlumno);
Begin
IF DNI[9]<> LetraDNI(Datos,letra) then
begin
repeat
readln(DNI);
until
DNI[9]=LetraDNI(Datos,letra);
end;
end;
PROCEDURE EligeMenu(opc:integer);
Begin
readln(opc);
IF opc=4 THEN LeerDatos(Datos)
ELSE writeln('**ERROR**');
end;
BEGIN
Menu;
EligeMenu(opc);
clrscr;
EscribirDatos(Datos);
readln;
END.