recursive_write_natural.adb.npp

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

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;