[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í.
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. 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
0