Question

Даны натуральное N и квадратная вещественная матрица А. Вычислить K-ю степень этой матрицы: А1=А, А2=А·А, А3=А2·А, А4=А3·А, А5=А4·A и т.д.

Answer 1

uses NumLibABC;

begin

 var n := ReadInteger(' n =');

 var M := MatrRandomReal(n, n, -9, 9);

 M.Transform(p -> Round(p,1));

 var Mx := new Matrix(M);

 Mx.Println(5, 1);

 var k := ReadInteger('k =');

 if k > 1 then

 begin

   var Mr := Mx;

   for var i := 2 to k do

     Mx :=  Mr * Mx

 end;

 Mx.Println(20,5)

end.