Pascal/Turbo Pascal - [Ayuda] Encuesta en PASCAL

   
Vista:

[Ayuda] Encuesta en PASCAL

Publicado por novato24 (1 intervención) el 02/12/2012 17:41:44
Buenas tardes! soy nuevo en pascal, y tengo una inquietud muy grande con un proyecto que me han puesto. El proyecto es basicamente una encuesta en pascal, pero aparte de eso el programa debe tener un Menu que muestre:

1. Nueva Encuesta
2. Consultar Pregunta.
3. Salir.

En la opcion de consultar pregunta, el programa debe mostrar los resultados de esa pregunta, por ejemplo si la Pregunta es.

1) Que edad Tienes?.
A) Menor o igual que 15
B) Mayor o igual que 16

Cuando le de a Consultar pregunta #1, el programa debe mostrarmelo así.

1
2
3
4
5
6
Que Edad Tienes?
 
Edades                                      Cantidades                                       Porciento
Menor o igual que 15                    1                                                           50%
Mayor o igual que 16                     1                                                           50%
Total                                                2                                                             100%




esto es lo que tengo hasta ahora, pero la verdad es que no se como hacer para que el programa siga haciendo preguntas, ya que cuando se ejecuta y eliges una opcion se termina y ya.

Les agradeceria mucho su ayuda!

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
Program Encuesta;
 
Uses Crt;
 
Var menor,mayor,res, edad:Integer;
 
 
Begin
repeat
ClrScr;
 
writeln ('Que Edad Tienes?');
writeln ('1. Menor o igual que 15');
writeln ('2. Mayor o igual que 16');
readln (edad);
        menor:= 0;
        mayor:= 0;
  until ((edad= 1) or (edad=2));
 
case edad of
 
         1:
             begin
                  ClrScr;
                  writeln ('Menor o igual que 15');
                  Res:= menor + 1;
                  writeln ('Acualmente ', Res, ' Personas Han elegido esta opcion')
             End;
 
          2:
             begin
                  ClrScr;
                  writeln ('Mayor o igual que 16');
                  Res:= mayor + 1;
                  writeln ('Acualmente ', Res, ' Personas han elegido esta opcion')
 
             End;
 
     end;
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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Simular windows95
- Capicúa
- VideoClub

[Ayuda] Encuesta en PASCAL

Publicado por ramon (2072 intervenciones) el 04/12/2012 19:26:13
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
{Mira estos cambios }
 
Program Encuesta;
 
Uses Crt;
 
 Var
   menor,mayor,res, edad : Integer;
   tr : char;
 
Begin
 repeat
   repeat
     ClrScr;
        writeln ('Que Edad Tienes?');
        writeln ('1. Menor o igual que 15');
        writeln ('2. Mayor o igual que 16');
        readln (edad);
        menor:= 0;
        mayor:= 0;
  until ((edad= 1) or (edad=2));
    case edad of
  1 : begin
       ClrScr;
         writeln ('Menor o igual que 15');
         Res := menor + 1;
         writeln ('Acualmente ', Res, ' Personas Han elegido esta opcion');
      End;
  2 : begin
        ClrScr;
          writeln ('Mayor o igual que 16');
          Res := mayor + 1%
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

[Ayuda] Encuesta en PASCAL

Publicado por ramon (2072 intervenciones) el 04/12/2012 19:36:39
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
{El otro se corto}
 
Program Encuesta;
 
Uses Crt;
 
 Var
   menor,mayor,res, edad : Integer;
   tr : char;
 
Begin
 repeat
   repeat
     ClrScr;
        writeln ('Que Edad Tienes?');
        writeln ('1. Menor o igual que 15');
        writeln ('2. Mayor o igual que 16');
        readln (edad);
        menor:= 0;
        mayor:= 0;
  until ((edad= 1) or (edad=2));
    case edad of
  1 : begin
       ClrScr;
         writeln ('Menor o igual que 15');
         Res := menor + 1;
         writeln ('Acualmente ', Res, ' Personas Han elegido esta opcion');
      End;
  2 : begin
        ClrScr;
          writeln ('Mayor o igual que 16');
          Res := mayor + 1;
          writeln ('Acualmente ', Res, ' Personas han elegido esta opcion');
      End;
  end;
  writeln(' Desea Entrar Mas Datos [S/N]');
  tr := upcase(readkey);
  until tr = 'N';
End.
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