nuestra razon

Gracias por acceder a nuestra pagina en ella encontrara una serie de productos para su consumo diario y tambien para su hogar.


Presentacion de Slide

martes, 29 de julio de 2008

Tereas de Pascal

Código para el programa donde ingresa los datos del estudiante.

program tecnologico;
uses crt;
var op,op1,indice,com,h,i,a:integer;
co: array [1..1000] of integer;
no: array [1..1000] of string;
na: array [1..1000] of string;
gr: array [1..1000] of string;
se: array [1..1000] of string;
ma: array [1..1000] of string;
pa: array [1..1000] of string;
begin
indice:=1;
com:=0;
repeat
begin
repeat
writeln ('**Bienvenido al Instituto Tecnologico Por Cooperativa de Estanzuela**');
writeln;
writeln ('Control del Tecnologico');
writeln;
writeln ('#1 para Ingresar Datos');
writeln ('#2 para Ver Datos');
writeln ('#3 para Salir del Programa');
writeln('ingrese opcion');
readln (op);
if (op<1)>3) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
readkey;
clrscr;
end;
until (op>=1) and (op<=3);
clrscr;
if (op=1) then
begin
com:=com+1;
co[indice]:=com;
writeln('codigo del estudiante es ',co[indice]);
writeln;
writeln ('ingrese nombre del estudiante');
readln(no[indice]);
writeln;
writeln ('ingrese fecha de nacimiento del estudiante dia/mes/año');
readln(na[indice]);
writeln;
writeln ('ingrese grado que cursa el estudiante');
readln(gr[indice]);
writeln;
writeln ('ingrese sexo del estudiante');
readln(se[indice]);
writeln;
writeln ('ingrese nombre de la madre del estudiante');
readln(ma[indice]);
writeln;
writeln ('ingrese nombre del padre del estudiante');
readln(pa[indice]);
indice:=indice+1;
end;
if (op=2) then
begin
repeat
clrscr;
writeln('En este menu se le presentan dos opciones a escoger');
writeln;
writeln ('#1 para ver datos de un estudiante');
writeln ('#2 para Ver datos de todos los estudiantes');
writeln('ingrese opcion');
readln (op1);
if (op1<1)>2) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
end;
until (op1>=1) and (op1<=2);
if (op1=1) then
begin
repeat
clrscr;
writeln('ingrese el codigo del estudiante que desea ver');
readln(i);
until (i>=1) and (i<=com);
for a:=1 to indice do
begin
if (a = i) then
begin
writeln('datos del estudiante elejido');
writeln;
writeln('el codigo es ',co[i]);
writeln('el nombre es ',no[i]);
writeln('la fecha de nacimiento es ',na[i]);
writeln('el grado que cursa es ',gr[i]);
writeln('el sexo es ',se[i]);
writeln('el nombre de la madre es ',ma[i]);
writeln('el nombre del padre es ',pa[i]);
readkey;
end;
end;
end;
if(op1=2)then
begin
clrscr;
writeln('los estudiantes ingresado son');
writeln;
for h:=1 to com do
begin
writeln('el codigo es ',co[h]);
writeln('el nombre es ',no[h]);
writeln('la fecha de nacimiento es ',na[h]);
writeln('el grado que cursa es ',gr[h]);
writeln('el sexo es ',se[h]);
writeln('el nombre de la madre es ',ma[h]);
writeln('el nombre del padre es ',pa[h]);
writeln;
writeln;
end;
writeln;
readkey;
end;
end;
end;
until(op=3);
end.

No hay comentarios: