me.adb

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

with Ada.Text_IO; use Ada.Text_IO;
--with Hello;
-- include our previous procedure
procedure your_name is
   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
      Put_Line (" there " & name (1 .. last));
      -- & string concatenation
      -- name(1..last)- array slice
   end loop; -- control structure labelled
end your_name;