Исправлены библиотеки PT4Exam

This commit is contained in:
Mikhalkovich Stanislav 2025-05-14 19:57:30 +03:00
parent 40bfc046a8
commit 04059ab235
10 changed files with 31 additions and 6 deletions

View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "10";
public const string Build = "3";
public const string Revision = "3621";
public const string Revision = "3626";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

View file

@ -1,4 +1,4 @@
%MINOR%=10
%REVISION%=3621
%COREVERSION%=3
%REVISION%=3626
%MINOR%=10
%MAJOR%=3

View file

@ -0,0 +1,23 @@
type
Player = auto class
Name: string; Points: integer;
end;
function GetPlayers := [
new Player('Alice', 120),
new Player('Bob', 95),
new Player('Charlie', 130),
new Player('Diana', 110)
];
begin
var leaderboard := GetPlayers;
Println(leaderboard);
if not leaderboard.IsOrderedByDescending(p -> p.Points) then
Println('Рейтинг составлен неверно!');
leaderboard := leaderboard.OrderByDescending(p -> p.Points).ToArray;
Println(leaderboard);
if leaderboard.IsOrderedByDescending(p -> p.Points) then
Println('Теперь рейтинг составлен неверно!');
end.

View file

@ -1 +1 @@
3.10.3.3621
3.10.3.3626

View file

@ -1 +1 @@
!define VERSION '3.10.3.3621'
!define VERSION '3.10.3.3626'

View file

@ -1786,6 +1786,8 @@ type
if real.IsNaN(YTicks) then
YTicks := Ticks(max-min);
var th := TextHeightP('0');
if title<>'' then
th := TextHeightP(title);
var tw := GetRY0.Step(YTicks).TakeWhile(ry -> ry <= max).Select(y -> TextWidthP(y.Round(YTicksPrecision).ToString)).Max;
var dd := TextWidthP(b.Round(xTicksPrecision).ToString)/2;
@ -2556,4 +2558,4 @@ initialization
__InitModule;
finalization
end.
end.

Binary file not shown.

Binary file not shown.