Ada中的"Square root of Big_Real"可以翻译为"大实数的平方根"。以下是一个包含代码示例的解决方法:
with Ada.Text_IO;
with Ada.Float_Text_IO;
with Ada.Text_IO.Float_IO;
procedure Square_Root is
-- 声明一个大实数变量
Input_Number: constant Big_Real := 1234567890.123456789;
-- 声明一个变量来保存平方根
Square_Root_Value: Float;
begin
-- 计算平方根
Square_Root_Value := Ada.Math.Sqrt(Input_Number);
-- 输出结果
Ada.Text_IO.Put("大实数的平方根为: ");
Ada.Text_IO.Float_IO.Put(Item => Square_Root_Value, Fore => 10, Aft => 6, Exp => 0);
Ada.Text_IO.New_Line;
end Square_Root;
在上述代码中,我们使用了Ada.Math包中的Sqrt函数来计算大实数的平方根。我们首先声明了一个常量Big_Real作为输入数值,并声明了一个变量Square_Root_Value来保存平方根的计算结果。然后,我们调用Ada.Math.Sqrt函数来计算输入数值的平方根,并将结果存储在Square_Root_Value中。最后,我们使用Ada.Text_IO包中的Put和Float_IO.Put函数来输出结果。
注意:在使用此代码之前,您需要确保已经导入了相应的包。可以使用gnatmake或gnatmake命令来编译和运行Ada程序。
上一篇:Ada中的字符串数组