[ Foro de Pascal ]

Longitud de una palabra

16-Jul-2019 01:17
Invitado (juliana)
3 Respuestas

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


16-Jul-2019 03:33
Luis Torres (+14)

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.


16-Jul-2019 03:56
Invitado (juliana)

me podrias dar un ejemplo de como hacerlo? gracias!


16-Jul-2019 17:03
Luis Torres (+14)

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.






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...