probelam con menu de opciones
Publicado por Edsel (4 intervenciones) el 14/07/2019 22:23:17
Hola. hice este menu de opciones y cuando pulso la opcion 1 hace lo que tiene que hacer pero cuando la termina de reralizar no me muetra el menu de opciones denuevo sino que se queda en la opcion 1.
aqui les dejo el programa
aqui les dejo el programa
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
program TP2;
uses crt;
const C='abc12399';
var
op:integer; ch:char; con:string; cont:integer;procedure incriptador;
begin
clrscr;
cont:=0;
repeat
Writeln('INGRESE CONTRASEÑA');
ch:=readkey;
con:='';
WHILE ch<>#13 DO
begin
con:=con+ch;
write('*');
ch:=readkey
end;
if (con=C) then
writeln('la contraseña es correcta')
else
begin
writeln('la contaseña es incorrcta');
cont:=cont+1;
end;
until (con=C) or (cont=3);
readkey;
end;
procedure pantalla;
begin
writeln('menu');
writeln('1-encriptacion de clave');
writeln('2-codigo de barras');
writeln('3-codigo QR');
writeln('4-salir');
end;
begin
pantalla;
repeat writeln('ingrese una opcion');
readln(op);
until (op>=1)and(op<=4);
while op <> 4 do
case op of
1:incriptador; 2:end;
pantalla;
repeat writeln('ingrese una opcion');
readln(op);
until (op>=1)and(op<=4);
readkey()
end.Valora esta pregunta
0