mostrar una contraseña con asteriscos
Publicado por Samuel (1 intervención) el 15/02/2020 07:25:44
Hola
Es simple mi problema, tengo este programa, en el cual necesito que la contraseña me salgan asteriscos en vez del texto lo de mas no es de relevancia solo con esto si me pueden ayudar
De ante mano Muchas Gracias
Es simple mi problema, tengo este programa, en el cual necesito que la contraseña me salgan asteriscos en vez del texto lo de mas no es de relevancia solo con esto si me pueden ayudar
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
program Login;
uses crt;
var usuario : String;contra, c, n1 : integer;
n2, n3, n4 : real;
BEGIN
clrscr;
writeln('Ingrese su usuario');
readln(usuario);
writeln('Ingrese su contraseña');
readln(contra);
if (usuario = 'Wilson') and (contra = 12345) then
BEGIN
clrscr;
writeln('Bienvenido a la Calculadora');
writeln();
writeln('Coloque la cantidad de operaciones que desea realizar');
readln(c);
for c := 1 to c do
BEGIN
clrscr;
writeln('CALCULADORA');
writeln('');
writeln('Seleccione el numero correspondiente a la operacion que desea realizar');
writeln('');
writeln('1. Suma');
writeln('2. Resta');
writeln('3. Multiplicacion');
writeln('4. Division');
writeln('5. Promedio');
writeln('');
readln(n1);
clrscr;
case n1 of
1: BEGINclrscr;
writeln('');
writeln('Ingrese cualquier numero sin especificaciones');
readln(n2);
writeln('Ingrese un segundo numero sin especificaciones ');
readln(n3);
writeln('');
n4 := n2 + n3;
writeln('El resultado de la suma es: ', n4:1:2);
writeln('');
writeln('');
readkey;
end;
2: BEGINclrscr;
writeln('');
writeln('Ingrese cualquier numero sin especificaciones');
readln(n2);
writeln('Ingrese un segundo numero sin especificaciones ');
readln(n3);
writeln('');
n4 := n2 - n3;
writeln('El resultado de la resta es es: ', n4:1:2);
writeln('');
writeln('');
readkey;
end;
3: BEGINclrscr;
writeln('');
writeln('Ingrese cualquier numero sin especificaciones');
readln(n2);
writeln('Ingrese un segundo numero sin especificaciones ');
readln(n3);
writeln('');
n4 := n2 * n3;
writeln('El resultado de la multiplicacion es: ', n4:1:2);
writeln('');
writeln('');
readkey;
end;
4: BEGINclrscr;
writeln('');
writeln('Ingrese cualquier numero sin especificaciones');
readln(n2);
writeln('Ingrese un segundo numero sin especificaciones ');
readln(n3);
writeln('');
n4 := n2 / n3;
writeln('El resultado de la division es: ', n4:1:2);
writeln('');
writeln('');
readkey;
end;
5: BEGINclrscr;
writeln('');
writeln('Ingrese cualquier numero sin especificaciones');
readln(n2);
writeln('Ingrese un segundo numero sin especificaciones ');
readln(n3);
writeln('');
n4 := (n2 + n3) / 2;
writeln('El resultado del promedio es de: ', n4:1:2);
writeln('');
writeln('');
readkey;
end;
else
end;
writeln('Gracias por visitar la calculadora');
end;
end;
if (usuario <> 'Wilson') and (contra <> 12345) then
BEGIN
writeln('Su usuario o contraseña son incorrrectos');
end;
readkey;
END.De ante mano Muchas Gracias
Valora esta pregunta
0