From 935ab613be0750b30666ce77b9006ef958437bc0 Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Sat, 12 Aug 2023 21:38:41 +0300 Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=B5=D1=80=D0=B5=D0=B3=D0=B5=D0=BD?= =?UTF-8?q?=D0=B5=D1=80=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BB=20=D1=81=D0=BF?= =?UTF-8?q?=D1=80=D0=B0=D0=B2=D0=BA=D1=83?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Configuration/GlobalAssemblyInfo.cs | 2 +- Configuration/Version.defs | 4 +- .../Files/Extension methods for List T.html | 3 + .../Files/Extension methods for Tuple.html | 55 ++ .../Files/Math subroutines.html | 3 + ...Subroutines for array of T generation.html | 8 +- .../Subroutines for sequence generation.html | 2 +- PABCNetHelp/Table of Contents New.hhc | 820 +++++++++--------- Release/pabcversion.txt | 2 +- ReleaseGenerators/PascalABCNET_version.nsh | 2 +- TestSuite/CompilationSamples/PABCSystem.pas | 137 +-- .../TreeConversion/syntax_tree_visitor.cs | 2 +- _GenerateLinuxVersion.bat | 1 + bin/Lib/PABCSystem.pas | 131 +-- bin/PascalABCNET.chm | Bin 2996222 -> 3003566 bytes 15 files changed, 634 insertions(+), 538 deletions(-) create mode 100644 PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for Tuple.html diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index edfe9c175..bc2c53800 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -15,7 +15,7 @@ internal static class RevisionClass public const string Major = "3"; public const string Minor = "9"; public const string Build = "0"; - public const string Revision = "3335"; + public const string Revision = "3340"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index f1016e0ae..2a2c87a3f 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%MINOR%=9 -%REVISION%=3335 %COREVERSION%=0 +%REVISION%=3340 +%MINOR%=9 %MAJOR%=3 diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for List T.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for List T.html index d2f0854d8..cabcde8da 100644 --- a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for List T.html +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for List T.html @@ -6,6 +6,7 @@ + @@ -39,6 +40,8 @@
        Возвращает индекс последнего минимального элемента в диапазоне [0,index-1] function LastIndexMin<T>(Self: List<T>): integer; where T: IComparable<T>;
        Возвращает индекс последнего минимального элемента +function RandomElement<T>(Self: List<T>): T; +
        Возвращает случайный элемент списка function RemoveLast<T>(Self: List<T>): List<T>;
        Удаляет последний элемент. Если элементов нет, генерирует исключение procedure Replace<T>(Self: List<T>; oldValue, newValue: T); diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for Tuple.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for Tuple.html new file mode 100644 index 000000000..c0079f37f --- /dev/null +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for Tuple.html @@ -0,0 +1,55 @@ + + + + + + +

Методы расширения типа Tuple

+ + + + + + + + + + + + + + + + + + + + + + + +
function Add<T1, T2, T3>(Self: (T1, T2); v: T3): (T1, T2, T3); +
        Добавляет поле к кортежу
function Add<T1, T2, T3, T4>(Self: (T1, T2, T3); v: T4): (T1, T2, T3, T4); +
        Добавляет поле к кортежу
function Add<T1, T2, T3, T4, T5>(Self: (T1, T2, T3, T4); v: T5): (T1, T2, T3, T4, T5); +
        Добавляет поле к кортежу
function Add<T1, T2, T3, T4, T5, T6>(Self: (T1, T2, T3, T4, T5); v: T6): (T1, T2, T3, T4, T5, T6); +
        Добавляет поле к кортежу
function Add<T1, T2, T3, T4, T5, T6, T7>(Self: (T1, T2, T3, T4, T5, T6); v: T7): (T1, T2, T3, T4, T5, T6, T7); +
        Добавляет поле к кортежу
procedure Print<T1, T2>(Self: (T1, T2)); +
        Выводит кортеж
procedure Print<T1, T2, T3>(Self: (T1, T2, T3)); +
        Выводит кортеж
procedure Print<T1, T2, T3, T4>(Self: (T1, T2, T3, T4)); +
        Выводит кортеж
procedure Print<T1, T2, T3, T4, T5>(Self: (T1, T2, T3, T4, T5)); +
        Выводит кортеж
procedure Print<T1, T2, T3, T4, T5, T6>(Self: (T1, T2, T3, T4, T5, T6)); +
        Выводит кортеж
procedure Print<T1, T2, T3, T4, T5, T6, T7>(Self: (T1, T2, T3, T4, T5, T6, T7)); +
        Выводит кортеж
procedure Println<T1, T2>(Self: (T1, T2)); +
        Выводит кортеж и переходит на новую строку
