Pascal/Turbo Pascal - programa sobre reporte

   
Vista:

programa sobre reporte

Publicado por lisbeth lisbeth_suarez2@hotmail.com (9 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 lisbeth_suarez2@hotmail.com

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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Juego del Gato
- VideoClub
- Agenda

programa sobre reporte

Publicado por ramon (2072 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 lisbeth_suarez2@hotmail.com (9 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 (2072 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 (9 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