administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Временно удалил примеры из несуществующей Whats New

Browse source 
3.10.4
This commit is contained in:
Mikhalkovich Stanislav 2026-02-03 11:21:17 +03:00
parent d9697b8d84
commit ae8a005b6a
6 changed files with 0 additions and 83 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
InstallerSamples/WhatsNew/3_10_4/InRange.pas
View file

@ -1,12 +0,0 @@
begin
// Поведение изменено!! Теперь диапазон [6,2] считается пустым
5.InRange(6,2).Println;
// Универсальная InRange. Должен поддерживаться интерфейс IEnumerable<T>
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.

23
InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas
View file

@ -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.

8
InstallerSamples/WhatsNew/3_10_4/exit_param1.pas
View file

@ -1,8 +0,0 @@
function fff: integer;
begin
exit(3)
end;
begin
Print(fff());
end.

13
InstallerSamples/WhatsNew/3_10_4/exit_param2.pas
View file

@ -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.

12
InstallerSamples/WhatsNew/3_10_4/exit_param3.pas
View file

@ -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.

15
InstallerSamples/WhatsNew/3_10_4/exit_param4.pas
View file

@ -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.