PT4 - новые dll файлы старых заданий серий A

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 = "3524";
+	public const string Revision = "3527";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=3524
 %MINOR%=9
+%REVISION%=3527
+%COREVERSION%=0
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.9.0.3524
+3.9.0.3527

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.9.0.3524'
+!define VERSION '3.9.0.3527'

TestSuite/CompilationSamples/PABCExtensions.pas

@@ -409,12 +409,6 @@ begin
     Result += x;
 end;}
 
-/// Функция создания множества set по указанным значениям
-function SetOf<T>(params a: array of T): set of T;
-begin
-  Result := TypedSet.InitBy(a);
-end;
-
 ///--
 function operator implicit(a: array of integer): set of integer; extensionmethod := TypedSet.InitBy(a);
 ///--

TestSuite/CompilationSamples/PABCSystem.pas

@@ -2501,6 +2501,9 @@ function HSet(a: CharRange): HashSet<char>;
 function HSetInt(params a: array of integer): HashSet<integer>;
 /// Возвращает множество на базе хеш таблицы, заполненное строковыми значениями
 function HSetStr(params a: array of string): HashSet<string>;
+/// Возвращает множество, заполненное указанными значениями
+function SetOf<T>(params a: array of T): HashSet<T>;
+
 
 /// Возвращает множество на базе бинарного дерева поиска, заполненное указанными значениями 
 function SSet<T>(params a: array of T): SortedSet<T>;
@@ -5847,6 +5850,8 @@ function HSet(a: IntRange): HashSet<integer> := new HashSet<integer>(a);
 
 function HSet(a: CharRange): HashSet<char> := new HashSet<char>(a);
 
+function SetOf<T>(params a: array of T): HashSet<T> := new HashSet<T>(a);
+
 
 function Dict<TKey, TVal>(params pairs: array of KeyValuePair<TKey, TVal>): Dictionary<TKey, TVal>;
 begin

TestSuite/CompilationSamples/School.pas

@@ -1,4 +1,4 @@
-/// Учебный модуль, реализующий базовые алгоритмы информатики (01.08.2024)
+/// Учебный модуль, реализующий базовые алгоритмы информатики (05.08.2024)
 unit School;
 
 interface
@@ -167,10 +167,13 @@ function Dec(str: string; base: integer): int64;
 /// Перевод из системы по основанию base [2..36] в десятичную
 function DecBig(str: string; base: integer): BigInteger;
 
-/// Перевод BigInteger в систему счисления по основанию base (2..36)
+/// Перевод десятичного int64 в систему счисления по основанию base (2..36)
+function ToBase(number: int64; base: integer): string;
+
+/// Перевод десятичного BigInteger в систему счисления по основанию base (2..36)
 function ToBase(number: BigInteger; base: integer): string;
 
-/// Перевод десятичного числа в систему счисления по основанию base (2..36)
+/// Перевод десятичного string в систему счисления по основанию base (2..36)
 function ToBase(str: string; base: integer): string;
 
 /// Возвращает кортеж из минимума и максимума последовательности
@@ -468,13 +471,13 @@ function Dec(str: string; base: integer): int64;
 begin
   if not (base in 2..36) then
     raise new School_InvalidBase
-    ($'ToDecimal: Недопустимое основание {base}');
+    ($'Dec: Недопустимое основание {base}');
   str := str.ToUpper;
   var invalid_chars := 
     str.Except(valid_chars[:base + 1]).JoinToString;
   if invalid_chars.Length > 0 then
     raise new School_BadCharInString
-    ($'ToDecimal: Недопустимые символы "{invalid_chars}"');
+    ($'Dec: Недопустимые символы "{invalid_chars}"');
   var rank_weight := 1bi;
   var res := 0bi;
   foreach var char in str.Reverse do
@@ -490,13 +493,13 @@ function DecBig(str: string; base: integer): BigInteger;
 begin
   if not (base in 2..36) then
     raise new School_InvalidBase
-    ($'ToDecimal: Недопустимое основание {base}');
+    ($'DecBig: Недопустимое основание {base}');
   str := str.ToUpper;
   var invalid_chars := 
     str.Except(valid_chars[:base + 1]).JoinToString;
   if invalid_chars.Length > 0 then
     raise new School_BadCharInString
-    ($'ToDecimal: Недопустимые символы "{invalid_chars}"');
+    ($'DecBig: Недопустимые символы "{invalid_chars}"');
   var rank_weight := 1bi;
   Result := 0bi;
   foreach var char in str.Reverse do
@@ -511,12 +514,31 @@ end;
 
 {$region ToBase}
 
-/// Перевод BigInteger в систему счисления по основанию base (2..36)
+/// Перевод десятичного int64 в систему счисления по основанию base (2..36)
+function ToBase(number: int64; base: integer): string;
+begin
+  if not (base in 2..36) then
+    raise new School_InvalidBase
+    ($'ToBase: Недопустимое основание {base}');
+  var sb := new System.Text.StringBuilder('');
+  while number > 0 do 
+  begin
+    sb.Insert(0, valid_chars[number mod base + 1]);
+    number := number div base
+  end;
+  Result := if sb.Length = 0 then '0'
+    else sb.ToString
+end;
+
+/// Перевод десятичного int64 в систему счисления по основанию base (2..36)
+function ToBase(Self: int64; base: integer): string; extensionmethod := ToBase(Self, base);
+
+/// Перевод десятичного BigInteger в систему счисления по основанию base (2..36)
 function ToBase(number: BigInteger; base: integer): string;
 begin
   if not (base in 2..36) then
     raise new School_InvalidBase
-    ($'ToDecimal: Недопустимое основание {base}');
+    ($'ToBase: Недопустимое основание {base}');
   var sb := new System.Text.StringBuilder('');
   while number > 0 do 
   begin
@@ -527,24 +549,22 @@ begin
     else sb.ToString
 end;
 
-/// Перевод BigInteger в систему счисления по основанию base (2..36)
-function ToBase(Self: BigInteger; base: integer): string; extensionmethod :=
-ToBase(Self, base);
+/// Перевод десятичного BigInteger в систему счисления по основанию base (2..36)
+function ToBase(Self: BigInteger; base: integer): string; extensionmethod := ToBase(Self, base);
 
-/// Перевод десятичного числа в систему счисления по основанию base (2..36)
+/// Перевод десятичного string в систему счисления по основанию base (2..36)
 function ToBase(str: string; base: integer): string;
 begin
   if not (base in 2..36) then
     raise new School_InvalidBase
-    ($'ToDecimal: Недопустимое основание {base}');
+    ($'ToBase: Недопустимое основание {base}');
   var number: BigInteger;
   if BigInteger.TryParse(str, number) then
     Result := ToBase(number, base)
 end;
 
-/// Перевод десятичного числа в систему счисления по основанию base (2..36)
-function ToBase(Self: string; base: integer): string; extensionmethod :=
-ToBase(Self, base);
+/// Перевод десятичного string в систему счисления по основанию base (2..36)
+function ToBase(Self: string; base: integer): string; extensionmethod := ToBase(Self, base);
 
 {$endregion}
 

TestSuite/CompilationSamples/Turtle.pas

@@ -15,7 +15,7 @@ type
   end;
 
 var 
-  CurrentPen := ColorPen(Colors.Black,1);
+  CurrentPen := ColorPen(Colors.Black,1.4);
 
 {$region Класс координатной сетки FS}