-
Lenguaje
Pascal
-
Descripción
Dos estudiantes se postularon para competir en las elecciones universitarias. Diseñe una solución que lea la cantidad de votos que cada candidato recibió, así como el número de abstenciones. El programa deberá calcular el porcentaje de votos que obtuvo cada candidato y el porcentaje de abstenciones y determinará quién fue el ganador.
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
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
program EleccionesUniversitarias;
uses crt;
var abstenciones, porcentaje_abstenciones, porcentaje_candidato_1, porcentaje_candidato_2, votos : real;
var votos_para_candidato_1, votos_para_candidato_2 : real;
begin
write ('Ingresa el valor de abstenciones: ');
readln (abstenciones);
write ('Ingresa el valor de votos para candidato 1: ');
readln (votos_para_candidato_1);
write ('Ingresa el valor de votos para candidato 2: ');
readln (votos_para_candidato_2);
votos := votos_para_candidato_1+votos_para_candidato_2+abstenciones;
if votos=0 then
begin
porcentaje_candidato_1 := 0;
porcentaje_candidato_2 := 0;
porcentaje_abstenciones := 0;
end
else
begin
porcentaje_candidato_1 := 100.0*votos_para_candidato_1/votos;
porcentaje_candidato_2 := 100.0*votos_para_candidato_2/votos;
porcentaje_abstenciones := 100.0*abstenciones/votos;
end;
if votos_para_candidato_1>votos_para_candidato_2 then
begin
writeln ('Gan'#162' el candidato 1.');
end;
if votos_para_candidato_1<votos_para_candidato_2 then
begin
writeln ('Gan'#162' el candidato 2.');
end;
if votos_para_candidato_1=votos_para_candidato_2 then
begin
writeln ('Empate.');
end;
writeln ('Valor de porcentaje abstenciones: ', porcentaje_abstenciones:0:6);
writeln ('Valor de porcentaje candidato 1: ', porcentaje_candidato_1:0:6);
writeln ('Valor de porcentaje candidato 2: ', porcentaje_candidato_2:0:6);
writeln ('Valor de votos: ', votos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var abstenciones, porcentaje_abstenciones, porcentaje_candidato_1, porcentaje_candidato_2, votos : real;
var votos_para_candidato_1, votos_para_candidato_2 : real;
begin
write ('Ingresa el valor de abstenciones: ');
readln (abstenciones);
write ('Ingresa el valor de votos para candidato 1: ');
readln (votos_para_candidato_1);
write ('Ingresa el valor de votos para candidato 2: ');
readln (votos_para_candidato_2);
votos := votos_para_candidato_1+votos_para_candidato_2+abstenciones;
if votos=0 then
begin
porcentaje_candidato_1 := 0;
porcentaje_candidato_2 := 0;
porcentaje_abstenciones := 0;
end
else
begin
porcentaje_candidato_1 := 100.0*votos_para_candidato_1/votos;
porcentaje_candidato_2 := 100.0*votos_para_candidato_2/votos;
porcentaje_abstenciones := 100.0*abstenciones/votos;
end;
if votos_para_candidato_1>votos_para_candidato_2 then
begin
writeln ('Gan'#162' el candidato 1.');
end;
if votos_para_candidato_1<votos_para_candidato_2 then
begin
writeln ('Gan'#162' el candidato 2.');
end;
if votos_para_candidato_1=votos_para_candidato_2 then
begin
writeln ('Empate.');
end;
writeln ('Valor de porcentaje abstenciones: ', porcentaje_abstenciones:0:6);
writeln ('Valor de porcentaje candidato 1: ', porcentaje_candidato_1:0:6);
writeln ('Valor de porcentaje candidato 2: ', porcentaje_candidato_2:0:6);
writeln ('Valor de votos: ', votos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.