-
Lenguaje
Pascal
-
Descripción
Una universidad guarda la información de sus N estudiantes y en un proceso repetitivo se ingresa la información de: colegio de procedencia (Publico o Particular), edad y pago de pensiones. Se pide mostrar:
e) Promedio de edades.
f) Suma de pensiones de estudiantes de colegio particular.
g) Suma de pensiones de estudiantes de colegio público.
h) Cantidad de estudiantes con edades mayores a 13.
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
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
program ColegioDeProcedenciaEdadYPagoDePensiones;
uses crt;
var colegio_de_procedencia, i, mayores_a_13, n : integer;
var edad, pago_de_pensiones, promedio_edades, suma_de_particular, suma_de_publico : real;
begin
mayores_a_13 := 0;
promedio_edades := 0;
suma_de_particular := 0;
suma_de_publico := 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);
write ('Ingresa el valor de pago de pensiones: ');
readln (pago_de_pensiones);
writeln ('Selecciona el valor de colegio de procedencia.');
writeln (' 1.- P'#163'blico');
writeln (' 2.- Particular');
write (' : ');
repeat
readln (colegio_de_procedencia);
if (colegio_de_procedencia<1) or (colegio_de_procedencia>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (colegio_de_procedencia>=1) and (colegio_de_procedencia<=2);
promedio_edades := promedio_edades+edad;
if colegio_de_procedencia=1 then
begin
suma_de_publico := suma_de_publico+pago_de_pensiones;
end
else
begin
suma_de_particular := suma_de_particular+pago_de_pensiones;
end;
if edad>13 then
begin
mayores_a_13 := mayores_a_13+1;
end;
writeln;
end;
if n = 0 then
promedio_edades := 0
else
promedio_edades := promedio_edades/n;
writeln ('Valor de mayores a 13: ', mayores_a_13);
writeln ('Valor de promedio edades: ', promedio_edades:0:6);
writeln ('Valor de suma de particular: ', suma_de_particular:0:6);
writeln ('Valor de suma de publico: ', suma_de_publico:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var colegio_de_procedencia, i, mayores_a_13, n : integer;
var edad, pago_de_pensiones, promedio_edades, suma_de_particular, suma_de_publico : real;
begin
mayores_a_13 := 0;
promedio_edades := 0;
suma_de_particular := 0;
suma_de_publico := 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);
write ('Ingresa el valor de pago de pensiones: ');
readln (pago_de_pensiones);
writeln ('Selecciona el valor de colegio de procedencia.');
writeln (' 1.- P'#163'blico');
writeln (' 2.- Particular');
write (' : ');
repeat
readln (colegio_de_procedencia);
if (colegio_de_procedencia<1) or (colegio_de_procedencia>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (colegio_de_procedencia>=1) and (colegio_de_procedencia<=2);
promedio_edades := promedio_edades+edad;
if colegio_de_procedencia=1 then
begin
suma_de_publico := suma_de_publico+pago_de_pensiones;
end
else
begin
suma_de_particular := suma_de_particular+pago_de_pensiones;
end;
if edad>13 then
begin
mayores_a_13 := mayores_a_13+1;
end;
writeln;
end;
if n = 0 then
promedio_edades := 0
else
promedio_edades := promedio_edades/n;
writeln ('Valor de mayores a 13: ', mayores_a_13);
writeln ('Valor de promedio edades: ', promedio_edades:0:6);
writeln ('Valor de suma de particular: ', suma_de_particular:0:6);
writeln ('Valor de suma de publico: ', suma_de_publico:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.