[ Foro de Pascal ]

Longitud de una palabra

Hola, tengo que hacer un ejercicios sobre encriptar claves y la clave es de 8 caracteres.. necesito saber como hacer para definir esa longitud.. que no se pueda seguir escribiendo a partir de 8. GRACIAS

Deberás leer caracter por caracter con un "ReadKey", cada vez que el usuario introduzca un caracter un contador previamente creado e inicializado en cero, se incrementa en uno. Cuando el contador llegue a 8 detienes la introducción de más caracteres.


Saludos.

me podrias dar un ejemplo de como hacerlo? gracias!

Un código de ejemplo podría ser este, aunque no se encripta nada, solo te pide que introduzcas una palabra y permite solo ocho caracteres, el resto lo ignora. Aquí tienes el código como guía:

program Encriptado;

uses CRT;

var
  palabra: string;
  caracter: char;
  cont: integer;

BEGIN
 ClrScr;
 cont:= 0;
 Writeln('Escriba la palabra: ');
 While (caracter<> #13) do
  Begin
   If cont<8 then
    begin
      caracter:= ReadKey;
      write(caracter);
      palabra:= palabra + caracter;
      cont:= cont + 1;
    end
   else
    caracter:= ReadKey;
  End;

  Writeln;
  Writeln('La palabra introducida ha sido: ', palabra);


 Readln;
END.

Espero que te sirva de orientación.
Saludos.