Hola Visitante

Autor Tema: Longitud de un string \'indefinido\'  (Leído 1703 veces)

Berni69

  • Administrator
  • *****
  • Mensajes: 25
    • Ver Perfil
Longitud de un string \'indefinido\'
« en: Enero 28, 2010, 06:29:47 pm »
Para conocer la longitud de un string que nos entra como argumento, podemos echar mano de los atributos aplicables a estos, precisamente con el last. aqui dejo un ejemplo de programa que usa esta caracterisitica de ada

Código: (ada) [Seleccionar]
WITH Ada.Integer_Text_IO;
USE Ada.Integer_Text_IO;
WITH Ada.Text_IO;
USE Ada.Text_IO;
WITH Ada.Command_Line;
USE Ada.Command_Line;
PROCEDURE Longitud IS
BEGIN
   IF Argument_Count/=0 THEN

      FOR I IN 1..Argument_Count LOOP

         Put(\"El argumento\");
         Put(I,2);
         Put(\" tiene una longitud de:\");
         Put(Argument(I)'Last,2);
         Put(\" caracteres\");
         New_Line;

      END LOOP;
   ELSE
      Put (\"No se introdujeron argumentos\");
   END IF;
END;




Berni69

  • Administrator
  • *****
  • Mensajes: 25
    • Ver Perfil
Re: Longitud de un string \'indefinido\'
« Respuesta #1 en: Enero 29, 2010, 09:24:55 am »
se me olvido poner la salida del programa
Citar

>longitud 23fgn fnkj jbnj puhpuh
El argumento 1 tiene una longitud de: 5 caracteres
El argumento 2 tiene una longitud de: 4 caracteres
El argumento 3 tiene una longitud de: 4 caracteres
El argumento 4 tiene una longitud de: 6 caracteres