{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.
Crear cuenta