Pascal/Turbo Pascal - Buenas tardes, necesito ayuda para desarrollar esto:

   
Vista:

Buenas tardes, necesito ayuda para desarrollar esto:

Publicado por Fernando Castillo fernandoadrian@live.com.mx (1 intervención) el 14/03/2016 19:29:31
Necesito desarrollar una clave de acceso para 3 carácteres, la persona coloca su clave "A4B" y los carácteres se deben sustituir por números 1,2,3. Si la clave es correcta desarrolalar un menú, El menú ya lo hice pero lo primero no me sale. Por favor necesito ayuda.
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

Buenas tardes, necesito ayuda para desarrollar esto:

Publicado por ramon (2072 intervenciones) el 15/03/2016 19:05:53
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
{Mira esto}
 
 program clave;
 uses
   crt;
  type
    string3 = string[3];
  var
    clav : string3;
    ent, sal, numero : integer;
    tecla : char;
 
 
  function laclavees(c : string3) : integer;
  var
     cc, x : integer;
  begin
    laclavees := 0;
    cc := 0;
    for x := 1 to length(c) do
    cc := cc + ord(c[x]) * x * 3;
    laclavees := cc;
  end;
 
  procedure entraclave(n : integer);
  var
    i, y : integer;
  begin
    if n = 1 then
     write('   Entre clave a crear 3 caracteres : ');
    if n = 0 then
     write('   Entre clave a buscar 3 caracteres : ');
     i := 1;
    repeat
     tecla := readkey;
     if tecla <> #13 then
     begin
     write('*');
     clav[i] := tecla;
     clav[0] := chr(i);
     i := i + 1;
     end;
    until (tecla = #13) or (i > 3);
  end;
 
  function descifraclave(cv : string3) : integer;
  var
    l, kk : integer;
   begin
      descifraclave := 0;
      kk := 0;
      for l := 1 to length(cv) do
      kk := kk + ord(cv[l]) * l * 3;
      descifraclave := kk;
   end;
 
 
  begin
     clrscr;
     entraclave(1);
     ent := laclavees(clav);
     clrscr;
     entraclave(0);
     sal := descifraclave(clav);
     clrscr;
     if ent = sal then
     begin
     writeln;
     writeln('   La Clave es     = ',ent);
     writeln;
     writeln('   Entro La Clave  = ',descifraclave(clav));
     writeln;
     writeln('   Pulse Una Tecla');
     readkey;
   end
  else
     begin
        writeln('   Clave Incorrecta Pulse Una Tecla');
        readkey;
     end;
  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