ada - 如何获得整数的 10 对数？

Question

我想请用户输入一个整数(N)，然后显示他/她输入的整数的 10 对数。我已经成功计算了 10 对数，但不知道如何像下面这样显示它:

Write in an Integer: 455666
455666 / 10 = 45566
45566 / 10 = 4556
4556 / 10 = 455
455 / 10 = 45
45 / 10 = 4
Answer: 10-logarithm of 455666 is 5.

这是我的代码:

with Ada.Text_IO;                    use Ada.Text_IO;
with Ada.Integer_Text_IO;            use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;              use Ada.Float_Text_IO;

procedure Logarithm is
  X: Integer;
begin
  Put("Write in an Integer: ");
  Get(X);
  for I in 1..X loop
    if 10**I<=X then
      Put(I);
    end if;
  end loop;
end Logarithm;

Answer 1

以下程序将计算满足 Ada 子类型 Positive 的任何值的整数对数给任何 Positive根据。

with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Integer_Logarithm is
   subtype Base_Range is Integer range 2..Integer'Last;
   Count : Natural := 0;
   Base  : Base_Range;
   Num   : Positive;
   Inpt  : Positive;
begin
   Put ("Enter the integer logarithmic base: ");
   Get (Base);
   Put ("Enter the integer: ");
   Get (Inpt);
   Num := Inpt;
   while Num >= Base loop
      Put (Num'Image & " /" & Base'Image & " =");
      Num := Num / Base;
      Put_Line (Num'Image);
      Count := Count + 1;
   end loop;
   Put_Line
     ("The integer logarithm (base" & Base'image & ") of" & Inpt'Image &
      " is" & Count'Image);
end Integer_Logarithm;

使用上面的示例执行时，结果输出为:

Enter the integer logarithmic base: 10
Enter the integer: 455666
 455666 / 10 = 45566
 45566 / 10 = 4556
 4556 / 10 = 455
 455 / 10 = 45
 45 / 10 = 4
The integer logarithm (base 10) of 455666 is 5

当为基数 2 和值 256 执行时，结果是

Enter the integer logarithmic base: 2
Enter the integer: 256
 256 / 2 = 128
 128 / 2 = 64
 64 / 2 = 32
 32 / 2 = 16
 16 / 2 = 8
 8 / 2 = 4
 4 / 2 = 2
 2 / 2 = 1
The integer logarithm (base 2) of 256 is 8