procedure Println<T1, T2, T3>(Self: (T1, T2, T3)); +
        Выводит кортеж и переходит на новую строку
procedure Println<T1, T2, T3, T4>(Self: (T1, T2, T3, T4)); +
        Выводит кортеж и переходит на новую строку
procedure Println<T1, T2, T3, T4, T5>(Self: (T1, T2, T3, T4, T5)); +
        Выводит кортеж и переходит на новую строку
procedure Println<T1, T2, T3, T4, T5, T6>(Self: (T1, T2, T3, T4, T5, T6)); +
        Выводит кортеж и переходит на новую строку
procedure Println<T1, T2, T3, T4, T5, T6, T7>(Self: (T1, T2, T3, T4, T5, T6, T7)); +
        Выводит кортеж и переходит на новую строку
function ToArray<T>(Self: (T,T)): array of T; +
        Преобразует кортеж элементов одного типа в массив
function ToArray<T>(Self: (T,T,T)): array of T; +
        Преобразует кортеж элементов одного типа в массив
function ToArray<T>(Self: (T,T,T,T)): array of T; +
        Преобразует кортеж элементов одного типа в массив
function ToArray<T>(Self: (T,T,T,T,T)): array of T; +
        Преобразует кортеж элементов одного типа в массив
function ToArray<T>(Self: (T,T,T,T,T,T)): array of T; +
        Преобразует кортеж элементов одного типа в массив
function ToArray<T>(Self: (T,T,T,T,T,T,T)): array of T; +
        Преобразует кортеж элементов одного типа в массив
+ \ No newline at end of file diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Math subroutines.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Math subroutines.html index d0df05ac7..21b92c818 100644 --- a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Math subroutines.html +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Math subroutines.html @@ -25,6 +25,7 @@ + @@ -148,6 +149,8 @@
        Инициализирует датчик псевдослучайных чисел, используя значение seed. При одном и том же seed генерируются одинаковые псевдослучайные последовательности procedure Randomize;
        Инициализирует датчик псевдослучайных чисел +function RandomReal(a, b: real; digits: integer := 2): real; +
        Возвращает случайное вещественное в диапазоне [a,b] c количеством значащих цифр после точки, равным digits function Round(x: real): integer;
        Возвращает x, округленное до ближайшего целого. Если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление): Round(2.5)=2, Round(3.5)=4 function Round(x: real; digits: integer): real; diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for array of T generation.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for array of T generation.html index 6d528e8b5..27d7f2fdf 100644 --- a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for array of T generation.html +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for array of T generation.html @@ -32,12 +32,12 @@ function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями function ArrRandomInteger(n: integer; a: integer; b: integer): array of integer; -
        Возвращает массив размера n, заполненный случайными целыми значениями +
        Возвращает массив размера n, заполненный случайными целыми значениями в диапазоне от a до b function ArrRandomInteger(n: integer := 10): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями -function ArrRandomReal(n: integer; a: real; b: real): array of real; -
        Возвращает массив размера n, заполненный случайными вещественными значениями -function ArrRandomReal(n: integer := 10): array of real; +function ArrRandomReal(n: integer; a: real; b: real; digits: integer := 2): array of real; +
        Возвращает массив размера n, заполненный случайными вещественными значениями в диапазоне от a до b +function ArrRandomReal(n: integer := 10; digits: integer := 2): array of real;
        Возвращает массив размера n, заполненный случайными вещественными значениями function ReadArrInt64(n: integer): array of int64;
        Возвращает массив из n целых int64, введенных с клавиатуры diff --git a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for sequence generation.html b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for sequence generation.html index e99f1abec..ab7570deb 100644 --- a/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for sequence generation.html +++ b/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for sequence generation.html @@ -73,7 +73,7 @@
        Возвращает последовательность из n случайных целых элементов function SeqRandomInteger(n: integer := 10; a: integer := 0; b: integer := 100): sequence of integer;
        Возвращает последовательность из n случайных целых элементов -function SeqRandomReal(n: integer := 10; a: real := 0; b: real := 10): sequence of real; +function SeqRandomReal(n: integer := 10; a: real := 0; b: real := 10; digits: integer := 1): sequence of real;
        Возвращает последовательность из n случайных вещественных элементов function SeqWhile<T>(first: T; next: T->T; pred: T->boolean): sequence of T;
        Возвращает последовательность элементов с начальным значением first,функцией next перехода от предыдущего к следующему и условием pred продолжения последовательности diff --git a/PABCNetHelp/Table of Contents New.hhc b/PABCNetHelp/Table of Contents New.hhc index 0e670c3e2..108348b33 100644 --- a/PABCNetHelp/Table of Contents New.hhc +++ b/PABCNetHelp/Table of Contents New.hhc @@ -9,881 +9,885 @@