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.

CLÍNICA (PROGRAMA DE PRACTICA EN VB 6.0)

Programa en VB 6.0 sombre el manejo de servicios de una clínica calculando el costo de cada servicio mas los días de hospitalización. "NO TIENE CONEXION CON BD".

AGENCIA DE VUELO (PROGRAMA DE PRACTICA EN VB 6.0)