ReadBigInteger

Assign(input) - кодировка 1251

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "6";
 	public const string Build = "0";
-	public const string Revision = "2338";
+	public const string Revision = "2340";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %COREVERSION%=0
-%REVISION%=2338
+%REVISION%=2340
 %MINOR%=6
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.6.0.2338
+3.6.0.2340

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.6.0.2338'
+!define VERSION '3.6.0.2340'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -4892,7 +4892,7 @@ begin
     else // в sym ничего нет
     begin
       state := 1;
-      sym := tr.Read(); // считываение в буфер из одного символа
+      sym := Console.Read(); // считываение в буфер из одного символа
       Result := sym;
     end; 
   end;
@@ -4920,7 +4920,7 @@ begin
       sym := -1;
     end
     else // в sym ничего нет
-      Result := char(tr.Read());
+      Result := char(Console.Read());
     exit;  
   end;
 end;
@@ -6480,7 +6480,7 @@ begin
     f.sw := new StreamWriter(f.fi.FullName);
   if f = input then
   begin  
-    f.sr := new StreamReader(f.fi.FullName, Encoding.UTF8);
+    f.sr := new StreamReader(f.fi.FullName, DefaultEncoding);
     (CurrentIOSystem as IOStandardSystem).tr := f.sr;
     _IsPipedRedirected := True;
     _IsPipedRedirectedQuery := True;

bin/Lib/PABCSystem.pas

@@ -307,6 +307,7 @@ type
     procedure read(var x: uint64);
     procedure read(var x: single);
     procedure read(var x: boolean);
+    procedure read(var x: BigInteger);
     procedure readln;
     function ReadLine: string;
     function ReadLexem: string;
@@ -341,6 +342,7 @@ type
     procedure read(var x: uint64); virtual;
     procedure read(var x: single); virtual;
     procedure read(var x: boolean); virtual;
+    procedure read(var x: BigInteger); virtual;
     procedure readln; virtual;
     function ReadLine: string; virtual;
     function ReadLexem: string; virtual;
@@ -618,6 +620,8 @@ procedure Read(var x: uint64);
 procedure Read(var x: single);
 ///--
 procedure Read(var x: boolean);
+///--
+procedure Read(var x: BigInteger);
 ///- procedure Readln(a,b,...);
 /// Вводит значения a,b,... с клавиатуры и осуществляет переход на следующую строку
 procedure Readln;
@@ -642,6 +646,8 @@ function TryRead(var x: int64): boolean;
 function TryRead(var x: uint64): boolean;
 ///--
 function TryRead(var x: single): boolean;
+///--
+function TryRead(var x: BigInteger): boolean;
 
 /// Возвращает значение типа integer, введенное с клавиатуры
 function ReadInteger: integer;
@@ -655,6 +661,8 @@ function ReadChar: char;
 function ReadString: string;
 /// Возвращает значение типа boolean, введенное с клавиатуры
 function ReadBoolean: boolean;
+/// Возвращает значение типа BigInteger, введенное с клавиатуры
+function ReadBigInteger: BigInteger;
 /// Возвращает следующую лексему
 function ReadLexem: string;
 
@@ -670,6 +678,9 @@ function ReadlnChar: char;
 function ReadlnString: string;
 /// Возвращает значение типа boolean, введенное с клавиатуры, и переходит на следующую строку ввода
 function ReadlnBoolean: boolean;
+/// Возвращает значение типа BigInteger, введенное с клавиатуры, и переходит на следующую строку ввода
+function ReadlnBigInteger: BigInteger;
+
 
 /// Возвращает кортеж из двух значений типа integer, введенных с клавиатуры
 function ReadInteger2: (integer, integer);
@@ -4892,7 +4903,7 @@ begin
     else // в sym ничего нет
     begin
       state := 1;
-      sym := tr.Read(); // считываение в буфер из одного символа
+      sym := Console.Read(); // считываение в буфер из одного символа
       Result := sym;
     end; 
   end;
@@ -4920,7 +4931,7 @@ begin
       sym := -1;
     end
     else // в sym ничего нет
-      Result := char(tr.Read());
+      Result := char(Console.Read());
     exit;  
   end;
 end;
@@ -5232,6 +5243,11 @@ begin
   else raise new System.FormatException('Входная строка имела неверный формат');
 end;
 
+procedure IOStandardSystem.read(var x: BigInteger);
+begin
+  x := Biginteger.Parse(ReadLexem)
+end;
+
 procedure IOStandardSystem.readln; 
 begin
   // while CurrentIOSystem.read_symbol <> END_OF_LINE_SYMBOL do; // было
@@ -5360,6 +5376,11 @@ begin
   CurrentIOSystem.read(x)
 end;
 
+procedure Read(var x: BigInteger);
+begin
+  CurrentIOSystem.read(x)
+end;
+
 function TryRead(var x: integer): boolean;
 begin
   Result := True;
@@ -5370,6 +5391,16 @@ begin
   end
 end;
 
+function TryRead(var x: BigInteger): boolean;
+begin
+  Result := True;
+  try
+    Read(x)
+  except
+    Result := False;
+  end
+end;
+
 function TryRead(var x: real): boolean;
 begin
   Result := True;
@@ -5490,6 +5521,11 @@ begin
   Read(Result);
 end;
 
+function ReadBigInteger: BigInteger;
+begin
+  Read(Result);
+end;
+
 function ReadlnInteger: integer;
 begin
   Result := ReadInteger;
@@ -5525,6 +5561,13 @@ begin
   Readln();
 end;
 
+function ReadlnBigInteger: BigInteger;
+begin
+  Result := ReadBigInteger;
+  Readln();
+end;
+
+
 function ReadInteger2 := (ReadInteger, ReadInteger);
 
 function ReadReal2 := (ReadReal, ReadReal);
@@ -6480,7 +6523,7 @@ begin
     f.sw := new StreamWriter(f.fi.FullName);
   if f = input then
   begin  
-    f.sr := new StreamReader(f.fi.FullName, Encoding.UTF8);
+    f.sr := new StreamReader(f.fi.FullName, DefaultEncoding);
     (CurrentIOSystem as IOStandardSystem).tr := f.sr;
     _IsPipedRedirected := True;
     _IsPipedRedirectedQuery := True;