Powered By Blogger

NUESTRA VISION

es poder lograr atenderle con la mejor calidad en porducto y con la atencion que usted se merece como cliente y poder dejarlo satisfecho y llegar llegar hacer una de las librerias mas buscada en ESTANZUELA por los clientes.

DIFERENTES TIPOS DE UTILES

martes, 29 de julio de 2008

programas de pascal.

PROGRAMA 1:Realizar un programa en pascal, que permita llevar el control de los datos de los estudiantes del Instituto Tecnológico por Cooperativa de Enseñanza de Estanzuela. Debe presentar un menú principal donde permita elegir entre: Ingresar Datos, Ver Datos Ingresados y Salir del Programa.Los datos que debe ingresar son: Código del Estudiante, Nombre, Fecha de Nacimiento, Grado que Cursa, Sexo, Nombre de la madre, Nombre del padre.Si elijo la opción Ver Datos Ingresados, debe presentar otro menú, donde pueda escoger entre dos opciones: Ver datos de un estudiante, o ver todos. Si mi elección es ver datos de un estudiante, me debe preguntar de cual estudiante y yo indicar de cual para que me lo muestre, de lo cual, ustedes elijen si pide ingresar el código, o el nombre del estudiante a mostrar.Ahora bien, si elijo ver todos, que me muestre todos los datos ingresados, por su puesto, debe ser ordenadamente.Opciòn 3, ovbiamente, sale del programa.

program asistencia;
uses crt;
var a,b,c,d,f: integer;
matta:array[1..800] of string;
morales:array[1..800] of string;
luis:array[1..800] of string;
fernando:array[1..800] of string;
mat:array[1..800] of string;
mora:array[1..800] of string;
begin
a:=0;
repeat
repeat
writeln('1 ingresar los datos del estudiante');
writeln('2 ver datos del estudiante');
writeln('3 salir del programa');
readln(b);
if(b<1)or(b>3)then
writeln('igrese otro numero');
until (b>=1) and (b<=3);
if(b=1) then
begin
a:=a+1;
writeln('el codigo del estudiante es',a) ;
write;writeln('ingresar el nombre del estudiante');
readln(matta[a]);
write;
writeln('fecha de nacimiento');
readln(morales[a]);
write;
writeln('grado que cursa');
readln(luis[a]);
write;
writeln('sexo');
readln(fernando[a]);
write;
writeln('nombre de la madre');
readln(mat[a]);
write;writeln('nombre del padre');
readln(mora[a]);
write;
end;
if(b=2) then
begin
repeat
writeln('1 verdatos del estudiante');
writeln('2 ver todos los datos');
readln(c);
if(c<1)or(c>2)then
writeln('ingrese el numero correcto');
until(c>=1) and (c<=2);
writeln;
if(c=1) then
writeln('ingrese el codigo del estudiante');
readln(a);
writeln('nombre',matta[a]);
writeln('fecha de nacimiento',morales[a]);
writeln('grado que cursa',luis[a]);
writeln('sexo',fernando[a]);
writeln('nombre del madre',mat[a]);
writeln('nombre del padre',mora[a]);
end;
if(c=2) then
begin
for d:=1 to a do
begin
writeln(' el codigo del estudiante',d);
writeln('nombre',matta[d]);
writeln('fecha de nacimiento',morales[d]);
writeln('grado que cursa',luis[d]);
writeln('sexo',fernando[d]);
writeln('nombre del madre',mat[d]);
writeln('nombre del padre',mora[d]);
end;
end;
until(b=3);
end.

No hay comentarios:

el chat para conocer amigos

Que te parece nuestra pagina y nuestro servivio.