uses crt;
const
votantes = 1250;
Var
a: word;
b: word;
c: word;
ganador: word;
i: word;
voto: String;
w: real;
x: real;
z: real;
Begin
clrscr;
a := 0;
b := 0;
c := 0;
For i:=1 To votantes Do Begin
Write('Ingrese su voto (a,b,c): ');
ReadLn(voto);
case voto of
'a': a:= a+1;
'b': b:= b+1;
'c': c:= c+1;
End;
end;
// candidato ganador
writeln;
If (a>b) And (a>c) Then Begin
ganador := a;
WriteLn('Ganador candidato A con ',ganador,' votos');
End
Else Begin
If (b>a) And (b>c) Then Begin
ganador := b;
WriteLn('Ganador candidato B con ',ganador,' votos');
End
Else Begin
ganador := c;
WriteLn('Ganador candidato C con ',ganador,' votos');
End;
End;
// porcentaje
x := (a*100)/votantes;
w := (b*100)/votantes;
z := (c*100)/votantes;
WriteLn('Candidato A ',x:4:2,'%');
WriteLn('Candidato B ',w:4:2,'%');
WriteLn('Candidato C ',z:4:2,'%');
End.
Program votaciones;
uses wincrt;
const
votantes = 1250;
var
a: word;
b: word;
c: word;
ganador: word;
i: word;
voto: char;
w: real;
x: real;
z: real;
begin
clrscr;
a := 0;
b := 0;
c := 0;
For i:=1 To votantes Do Begin
Write('Ingrese su voto (a,b,c): ');
ReadLn(voto);
case voto of
'a': a:= a+1;
'b': b:= b+1;
'c': c:= c+1;
end;
writeln('Candidato Ganador');
If (a>b) And (a>c) Then Begin
ganador := a;
WriteLn('Ganador candidato A con ',ganador,' votos');
End
Else Begin
If (b>a) And (b>c) Then Begin
ganador := b;
WriteLn('Ganador candidato B con ',ganador,' votos');
End
Else Begin
ganador := c;
WriteLn('Ganador candidato C con ',ganador,' votos');
End
End;
writeln('porcentaje');
x := (a*100)/votantes;
w := (b*100)/votantes;
z := (c*100)/votantes;
WriteLn('Candidato A ',x:4:2,'%');
WriteLn('Candidato B ',w:4:2,'%');
WriteLn('Candidato C ',z:4:2,'%');
End;
end.