您如何在Ada中求平方根？

因此，我得到了一个分配，以读取一个文件，将数字放入两个矩阵中，再将矩阵相乘，最后将输出结果放入.txt文件中。

我以前从未使用过Ada，所以我认为这将是一个很好的挑战。我陷入试图确定两个单独的数组的界限。

这是我目前拥有的：

currentSpread := I;
g := Ada.Numerics.Generic_Complex_Elementary_Functions.Sqrt(I);
while J < g loop

  if(I mod J = 0) THEN
     if(currentSpread > ((I/J - J)/2)) THEN
        currentSpread := ((I/J - J)/2);
        arrayBounds := J;
     end if;

  end if;

  J := J + 1;
end loop;

我遇到的问题是sqrt函数。我想找到矩阵乘法最佳边界的因素，这是我认为实现该矩阵的唯一方法。

我得到的错误是：

invalid prefix in selected component "Ada.Numerics.Generic_Complex_Elementary_Functions"

非常感谢您的帮助。

- 更新

根据要求提供完整代码：

with Ada.Text_IO;use Ada.Text_IO;
with Ada.Integer_Text_IO;
with Ada.Numerics.Generic_Complex_Elementary_Functions;
with Ada.Numerics.Generic_Elementary_Functions;
with Ada.Numerics.Complex_Elementary_Functions;
with Ada.Numerics.Generic_Complex_Types;

procedure Main is

   dataFile : File_Type;
   resultFile : File_Type;
   value : Integer;
   I : Integer := 0;
   J : Integer;
   currentSpread : Integer;
   arrayBounds : Integer;
   g : Integer;

begin

  Ada.Text_IO.Open(File => dataFile, Mode => Ada.Text_IO.In_File, Name =>"C:\Users\Jeffrey\Desktop\data.txt");


   while not End_Of_File(dataFile) loop
      Ada.Integer_Text_IO.Get(File => dataFile, Item => value);
      Ada.Integer_Text_IO.Put(Item => value);
      Ada.Text_IO.New_Line;
      I := I + 1;
   end loop;

   Ada.Integer_Text_IO.Put(I);
   I := I/2;
   J := 1;
   currentSpread := I;
   g := Ada.Numerics.Generic_Complex_Elementary_Functions.Sqrt(I); 
   while J < g loop

      if(I mod J = 0) THEN
         if(currentSpread > ((I/J - J)/2)) THEN
            currentSpread := ((I/J - J)/2);
            arrayBounds := J;
         end if;

      end if;

        J := J + 1;

   end loop;

   declare
     type newArray is array(Integer range <>, Integer range<>) of Integer;
      X : Integer := J;
      Y : Integer := I/J;
      Arr1 : newArray(1..Y, 1..X);
      Arr2 : newArray(1..X, 1..Y);
      finAnswer : newArray(1..X, 1..X);
   begin

      for z in 1 .. X loop
         for k in 1 .. Y loop
            Ada.Integer_Text_IO.Get(File => dataFile, Item => value);
            Arr1(z, k) := value;
         end loop;
      end loop;

      for z in 1 .. Y loop
         for k in 1 .. X loop
            Ada.Integer_Text_IO.Get(File => dataFile, Item => value);
            Arr2(z, k) := value;
         end loop;
      end loop;

      for l in 1 .. X loop
         for m in 1 .. Y loop
            for n in 1 .. X loop
               finAnswer(l, n) := finAnswer(l, n) + Arr1(l, n)* Arr2(n, m);
            end loop;
         end loop;
      end loop;
   end;



   Ada.Text_IO.Close(File => dataFile);
end Main;

我仅使用平方根来找出数字的因素。我现在的设置方式是上升到平方根，然后扩散最小的因素。我不在乎四舍五入的错误，如果它不是一个完美的正方形，也可以用任何一种方法进行四舍五入。

谢谢。