SCHOEPSTECNOLOGY

Programa para determinar el ganador de unas elecciones hechos en pascal….

IMAGENES:

Código Fuente:

program elecciones;
Uses Crt;

// PROCEDIMIENTOS //

procedure cont_votos;
Var
  Opc: Integer;
  Cont_ca, Cont_cb, Cont_cd: integer;
  Cont_vn: integer;
  i: integer;
Begin
  Cont_ca:= 0;
  Cont_cb:= 0;
  Cont_cd:= 0;
  Cont_vn:= 0;
  ClrScr;

  for i:= 1 to 10 do
    Begin
      Clrscr;
      Writeln('Programa para determinar el ganador en una elecciones');
      Writeln('');
      Writeln('Eslija un Candidato');
      writeln('');
      writeln('1)--> CANDIDATO A');
      writeln('2)--> CANDIDATO B');
      writeln('3)--> CANDIDATO C');
      writeln('4)--> NINGUNO DE LOS CANDIDATOS');
      readln(Opc);
      //
      Case Opc of

      1: begin
         Cont_ca:= Cont_ca + 1;
         end;
      2: begin
         Cont_cb:= Cont_cb + 1;
         end;
      3: begin
         Cont_cd:= Cont_cd + 1;
         end;
      4: begin
         Cont_vn:= Cont_vn + 1;
         end;
      Else
        begin
         Writeln('La Opcion seleccionada no esta entre los Nø 1 al 4ø');
         readln;
        end;
      //

   end;
   ClrScr;
   if (Cont_ca > Cont_cb) and (Cont_ca > Cont_cd) then
        Begin
                Writeln('El Ganador es el CANDODATO A con un total de:');
                Writeln(Cont_ca,' Votos');
                Writeln('----------------------------');
                Writeln('Votos de los demas Candidatos');
                Writeln(' CANDIDATO B:',Cont_cb ,' Votos');
                Writeln(' CANDIDATO C:',Cont_cd ,' Votos');
                Writeln('----------------------------');
                Writeln('VOTOS NULOS:', Cont_vn, ' Votos');

        end;
      if (Cont_cb > Cont_ca) and (Cont_cb > Cont_cd) then
        Begin
                Writeln('El Ganador es el CANDODATO B con un total de:');
                Writeln(Cont_cb,' Votos');
                Writeln('----------------------------');
                Writeln('Votos de los demas Candidatos');
                Writeln(' CANDIDATO A:',Cont_ca ,' Votos');
                Writeln(' CANDIDATO C:',Cont_cd ,' Votos');
                Writeln('----------------------------');
                Writeln('VOTOS NULOS:', Cont_vn, ' Votos')

        end;
      if (Cont_cd > Cont_ca) and (Cont_cd > Cont_cb) then
        Begin
                Writeln('El Ganador es el CANDODATO D con un total de:');
                Writeln(Cont_cd,' Votos');
                  Writeln('----------------------------');
                Writeln('Votos de los demas Candidatos');
                Writeln(' CANDIDATO A:',Cont_ca ,' Votos');
                Writeln(' CANDIDATO B:',Cont_cb ,' Votos');
                Writeln('----------------------------');
                Writeln('VOTOS NULOS:', Cont_vn, ' Votos')
        end;
end;
end;
//CUERPO DEL PROGRAMA//
Begin
cont_votos;
readkey;
end.