Pascal/Turbo Pascal - Crear un menu de contraseñas PASCAL AYUDA!

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 12 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Crear un menu de contraseñas PASCAL AYUDA!

Publicado por Guillermo (2 intervenciones) el 17/07/2019 21:54:08
Hola que tal, soy estudiante de Ingeniería en sistemas de información y tengo una duda.
Estoy haciendo un trabajo práctico y la consiga consiste en:

Objetivo de este trabajo práctico es aplicar todos los conceptos dados en la cátedra hasta el momento,
pudiendo utilizar todas o algunas de las cinco estructuras de control, combinadas con datos simples y
estructurados array, además de aplicar los conocimientos referentes a: manejo de pantalla,
procedimientos y funciones con sus respectivos parámetros.
Presentar un menú de opciones con el siguiente diseño:
1) Encriptar claves

Encriptar claves de acceso
El concepto es intentar ingresar una clave cuya longitud sea de 8 caracteres (numéricos o char), de forma
tal que a medida que se ingresa un carácter automáticamente dicho carácter es reemplazado por un
asterisco (* u otro símbolo a elección) evitando que alguien pueda leerlo y descubrirla.
Por otra parte el programa deberá tener una clave real declarada como una constante.
Finalizada la carga de la supuesta clave verificar si es igual a la constante, permitir como máximo 3 intentos
y notificar si la clave es correcta o equivocada.

Lo cual no se codificar el algoritmo. gracias por favor.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Crear un menu de contraseñas PASCAL AYUDA!

Publicado por ranon (2158 intervenciones) el 05/08/2019 17:32:12
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
{Mira esto te puede alludar}
 
 program clave;
  uses
     crt;
   const
      estand : string = 'miamia';
    var
      cla : string;
      p, x, i : integer;
      tec : char;
      clavesi : boolean;
 
   begin
     clrscr;
     clavesi := false;
     writeln(' Termina Tecla Enter ');
     write(' Entre Clave : ');
     i := 1;
    repeat
       tec := readkey;
       if tec <> #13 then
       begin
       cla[i] := tec;
       write('*');
       i := i + 1;
       end;
    until tec = #13;
    p := 0;
    for x := 1 to i - 1 do
    begin
       if estand[x] = cla[x] then
       p := p + 1;
    end;
      if p = i - 1 then
      clavesi := true
   else
      clavesi := false;
    writeln(' La Clave Es : ',clavesi);
    writeln(' Pulse Una Tecla');
    readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar