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

School - исправление пустого диапазона простых и IP-адресов

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-02-27 19:15:08 +03:00
parent 9fd4c7f338
commit 0d37232d21
7 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

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

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=3422
%MINOR%=9
%REVISION%=3425
%COREVERSION%=0
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3422
3.9.0.3425

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3422'
!define VERSION '3.9.0.3425'

5
TestSuite/CompilationSamples/School.pas
View file

@ -1,4 +1,4 @@
/// Учебный модуль, реализующий базовые алгоритмы информатики (04.11.2023)
/// Учебный модуль, реализующий базовые алгоритмы информатики (27.02.2024)
unit School;
interface
@ -763,6 +763,7 @@ begin
if prime > n then break;
if prime >= m then Result.Add(prime)
end;
if Result.Count = 0 then exit;
m := Result[^1] + 1;
if m >= n then exit
end;
@ -1440,7 +1441,7 @@ function CalcIP.GenAddr: sequence of Addr32;
begin
var n := n_hosts;
if n > 0 then
for var i := 0 to n_hosts - 1 do
for var i := 1 to n_hosts do
yield network32 + i
else yield sequence Seq&<Addr32>;
end;

5
bin/Lib/School.pas
View file

@ -1,4 +1,4 @@
/// Учебный модуль, реализующий базовые алгоритмы информатики (04.11.2023)
/// Учебный модуль, реализующий базовые алгоритмы информатики (27.02.2024)
unit School;
interface
@ -763,6 +763,7 @@ begin
if prime > n then break;
if prime >= m then Result.Add(prime)
end;
if Result.Count = 0 then exit;
m := Result[^1] + 1;
if m >= n then exit
end;
@ -1440,7 +1441,7 @@ function CalcIP.GenAddr: sequence of Addr32;
begin
var n := n_hosts;
if n > 0 then
for var i := 0 to n_hosts - 1 do
for var i := 1 to n_hosts do
yield network32 + i
else yield sequence Seq&<Addr32>;
end;