me.adb.npp

来自「This contains the following topics and m」· NPP 代码 · 共 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;