your_name1.adb

来自「This contains the following topics and m」· ADB 代码 · 共 22 行

with Ada.Text_IO; use Ada.Text_IO;  -- a package containing the"put_line"
                                    --procedure
procedure your_name1 is

   procedure hello is    -- candidate for the "main" procedure.
   begin
      Put_Line ("hello");
   end hello;

   name : String (1 .. 100);    -- 100 character array
   last : Natural;     -- can only contain natural integers
begin
   Put ("Hello what is your name? ");
   Get_Line (name, last);
   for i in  1 .. 10 loop    -- i is implicity declared
      hello;
      Put_Line (name (1 .. last));
      -- & string concatenation
      -- name(1..last)- array slice
   end loop;     -- control structure labelled
end your_name1;