diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index d1e1d9526..aea531ea9 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 = "0"; public const string Build = "0"; - public const string Revision = "1074"; + public const string Revision = "1078"; 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 f61d6c35d..4990275ca 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ %MINOR%=0 -%REVISION%=1074 +%REVISION%=1078 %COREVERSION%=0 %MAJOR%=3 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index b2e352223..0f2a1b89b 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.0.0.1074' +!define VERSION '3.0.0.1078' diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index 3d3a62684..60b5d87b7 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -795,6 +795,8 @@ procedure WriteFormat(f: Text; formatstr: string; params args: array of object); ///и осуществляет переход на новую строку procedure WritelnFormat(f: Text; formatstr: string; params args: array of object); +/// Выводит значения s на экран +procedure Print(s: string); /// Выводит значения args на экран, выводя после каждого значения пробел procedure Print(params args: array of object); /// Выводит значения args на экран, выводя после каждого значения пробел, и переходит на новую строчку @@ -4860,6 +4862,11 @@ begin writeln(f, s); end; +procedure Print(s: string); +begin + write(s); +end; + procedure Print(params args: array of object); begin if args.Length = 0 then diff --git a/TestSuite/CompilationSamples/PT4.pas b/TestSuite/CompilationSamples/PT4.pas index c7220555e..d9ff83e25 100644 --- a/TestSuite/CompilationSamples/PT4.pas +++ b/TestSuite/CompilationSamples/PT4.pas @@ -306,23 +306,23 @@ procedure HideTask; /// Вводит n целых чисел /// и возвращает введенные числа в виде массива -function ReadArrInteger(n: integer): array of integer; +function ReadArrInteger(n: integer): array of integer; /// Вводит n вещественных чисел /// и возвращает введенные числа в виде массива -function ReadArrReal(n: integer): array of real; +function ReadArrReal(n: integer): array of real; /// Вводит n строк /// и возвращает введенные строки в виде массива -function ReadArrString(n: integer): array of string; +function ReadArrString(n: integer): array of string; /// Вводит n целых чисел /// и возвращает введенные числа в виде последовательности -function ReadSeqInteger(n: integer): System.Collections.Generic.IEnumerable; +function ReadSeqInteger(n: integer): System.Collections.Generic.IEnumerable; /// Вводит n вещественных чисел /// и возвращает введенные числа в виде последовательности -function ReadSeqReal(n: integer): System.Collections.Generic.IEnumerable; +function ReadSeqReal(n: integer): System.Collections.Generic.IEnumerable; /// Вводит n строк /// и возвращает введенные строки в виде последовательности @@ -330,11 +330,11 @@ function ReadSeqString(n: integer): System.Collections.Generic.IEnumerable; +function ReadSeqInteger(): System.Collections.Generic.IEnumerable; /// Вводит размер набора вещественных чисел и его элементы /// и возвращает введенный набор в виде последовательности -function ReadSeqReal(): System.Collections.Generic.IEnumerable; +function ReadSeqReal(): System.Collections.Generic.IEnumerable; /// Вводит размер набора строк и его элементы /// и возвращает введенный набор в виде последовательности @@ -342,19 +342,18 @@ function ReadSeqString(): System.Collections.Generic.IEnumerable; /// Вводит размер набора целых чисел и его элементы /// и возвращает введенный набор в виде массива -function ReadArrInteger(): array of integer; +function ReadArrInteger(): array of integer; /// Вводит размер набора вещественных чисел и его элементы /// и возвращает введенный набор в виде массива -function ReadArrReal(): array of real; +function ReadArrReal(): array of real; /// Вводит размер набора строк и его элементы /// и возвращает введенный набор в виде массива -function ReadArrString(): array of string; +function ReadArrString(): array of string; // == Конец дополнений к версии 4.14 == - implementation const @@ -1469,11 +1468,6 @@ begin PT4.Put(self[i,j]); end; -{procedure Proba(self: array of T); extensionmethod; -begin - PT4.Put(111); -end;} - /// Выводит в разделе отладки окна задачника /// комментарий cmt, размер последовательности и значения, /// полученные из элементов последовательности diff --git a/bin/Lib/PABCRtl.dll b/bin/Lib/PABCRtl.dll index c06ec27f5..66ea2f37a 100644 Binary files a/bin/Lib/PABCRtl.dll and b/bin/Lib/PABCRtl.dll differ diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 3d3a62684..60b5d87b7 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -795,6 +795,8 @@ procedure WriteFormat(f: Text; formatstr: string; params args: array of object); ///и осуществляет переход на новую строку procedure WritelnFormat(f: Text; formatstr: string; params args: array of object); +/// Выводит значения s на экран +procedure Print(s: string); /// Выводит значения args на экран, выводя после каждого значения пробел procedure Print(params args: array of object); /// Выводит значения args на экран, выводя после каждого значения пробел, и переходит на новую строчку @@ -4860,6 +4862,11 @@ begin writeln(f, s); end; +procedure Print(s: string); +begin + write(s); +end; + procedure Print(params args: array of object); begin if args.Length = 0 then diff --git a/bin/Lib/PT4.pas b/bin/Lib/PT4.pas index c7220555e..d9ff83e25 100644 --- a/bin/Lib/PT4.pas +++ b/bin/Lib/PT4.pas @@ -306,23 +306,23 @@ procedure HideTask; /// Вводит n целых чисел /// и возвращает введенные числа в виде массива -function ReadArrInteger(n: integer): array of integer; +function ReadArrInteger(n: integer): array of integer; /// Вводит n вещественных чисел /// и возвращает введенные числа в виде массива -function ReadArrReal(n: integer): array of real; +function ReadArrReal(n: integer): array of real; /// Вводит n строк /// и возвращает введенные строки в виде массива -function ReadArrString(n: integer): array of string; +function ReadArrString(n: integer): array of string; /// Вводит n целых чисел /// и возвращает введенные числа в виде последовательности -function ReadSeqInteger(n: integer): System.Collections.Generic.IEnumerable; +function ReadSeqInteger(n: integer): System.Collections.Generic.IEnumerable; /// Вводит n вещественных чисел /// и возвращает введенные числа в виде последовательности -function ReadSeqReal(n: integer): System.Collections.Generic.IEnumerable; +function ReadSeqReal(n: integer): System.Collections.Generic.IEnumerable; /// Вводит n строк /// и возвращает введенные строки в виде последовательности @@ -330,11 +330,11 @@ function ReadSeqString(n: integer): System.Collections.Generic.IEnumerable; +function ReadSeqInteger(): System.Collections.Generic.IEnumerable; /// Вводит размер набора вещественных чисел и его элементы /// и возвращает введенный набор в виде последовательности -function ReadSeqReal(): System.Collections.Generic.IEnumerable; +function ReadSeqReal(): System.Collections.Generic.IEnumerable; /// Вводит размер набора строк и его элементы /// и возвращает введенный набор в виде последовательности @@ -342,19 +342,18 @@ function ReadSeqString(): System.Collections.Generic.IEnumerable; /// Вводит размер набора целых чисел и его элементы /// и возвращает введенный набор в виде массива -function ReadArrInteger(): array of integer; +function ReadArrInteger(): array of integer; /// Вводит размер набора вещественных чисел и его элементы /// и возвращает введенный набор в виде массива -function ReadArrReal(): array of real; +function ReadArrReal(): array of real; /// Вводит размер набора строк и его элементы /// и возвращает введенный набор в виде массива -function ReadArrString(): array of string; +function ReadArrString(): array of string; // == Конец дополнений к версии 4.14 == - implementation const @@ -1469,11 +1468,6 @@ begin PT4.Put(self[i,j]); end; -{procedure Proba(self: array of T); extensionmethod; -begin - PT4.Put(111); -end;} - /// Выводит в разделе отладки окна задачника /// комментарий cmt, размер последовательности и значения, /// полученные из элементов последовательности