Halt (Duda)
Publicado por wind (26 intervenciones) el 20/04/2014 21:13:32
Saludos cordiales.
Cuando ingresas una opción incorrecta en la primera pregunta, el programa finalizará, si el usuario presiona una tecla. (Ese comportamiento del programa está bien)
Lo que no está bien, es que cuando en la primera pregunta, ingresas la opción correcta, el programa finaliza. Lo correcto es que pase automaticamente a la pregunta dos.
¿Qué debo correguir?
Cuando ingresas una opción incorrecta en la primera pregunta, el programa finalizará, si el usuario presiona una tecla. (Ese comportamiento del programa está bien)
Lo que no está bien, es que cuando en la primera pregunta, ingresas la opción correcta, el programa finaliza. Lo correcto es que pase automaticamente a la pregunta dos.
¿Qué debo correguir?
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
program exit;
uses crt;
var
opcion:char;begin
writeln('¿Cuantos atomos de hidrogeno tiene el agua?');
writeln('A) 1');
writeln('B) 2');(**)
writeln('C) 3');
writeln('D) 4');
write('Seleccione opcion: ');
readln(opcion);
if (opcion='B') or (opcion='b') then
begin
writeln('Correcto');
end
else
writeln('Incorrecto');
writeln('Presione una tecla para finalizar el programa');
readkey;
halt;(*Termina el programa, si la opción es incorrecta*)
writeln('¿Cuantos ceros tiene 10 elevado a 5?');
writeln('A) 5'); (**)
writeln('B) 6');
writeln('C) 4');
writeln('D) 7');
write('Seleccione una opcion: ');
readln(opcion);
if (opcion='A') or (opcion='a') then
begin
writeln('Correcto');
end
else
writeln('Incorrecto');
writeln('Presione una tecla para finalizar el programa');
readkey;
end.Valora esta pregunta
0
