Pascal/Turbo Pascal - Problema ejercicio - Ayuda

   
Vista:

Problema ejercicio - Ayuda

Publicado por Diego (8 intervenciones) el 13/05/2012 20:44:11
Hola que tal, sera que alguien me puede dar una ayuda con el siguiente ejercicio?
http://i.imgur.com/aWKgW.jpg



Yo lo hago asi:
http://www.mediafire.com/?br4pyrpbg64tc4e

Y cuando compilo,ejecuto... queda totalmente parado una vez que termino con la carga de datos de la primera persona(sea hombre/mujer). Solo ejecuta, cuando la edad es <> 999, es mujer y es de 'Corrientes'; pero solo una vez.

Si alguien me puede editar ese archivo y subirlo(o enviarmelo al correo que deje arriba) o decirme que lo que estoy haciendo mal, les voy a agradecer mucho
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

Problema ejercicio - Ayuda

Publicado por Diego (8 intervenciones) el 13/05/2012 20:48:56
Lo siento, el link de mediafire no es el que he hecho(fue el anterior y me di cuenta que char, solo almacena un caracter)

es este:
http://www.mediafire.com/?adszc3ofw9w30s4
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

Problema ejercicio - Ayuda

Publicado por ramon (2072 intervenciones) el 14/05/2012 18:46:57
{Mira las correcciones realizadas suerte}

PROGRAM grup2_tplab;

USES crt;
VAR
ve_sexo: CHAR;
ve_ayn, ve_residencia, va_ayn_mayor: STRING;
ve_edad, va_cont, va_cont_mujer, va_edad_mayor: INTEGER;
va_porcentaje_mujer: REAL;


BEGIN
WRITELN ('Para finalizar la carga, coloque "999" en la edad');
WRITELN (' ');

va_cont := 0;
va_cont_mujer := 0;
va_edad_mayor := 1;
WHILE ve_edad <> 999 DO
BEGIN
WRITE('Ingrese edad : ');
READLN(ve_edad);
if ve_edad <> 999 then
begin
WRITE('Ingrese Apellido y Nombre : ');
READLN(ve_ayn);
WRITE('Ingrese sexo. F para mujer o M, para hombre (F/M) : ');
READLN(ve_sexo);
WRITE('Ingrese lugar de residencia. Chaco/Misiones/Corrientes : ');
READLN(ve_residencia);
end;
IF (ve_sexo = 'F') AND (ve_residencia = 'Corrientes') THEN
begin
va_cont_mujer := va_cont_mujer + 1;
end;
IF (ve_edad >= va_edad_mayor) THEN
va_edad_mayor := ve_edad;
va_ayn_mayor := ve_ayn;
va_cont := va_cont + 1;
clrscr;
end;
va_porcentaje_mujer := (va_cont * va_cont_mujer)/100;
WRITELN('El porcentaje de mujeres en la zona de Corrientes es de: ',
va_porcentaje_mujer:2:1, ' %');
WRITELN ('El nombre de la persona con mayor edad es: ', va_ayn_mayor);
READKEY;
CLRSCR;
END.
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

Problema ejercicio - Ayuda

Publicado por Diego (8 intervenciones) el 14/05/2012 21:45:05
Muchas gracias ramon, es el 2do post que me respondes.... voy a montar la version que me has realizado. Te dejo la mia(ayer ya la hize andar)
http://www.mediafire.com/?1m1r4c72zgrtvsj


Muchas gracias de nuevo, si tienes tiempo, pasate por el otro post que hize que era "Dibujar un corazon" ... desde ya, muchas gracias otra vez xD
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