your_name.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_name is

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

name :string(1..100); 			-- 100 character array
first :natural; 				-- can only contain natural integers
begin
put("Hello what is your name? ");
get_line(name,first);
for i in 1..10 loop --integer'first loop 	-- i is implicity declared as integer

put_line(" sai " & name(1..first));
				-- & string concatenation
				-- name(1..last)- array slice
end loop;				 -- control structure labelled
end;