From ae8a005b6a30cf11e17870d869930acc6aa389a5 Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Tue, 3 Feb 2026 11:21:17 +0300 Subject: [PATCH] =?UTF-8?q?=D0=92=D1=80=D0=B5=D0=BC=D0=B5=D0=BD=D0=BD?= =?UTF-8?q?=D0=BE=20=D1=83=D0=B4=D0=B0=D0=BB=D0=B8=D0=BB=20=D0=BF=D1=80?= =?UTF-8?q?=D0=B8=D0=BC=D0=B5=D1=80=D1=8B=20=D0=B8=D0=B7=20=D0=BD=D0=B5?= =?UTF-8?q?=D1=81=D1=83=D1=89=D0=B5=D1=81=D1=82=D0=B2=D1=83=D1=8E=D1=89?= =?UTF-8?q?=D0=B5=D0=B9=20Whats=20New=203.10.4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- InstallerSamples/WhatsNew/3_10_4/InRange.pas | 12 ---------- .../WhatsNew/3_10_4/IsOrdered1.pas | 23 ------------------- .../WhatsNew/3_10_4/exit_param1.pas | 8 ------- .../WhatsNew/3_10_4/exit_param2.pas | 13 ----------- .../WhatsNew/3_10_4/exit_param3.pas | 12 ---------- .../WhatsNew/3_10_4/exit_param4.pas | 15 ------------ 6 files changed, 83 deletions(-) delete mode 100644 InstallerSamples/WhatsNew/3_10_4/InRange.pas delete mode 100644 InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas delete mode 100644 InstallerSamples/WhatsNew/3_10_4/exit_param1.pas delete mode 100644 InstallerSamples/WhatsNew/3_10_4/exit_param2.pas delete mode 100644 InstallerSamples/WhatsNew/3_10_4/exit_param3.pas delete mode 100644 InstallerSamples/WhatsNew/3_10_4/exit_param4.pas diff --git a/InstallerSamples/WhatsNew/3_10_4/InRange.pas b/InstallerSamples/WhatsNew/3_10_4/InRange.pas deleted file mode 100644 index fb408e993..000000000 --- a/InstallerSamples/WhatsNew/3_10_4/InRange.pas +++ /dev/null @@ -1,12 +0,0 @@ -begin - // Поведение изменено!! Теперь диапазон [6,2] считается пустым - 5.InRange(6,2).Println; - - // Универсальная InRange. Должен поддерживаться интерфейс IEnumerable - InRange(5,2,6).Println; - - var dt1 := DateTime.Create(2025,04,16); - var dt2 := DateTime.Create(2025,04,29); - var dt3 := DateTime.Now; - InRange(dt2,dt1,dt3).Println; -end. \ No newline at end of file diff --git a/InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas b/InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas deleted file mode 100644 index c7890adf8..000000000 --- a/InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas +++ /dev/null @@ -1,23 +0,0 @@ -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. \ No newline at end of file diff --git a/InstallerSamples/WhatsNew/3_10_4/exit_param1.pas b/InstallerSamples/WhatsNew/3_10_4/exit_param1.pas deleted file mode 100644 index b80388847..000000000 --- a/InstallerSamples/WhatsNew/3_10_4/exit_param1.pas +++ /dev/null @@ -1,8 +0,0 @@ -function fff: integer; -begin - exit(3) -end; - -begin - Print(fff()); -end. \ No newline at end of file diff --git a/InstallerSamples/WhatsNew/3_10_4/exit_param2.pas b/InstallerSamples/WhatsNew/3_10_4/exit_param2.pas deleted file mode 100644 index e6d8401d4..000000000 --- a/InstallerSamples/WhatsNew/3_10_4/exit_param2.pas +++ /dev/null @@ -1,13 +0,0 @@ -function IsPrime(n: integer): boolean; -begin - if n < 2 then exit(False); - for var i:=2 to n.Sqrt.Trunc do - if n.Divs(i) then - exit(False); - exit(True); -end; - -begin - IsPrime(17).Print; - IsPrime(1).Print; -end. diff --git a/InstallerSamples/WhatsNew/3_10_4/exit_param3.pas b/InstallerSamples/WhatsNew/3_10_4/exit_param3.pas deleted file mode 100644 index 0829699b2..000000000 --- a/InstallerSamples/WhatsNew/3_10_4/exit_param3.pas +++ /dev/null @@ -1,12 +0,0 @@ -begin - var IsPrime: integer → boolean := n → begin - if n < 2 then exit(False); - for var i:=2 to n.Sqrt.Trunc do - if n.Divs(i) then - exit(False); - exit(True); - end; - - IsPrime(17).Print; - IsPrime(1).Print; -end. diff --git a/InstallerSamples/WhatsNew/3_10_4/exit_param4.pas b/InstallerSamples/WhatsNew/3_10_4/exit_param4.pas deleted file mode 100644 index ba17ecf39..000000000 --- a/InstallerSamples/WhatsNew/3_10_4/exit_param4.pas +++ /dev/null @@ -1,15 +0,0 @@ -function FastPower(a: real; n: integer): real; -begin - if n = 0 then exit(1); // a^0 = 1 - if n = 1 then exit(a); // a^1 = a - if n < 0 then exit(1 / FastPower(a, -n)); // отрицательная степень - - var half := FastPower(a, n div 2); - if n mod 2 = 0 then exit(half * half); // чётная степень - exit(half * half * a); // нечётная -end; - -begin - Writeln('2^10 = ', FastPower(2, 10)); // 1024 - Writeln('3^-2 = ', FastPower(3, -2)); // 0.111... -end. \ No newline at end of file