recursive_write_natural.adb.npp

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

with Ada.Text_Io; use Ada.Text_Io;
procedure Recursive_program is


procedure Write_Natural( Num : Natural) is
First_Digit : Natural; --Unit digit
Other_Digits : Natural; --All except first digit
begin
First_Digit := Num rem 10; --Split 1234 => 4
Other_Digits := Num / 10; -- => 123
if Num >= 10 then --Print other digits
Write_Natural( Other_Digits ); --Recursive call
end if;
Put( Character'Val( First_Digit + Character'Pos('0') ) );
end Write_Natural;
begin
   Write_Natural(123);new_line;
   Write_Natural(12345);new_line;
end Recursive_program;