Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » programa sobre reporte

Pascal/Turbo Pascal - programa sobre reporte

Volver
Nuevo Tema
<<>>
 
Vista:

programa sobre reporte

Publicado por lisbeth (10 intervenciones) el 13/11/2012 14:24:21
buenos dias necesito la ayuda sobre un programa que estoy realizando sobre el registro de un estudiante donde se incluye,modififca,consulta,elimina y reporta..todo eso lo hace pero en la parte de reporte no me refleja mas deun dato sino uno solo no me hace un conteo..adjunto la programacion que tengo del problema...si alguien me puede ayudar..gracias..
este es mi correo [email protected]

Procedure Reporte;
var
busca : regi_estudiantes;

begin
M:=0; F:=0; MayEdad:=0;
Caracas:=0; Barquisimeto:=0;
Merida:=0; Zulia:=0; Nueva_Esparta:=0;
Falcon:=0;
reset(estud);
while not eof(estud) do
begin
read(estud,busca);
if ((busca.sexo_estud = 'M')or(busca.sexo_estud = 'm')) then
begin
M:=M+1;
End;
if ((busca.sexo_estud = 'F')or(busca.sexo_estud = 'f')) then
begin
F:=F+1;
End;
End;
if (busca.edad_estud >= 30) then
begin
MayEdad:=MayEdad+1;
End;
if ((busca.centro_estudio = 'Caracas')or(busca.centro_estudio = 'caracas')) then
begin
Caracas:=Caracas+1;
End;
if ((busca.centro_estudio = 'Barquisimeto')or(busca.centro_estudio = 'barquisimeto'))then
begin
Barquisimeto:=Barquisimeto+1;
End;
if ((busca.centro_estudio = 'Merida')or(busca.centro_estudio = 'merida')) then
begin
Merida:=Merida+1;
End;
if ((busca.centro_estudio = 'Zulia')or(busca.centro_estudio = 'zulia')) then
begin
Zulia:=Zulia+1;
End;
if ((busca.centro_estudio = 'Nueva Esparta')or(busca.centro_estudio = 'nueva esparta')) then
begin
Nueva_Esparta:=Nueva_Esparta+1;
End;
if ((busca.centro_estudio = 'Falcon')or(busca.centro_estudio = 'falcon')) then
begin
Falcon:=Falcon+1;
End;

close(estud);estud_repor;
end;
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

programa sobre reporte

Publicado por ramon (2158 intervenciones) el 13/11/2012 17:27:38
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
{Esto es lo que e visto mira los cambios}
 
om
 
Procedure Reporte;
var
busca : regi_estudiantes;
 
begin
M:=0; F:=0; MayEdad:=0;
Caracas:=0; Barquisimeto:=0;
Merida:=0; Zulia:=0; Nueva_Esparta:=0;
Falcon:=0;
reset(estud);
while not eof(estud) do
begin
read(estud,busca);
if ((busca.sexo_estud = 'M')or(busca.sexo_estud = 'm')) then
begin
M:=M+1;
End;
if ((busca.sexo_estud = 'F')or(busca.sexo_estud = 'f')) then
begin
F:=F+1;
End;
 
{A qui fayo}
 
if (busca.edad_estud >= 30) then
begin
MayEdad:=MayEdad+1;
End;
if ((busca.centro_estudio = 'Caracas')or(busca.centro_estudio = 'caracas')) then
begin
Caracas:=Caracas+1;
End;
if ((busca.centro_estudio = 'Barquisimeto')or(busca.centro_estudio = 'barquisimeto'))then
begin
Barquisimeto:=Barquisimeto+1;
End;
if ((busca.centro_estudio = 'Merida')or(busca.centro_estudio = 'merida')) then
begin
Merida:=Merida+1;
End;
if ((busca.centro_estudio = 'Zulia')or(busca.centro_estudio = 'zulia')) then
begin
Zulia:=Zulia+1;
End;
if ((busca.centro_estudio = 'Nueva Esparta')or(busca.centro_estudio = 'nueva esparta')) then
begin
Nueva_Esparta:=Nueva_Esparta+1;
End;
if ((busca.centro_estudio = 'Falcon')or(busca.centro_estudio = 'falcon')) then
begin
Falcon:=Falcon+1;
End;
 
end;  {Este end aqui}
 
close(estud);estud_repor;
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

programa sobre reporte

Publicado por lisbeth (10 intervenciones) el 14/11/2012 02:15:19
mucha gracias por la ayuda...ya lo probe y funciona... otra cosa me falta que Ordene el registro estudiante por el número de la cédula. si me pueden ayudar
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

programa sobre reporte

Publicado por ramon (2158 intervenciones) el 14/11/2012 18:37:29
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{Esta ordenacion es para un array de registros como veras,}
 
var
   busca : array[1..20] of regi_estudiantes;
   tempora :  regi_estudiantes;
   i, u : integer;
 
    for i := 1 to cont do
       for u := cont downto i do
       if busca[i].numero_celula  > busca[u].numero_celula then
       begin
           temporal.numero_celula :=  busca[i].numero_celula;
           temporal.1 := cusca[i].1;
           temporal.2 := cusca[i].2;
           temporal.3 := cusca[i].3;
           {o Mas si ubiera}
 
           busca[i].numero_celula := busca[u].numero_celula;
           busca[i].1 := busca[u].1;
           busca[i].2 := busca[u].2;
           busca[i].3 := busca[u].3;
           {o Mas si ubiera}
 
           busca[u].numero_celula := temporal.numero_celula;
           busca[u].1 := temporal.1;
           busca[u].2 := temporal.2;    {el 1'2'3 o mas son los datos que tu tengas}
           busca[u].3 := temporal.3;
           {o Mas si ubiera}
       end;


La ordenacion es de mayor a menor.
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

programa sobre reporte

Publicado por lisbeth (10 intervenciones) el 20/11/2012 15:37:16
gracias por la informacion
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