Merge branch 'master' of https://github.com/pascalabcnet/pascalabcnet

spectatorBH · Sep 21, 2023 · 7058ac4 · 7058ac4
2 parents 09e2138 + 7b9f968
commit 7058ac4
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
@@ -2406,7 +2406,7 @@ function MatrRandom(m: integer := 5; n: integer := 5; a: integer := 0; b: intege
 /// Возвращает двумерный массив размера m x n, заполненный случайными целыми значениями
 function MatrRandomInteger(m: integer := 5; n: integer := 5; a: integer := 0; b: integer := 100): array [,] of integer;
 /// Возвращает двумерный массив размера m x n, заполненный случайными вещественными значениями
-function MatrRandomReal(m: integer := 5; n: integer := 5; a: real := 0; b: real := 10): array [,] of real;
+function MatrRandomReal(m: integer := 5; n: integer := 5; a: real := 0; b: real := 10; digits: integer := 2): array [,] of real;
 /// Возвращает двумерный массив размера m x n, заполненный элементами gen(i,j) 
 function MatrGen<T>(m, n: integer; gen: (integer,integer)->T): array [,] of T;
 /// Возвращает двумерный массив размера m x n, заполненный элементами x 
@@ -11696,12 +11696,12 @@ function MatrRandomInteger(m: integer; n: integer; a, b: integer): array [,] of
       Result[i, j] := Random(a, b);
 end;
 
-function MatrRandomReal(m: integer; n: integer; a, b: real): array [,] of real;
+function MatrRandomReal(m: integer; n: integer; a, b: real; digits: integer): array [,] of real;
 begin
   Result := new real[m, n];
   for var i := 0 to Result.RowCount - 1 do
     for var j := 0 to Result.ColCount - 1 do
-      Result[i, j] := Random() * (b - a) + a;
+      Result[i, j] := RandomReal(a,b,digits);
 end;
 
 function MatrFill<T>(m, n: integer; x: T): array [,] of T;

diff --git a/bin/Lib/PABCSystem.xml b/bin/Lib/PABCSystem.xml
@@ -1141,19 +1141,19 @@
     <member name="M:TypedFileRead(PABCSystem.TypedFile)">
       <summary>--</summary>
     </member>
-    <member name="M:FilePos(@file)">
+    <member name="M:FilePos(PABCSystem.BinaryFile)">
       <summary>--</summary>
     </member>
-    <member name="M:FileSize(@file)">
+    <member name="M:FileSize(PABCSystem.BinaryFile)">
       <summary>--</summary>
     </member>
-    <member name="M:Seek(@file,System.Int64)">
+    <member name="M:Seek(PABCSystem.BinaryFile,System.Int64)">
       <summary>--</summary>
     </member>
-    <member name="M:BinaryFileInit(@file@)">
+    <member name="M:BinaryFileInit(PABCSystem.BinaryFile@)">
       <summary>--</summary>
     </member>
-    <member name="M:BinaryFileRead(@file@,System.Type)">
+    <member name="M:BinaryFileRead(PABCSystem.BinaryFile@,System.Type)">
       <summary>--</summary>
     </member>
     <member name="M:PascalABCVersion">
@@ -2403,7 +2403,7 @@
     <member name="M:MatrRandomInteger(System.Int32,System.Int32,System.Int32,System.Int32)">
       <summary>Возвращает двумерный массив размера m x n, заполненный случайными целыми значениями</summary>
     </member>
-    <member name="M:MatrRandomReal(System.Int32,System.Int32,System.Double,System.Double)">
+    <member name="M:MatrRandomReal(System.Int32,System.Int32,System.Double,System.Double,System.Int32)">
       <summary>Возвращает двумерный массив размера m x n, заполненный случайными вещественными значениями</summary>
     </member>
     <member name="M:MatrGen``1(System.Int32,System.Int32,System.Func{System.Int32,System.Int32,``0})">