Pascal/Turbo Pascal - Programa de votaciones

 
Vista:
sin imagen de perfil

Programa de votaciones

Publicado por anonymous (4 intervenciones) el 15/04/2016 10:58:18
Tengo esta idea de como se realiza un programa para que cada vez que se entre una opción al case que se desee se le agregue un contador de acuerdo al número de boletas que se ingresaron (número de veces que se repite el ciclo), todo esto para que al final muestre el resultado total de votaciones del partido que ganó. Si me pudieran corregir les agradeceria mucho, gracias de antemano.




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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
PROGRAM Partido;
USES CRT;
VAR
 opcion:CHAR;
 numbol:INTEGER;
PROCEDURE menu;
BEGIN
 WRITELN ('partidos');
 WRITELN ('1)PRI');
 WRITELN ('2)PAN');
 WRITELN ('3)PRD');
 WRITELN ('4)voto nulo');
END;
PROCEDURE PRI;
VAR
 contpri:INTEGER;
BEGIN
 contpri+1
 WRITELN ('ha votado por el PRI');
END;
PROCEDURE PAN;
VAR
 contpan:INTEGER;
BEGIN
 contpan+1
 WRITELN ('ha votado por el PAN');
END;
PROCEDURE PRD;
VAR
 contprd:INTEGER;
BEGIN
 contprd+1
 WRITELN ('ha votado por el PRD');
END;
PROCEDURE nulo;
VAR
 contnulo:INTEGER;
BEGIN
 contnulo+1
 WRITELN ('su voto es nulo');
END;
BEGIN
 CLRSCR;
 WRITELN ('introduzca el número de boletas');
 READLN (numbol);
 CONT:=1
 FOR cont:=1 TO numbol DO
 WRITELN ('seleccione el partido por el que desea votar');
 menu;
 READLN (opcion);
 CASE opcion OF
 '1':contpri+1;
 '2':contpan+1;
 '3':contprd+1;
 '4':contnulo+1;
ELSE
 WRITELN ('opción imposible);
END;
BEGIN
 IF (contpri>contpan) THEN
  IF (contpri>contprd)THEN
  WRITELN ('el partido ganador es el PRI con:', contpri, 'votos' );
 ELSE 
  IF (contpan>contpri) THEN
   IF (contpan>contprd) THEN
   WRITELN ('el partido ganador es el PAN con:', contpan, 'votos');
  ELSE
   IF (contprd>contpri) THEN
    IF (contprd>contpan) THEN
    WRITELN ('el partido ganador es el PRD con:', contprd, 'votos');
   ELSE
     IF (contnulo>contprd) THEN
      IF (contnulo>contpan) THEN
       IF (contnulo>contpri) THEN
        WRITELN ('elecciones nulas con:',contnulos, votos anulados');
      END;
READLN;
END.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Programa de votaciones

Publicado por ramon (2158 intervenciones) el 15/04/2016 13:51:10
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
[Mira esto creo que te sera de ayuda]
 
program partidos;
 uses
   crt;
  var
    tecla : char;
    contpri, contpan, contprd, contnulo : longint;
 
  procedure menu;
  var
    salir : boolean;
  begin
     salir := false;
     Contpri := 0;
     Contpan := 0;
     Contprd := 0;
     Contnulo := 0;
     repeat
         clrscr;
      writeln('  **** Menu General ****');
      writeln;
      writeln('   I = Contpri');
      writeln('   N = Contpan');
      writeln('   D = Contprd');
      writeln('   O = Contnulo');
      writeln('   S = Salir');
      writeln;
      writeln('   Elija Opcion De Partido');
      repeat
          tecla := upcase(readkey);
      until tecla in['I','N','D','O','S'];
      clrscr;
   case tecla of
 'I' : begin
       writeln('   Dio su Boto a Contpri');
       Contpri := Contpri + 1;
       delay(1000);
       end;
 'N' : begin
       writeln('   Dio su Boto a Contpan');
       Contpan := Contpan + 1;
       delay(1000);
       end;
 'D' : begin
       writeln('   Dio su Boto a Contprd');
       Contprd := Contprd + 1;
       delay(1000);
       end;
 'O' : begin
       writeln('   Dio su Boto a Contnulo');
       Contnulo := Contnulo + 1;
       delay(1000);
       end;
 'S' : salir := true;
   end;
   until salir = true;
  end;
 
 
  begin
      menu;
      writeln('   Los Resultados Serian');
      writeln;
      writeln('   Contpri = ',Contpri);
      writeln('   Contpan = ',Contpan);
      writeln('   Contprd = ',Contprd);
      writeln('  Contnulo = ',Contnulo);
      writeln;
      writeln('    Pulse Una Tecla');
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Programa de votaciones

Publicado por anonymous (4 intervenciones) el 15/04/2016 18:46:34
muy bien ¡muchas muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar