From 7b9f968669273b84db6071d596b5e593b331e2c9 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Thu, 21 Sep 2023 11:12:57 +0300
Subject: [PATCH] MatrRandomReal digits

---
 bin/Lib/PABCSystem.pas |  6 +++---
 bin/Lib/PABCSystem.xml | 12 ++++++------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 0bbdd1393..d35e555b3 100644
--- 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 @@ begin
       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
index 6bb762c4d..3adcf9962 100644
--- 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})">