-
Lenguaje
Pascal
-
Descripción
Lea el número de alumnos que aprobaron, perdieron y se retiraron del curso, y nos devuelva: El porcentaje de alumnos que aprobaron, perdieron y se retiraron.
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
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
program AlumnosQueAprobaronPerdieronYRetirados;
uses crt;
var alumnos_que_aprobaron, alumnos_que_perdieron, alumnos_que_se_retiraron, porcentaje_aprobaron, porcentaje_perdieron : real;
var porcentaje_se_retiraron, total_de_alumnos : real;
begin
write ('Ingresa el valor de alumnos que aprobaron: ');
readln (alumnos_que_aprobaron);
write ('Ingresa el valor de alumnos que perdieron: ');
readln (alumnos_que_perdieron);
write ('Ingresa el valor de alumnos que se retiraron: ');
readln (alumnos_que_se_retiraron);
total_de_alumnos := alumnos_que_aprobaron+alumnos_que_perdieron+alumnos_que_se_retiraron;
if total_de_alumnos=0 then
begin
porcentaje_aprobaron := 0;
porcentaje_perdieron := 0;
porcentaje_se_retiraron := 0;
end
else
begin
porcentaje_aprobaron := 100.0*alumnos_que_aprobaron/total_de_alumnos;
porcentaje_perdieron := 100.0*alumnos_que_perdieron/total_de_alumnos;
porcentaje_se_retiraron := 100.0*alumnos_que_se_retiraron/total_de_alumnos;
end;
writeln ('Valor de porcentaje aprobaron: ', porcentaje_aprobaron:0:6);
writeln ('Valor de porcentaje perdieron: ', porcentaje_perdieron:0:6);
writeln ('Valor de porcentaje se retiraron: ', porcentaje_se_retiraron:0:6);
writeln ('Valor de total de alumnos: ', total_de_alumnos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var alumnos_que_aprobaron, alumnos_que_perdieron, alumnos_que_se_retiraron, porcentaje_aprobaron, porcentaje_perdieron : real;
var porcentaje_se_retiraron, total_de_alumnos : real;
begin
write ('Ingresa el valor de alumnos que aprobaron: ');
readln (alumnos_que_aprobaron);
write ('Ingresa el valor de alumnos que perdieron: ');
readln (alumnos_que_perdieron);
write ('Ingresa el valor de alumnos que se retiraron: ');
readln (alumnos_que_se_retiraron);
total_de_alumnos := alumnos_que_aprobaron+alumnos_que_perdieron+alumnos_que_se_retiraron;
if total_de_alumnos=0 then
begin
porcentaje_aprobaron := 0;
porcentaje_perdieron := 0;
porcentaje_se_retiraron := 0;
end
else
begin
porcentaje_aprobaron := 100.0*alumnos_que_aprobaron/total_de_alumnos;
porcentaje_perdieron := 100.0*alumnos_que_perdieron/total_de_alumnos;
porcentaje_se_retiraron := 100.0*alumnos_que_se_retiraron/total_de_alumnos;
end;
writeln ('Valor de porcentaje aprobaron: ', porcentaje_aprobaron:0:6);
writeln ('Valor de porcentaje perdieron: ', porcentaje_perdieron:0:6);
writeln ('Valor de porcentaje se retiraron: ', porcentaje_se_retiraron:0:6);
writeln ('Valor de total de alumnos: ', total_de_alumnos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.