-
Lenguaje
Pascal
-
Descripción
Desarrolle un algoritmo que permita ingresar la edad y sexo de N estudiantes. Debe mostrar:
- Número de estudiantes de sexo masculino y femenino en el aula.
- Porcentaje de estudiantes de sexo masculino y femenino en el aula.
- Número total de estudiantes en el aula.
- Edad promedio de varones y mujeres.
- Edad promedio general.
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
program EdadYSexoDeNEstudiantes;
uses crt;
var edad, i, mujeres, n, sexo : integer;
var varones : integer;
var porcentaje_mujeres, porcentaje_varones, promedio_general, promedio_mujeres, promedio_varones : real;
var total_estudiantes : real;
begin
mujeres := 0;
varones := 0;
porcentaje_mujeres := 0;
porcentaje_varones := 0;
promedio_general := 0;
promedio_mujeres := 0;
promedio_varones := 0;
total_estudiantes := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- masculino');
writeln (' 2.- femenino');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
if sexo=1 then
begin
varones := varones+1;
promedio_varones := promedio_varones+edad;
end
else
begin
mujeres := mujeres+1;
promedio_mujeres := promedio_mujeres+edad;
end;
promedio_general := promedio_general+edad;
writeln;
end;
if n = 0 then
porcentaje_mujeres := 0
else
porcentaje_mujeres := 100.0*mujeres/n;
if n = 0 then
porcentaje_varones := 0
else
porcentaje_varones := 100.0*varones/n;
if n = 0 then
promedio_general := 0
else
promedio_general := promedio_general/n;
if mujeres = 0 then
promedio_mujeres := 0
else
promedio_mujeres := promedio_mujeres/mujeres;
if varones = 0 then
promedio_varones := 0
else
promedio_varones := promedio_varones/varones;
total_estudiantes := n;
writeln ('Valor de mujeres: ', mujeres);
writeln ('Valor de varones: ', varones);
writeln ('Valor de porcentaje mujeres: ', porcentaje_mujeres:0:6);
writeln ('Valor de porcentaje varones: ', porcentaje_varones:0:6);
writeln ('Valor de promedio general: ', promedio_general:0:6);
writeln ('Valor de promedio mujeres: ', promedio_mujeres:0:6);
writeln ('Valor de promedio varones: ', promedio_varones:0:6);
writeln ('Valor de total estudiantes: ', total_estudiantes:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad, i, mujeres, n, sexo : integer;
var varones : integer;
var porcentaje_mujeres, porcentaje_varones, promedio_general, promedio_mujeres, promedio_varones : real;
var total_estudiantes : real;
begin
mujeres := 0;
varones := 0;
porcentaje_mujeres := 0;
porcentaje_varones := 0;
promedio_general := 0;
promedio_mujeres := 0;
promedio_varones := 0;
total_estudiantes := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- masculino');
writeln (' 2.- femenino');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
if sexo=1 then
begin
varones := varones+1;
promedio_varones := promedio_varones+edad;
end
else
begin
mujeres := mujeres+1;
promedio_mujeres := promedio_mujeres+edad;
end;
promedio_general := promedio_general+edad;
writeln;
end;
if n = 0 then
porcentaje_mujeres := 0
else
porcentaje_mujeres := 100.0*mujeres/n;
if n = 0 then
porcentaje_varones := 0
else
porcentaje_varones := 100.0*varones/n;
if n = 0 then
promedio_general := 0
else
promedio_general := promedio_general/n;
if mujeres = 0 then
promedio_mujeres := 0
else
promedio_mujeres := promedio_mujeres/mujeres;
if varones = 0 then
promedio_varones := 0
else
promedio_varones := promedio_varones/varones;
total_estudiantes := n;
writeln ('Valor de mujeres: ', mujeres);
writeln ('Valor de varones: ', varones);
writeln ('Valor de porcentaje mujeres: ', porcentaje_mujeres:0:6);
writeln ('Valor de porcentaje varones: ', porcentaje_varones:0:6);
writeln ('Valor de promedio general: ', promedio_general:0:6);
writeln ('Valor de promedio mujeres: ', promedio_mujeres:0:6);
writeln ('Valor de promedio varones: ', promedio_varones:0:6);
writeln ('Valor de total estudiantes: ', total_estudiantes:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.