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