Poner un cronometro y contador de aciertos test multiple choice
Publicado por Rodrigo (4 intervenciones) el 22/11/2016 00:11:36
Bueno ya tengo hecho el test lo quiero es agregar los que dice en el titulo un cronometro en la esquina superior derecha y que al final, al apretar enter se muestre el número de aciertos realizados, el tiempo transcurrido y el puntaje del 1 al 10.
si el programa se puede hacer mas compacto ilustren me por favor.
que alguien lo agregue al código y lo marque con algún color y con eso ya esta.
gracias de antemano.
si el programa se puede hacer mas compacto ilustren me por favor.
que alguien lo agregue al código y lo marque con algún color y con eso ya esta.
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
program menu;
uses crt;
var opc:char;suma:integer;begin
clrscr;
writeln('REVOLUCION INDUSTRIAL');
writeln;
writeln('¨Cu…ndo tuvo lugar la 1¦ Revolucion Industrial?');
writeln;
writeln('1 En el siglo XX');
writeln('2 En el siglo XVI');
writeln('3 A mediados del siglo XVIII');
opc :=readkey;
if(opc='3') then
writeln('Respuesta correcta.')
else
writeln('Respuesta incorrecta.');
writeln('Presione enter para pasar a la siguiente pregunta.');
readln;
writeln;
writeln('Para que tuviera lugar la revoluci•n industrial fue necesario uno de estos');
writeln('factores ¨cu…l?.');
writeln;
writeln('1 Una revoluci•n en el campo agrcola');
writeln('2 La unidad de los estados europeos');
writeln('3 El trabajo de mano de obra esclava');
opc :=readkey;
if(opc='1') then
writeln('Respuesta correcta.')
else
writeln('Respuesta incorrecta.');
writeln('Presione enter para pasar a la siguiente pregunta.');
readln;
clrscr;
writeln('REVOLUCION FRANCESA');
writeln;
writeln('¨Por que se desencaden• la Revoluci•n Francesa?');
writeln;
writeln('1 Porque subio el precio del TŠ.');
writeln('2 Porque la burguesa no tena poder poltico.');
writeln('3 Porque el pueblo estaba cansado del rŠgimen absoluto.');
opc :=readkey;
if(opc='2') then
writeln('Respuesta correcta.')
else
writeln('Respuesta incorrecta.');
writeln('Presione enter para pasar a la siguiente pregunta.');
readln;
writeln;
writeln('¨QuŠ corriente de pensamiento influy• en la Revoluci•n Francesa?');
writeln;
writeln('1 Utopismo');
writeln('2 La ilustraci•n');
writeln('3 Depotispo Ilustrado');
opc :=readkey;
if(opc='2') then
writeln('Respuesta correcta.')
else
writeln('Respuesta incorrecta.');
writeln('Presione enter para pasar a la siguiente pregunta.');
readln;
clrscr;
writeln('REVOLUCION AMERICANA');
writeln;
writeln('El documento de declaraci•n de independencia de las colonias inglesas fue');
writeln('Escrito por...');
writeln;
writeln('1 Benjamn Franklin ');
writeln('2 Thomas Jefferson');
writeln('3 Juan Jacobo Rousseau');
opc :=readkey;
if(opc='2') then
writeln('Respuesta correcta.')
else
writeln('Respuesta incorrecta.');
writeln('Presione enter para pasar a la siguiente pregunta.');
readln;
writeln;
writeln('Las colonias inglesas, lograron su independencia bajo la influencia del...');
writeln;
writeln('1 Liberalismo y la ilustraci•n.');
writeln('2 Liberalismo.');
writeln('3 Despotismo.');
opc :=readkey;
if(opc='3') then
writeln('Respuesta correcta.')
else
writeln('Respuesta incorrecta.');
writeln('Presione enter para ver los resultados..');
readln;
end.Valora esta pregunta
0