your_name1.adb.npp

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

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;