Удалил папку _Presentations

Compiler/RemoteCompiler.cs

@@ -359,13 +359,15 @@ namespace PascalABCCompiler
             pabcnetcProcess.StandardInput.WriteLine(command);
         }
         
+        /*
+         * Не используется!
         void sendObject(int id, object o)
         {
             sendCommand(id);
             MemoryStream ms = new MemoryStream();
             (new BinaryFormatter()).Serialize(ms, o);
             ms.WriteTo(pabcnetcProcess.StandardInput.BaseStream);            
-        }
+        }*/
 
         void sendCompilerOptions()
         {

Configuration/GlobalAssemblyInfo.cs

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=11
-%REVISION%=3715
+%REVISION%=3717
 %COREVERSION%=0
 %MAJOR%=3

LanguageIntegrator/LanguageIntegrator.cs

@@ -148,7 +148,9 @@ namespace Languages.Integration
         /// <returns></returns>
         private static ILanguage InstantiateLanguageAndAddToLanguagesList(FileInfo languageFile)
         {
-            Assembly assembly = Assembly.LoadFile(languageFile.FullName);
+            // Assembly assembly = Assembly.LoadFile(languageFile.FullName);
+            // SSM 02.01.2026 Поменял для net 9.0 иначе падение - не загружался PascalABCParser
+            Assembly assembly = Assembly.LoadFrom(languageFile.FullName);
 
             Type[] types = assembly.GetTypes();
 

Release/pabcversion.txt

@@ -1 +1 @@
-3.11.0.3715
+3.11.0.3717

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.11.0.3715'
+!define VERSION '3.11.0.3717'

_Presentations/2015 New Features/Programs/01_old_new-1.pas

@@ -1,11 +0,0 @@
-function fact(n: integer): integer;
-begin
-  result := 1;
-  for var i:=1 to n do
-    result *= i;
-end;
-
-begin
-  var n := ReadInteger('Введите n:');
-  writeln('n!=',fact(n));  
-end.

_Presentations/2015 New Features/Programs/01_old_new-2.pas

@@ -1,18 +0,0 @@
-function fact(n: integer): integer;
-var p: integer;
-    i: integer;
-begin
-  p := 1;
-  for i:=1 to n do
-    p := p * i;
-  fact := p;  
-end;
-
-var 
-  n: integer;
-  p: integer;    
-
-begin
-  read(n);
-  writeln('n!=',fact(n));
-end.

_Presentations/2015 New Features/Programs/01_old_new.pas

@@ -1,12 +0,0 @@
-function fact(n: integer): integer;
-begin
-  var p := 1;
-  for var i:=1 to n do
-    p *= i;
-  result := p;
-end;
-
-begin
-  var n := ReadInteger('Введите n:');
-  writeln('n!=',fact(n));  
-end.

_Presentations/2015 New Features/Programs/02_print.pas

@@ -1,13 +0,0 @@
-const n=20;
-
-begin
-  var a := 1;
-  var b := 1;
-  for var i:=3 to n do
-  begin
-    var c := a + b;
-    Print(c);
-    a := b;
-    b := c;
-  end;
-end.

_Presentations/2015 New Features/Programs/03_case_string-1.pas

@@ -1,16 +0,0 @@
-var Country: string;
-
-begin
-  read(Country);
-  write('Столица: ');
-  
-  if Country = 'Россия' then
-    writeln('Москва')
-  else if Country = 'Франция' then
-    writeln('Париж')
-  else if Country = 'Италия' then
-    writeln('Рим')
-  else if Country = 'Германия' then
-    writeln('Берлин')
-  else writeln('Нет в базе данных'); 
-end.

_Presentations/2015 New Features/Programs/03_case_string.pas

@@ -1,11 +0,0 @@
-begin
-  var Country := ReadString('Введите страну:');
-  write('Столица: ');
-  case Country of
-    'Россия': writeln('Москва');
-    'Франция': writeln('Париж');
-    'Италия': writeln('Рим');
-    'Германия': writeln('Берлин');
-    else writeln('Страны нет в базе данных'); 
-  end;
-end.

_Presentations/2015 New Features/Programs/04_BigInteger.pas

@@ -1,6 +0,0 @@
-begin
-  var p: BigInteger := 1;
-  for var i:=2 to 100 do
-    p *= i;
-  writeln('100!=',p)  
-end.

_Presentations/2015 New Features/Programs/05_WriteArr-1.pas

@@ -1,15 +0,0 @@
-var a: array [1..3] of integer := (2,3,5);
-
-var p: record 
-  name: string;
-  age: integer;
-end;
-
-var s: set of integer := [1,3,7];
-
-begin
-  p.name := 'Иванов'; p.age := 20;
-  writeln(a); 
-  writeln(p);
-  writeln(s);
-end.

_Presentations/2015 New Features/Programs/05_WriteArr-2.pas

@@ -1,26 +0,0 @@
-var a: array [1..3] of integer;
-
-var p: record 
-  name: string;
-  age: integer;
-end;
-
-var s: set of byte;
-
-var i: integer;
-
-begin
-  a[1] := 2; a[2] := 3; a[3] := 5;
-  p.name := 'Иванов'; p.age := 20;
-  s := [1,3,7];
-
-  for i:=1 to 3 do
-    write(a[i],' ');
-  writeln;
-  
-  writeln(p.name,' ',p.age);
-  
-  for i:=0 to 255 do
-    if i in s then
-      write(i,' ');
-end.

_Presentations/2015 New Features/Programs/05_WriteArr.pas

@@ -1,16 +0,0 @@
-var a: array [1..3] of integer;
-
-var p: record 
-  name: string;
-  age: integer;
-end;
-
-begin
-  a[1] := 2; a[2] := 3; a[3] := 5;
-  p.name := 'Иванов'; p.age := 20;
-  writeln(a); 
-  writeln(p);
-  
-  var points := Seq(Rec(1,2),Rec(7,3),Rec(9,4));
-  writeln(points);
-end.

_Presentations/2015 New Features/Programs/06_ShortFunc.pas

@@ -1,20 +0,0 @@
-function Sqr3(x: integer) := x*x*x;
-
-function CircleLen(r: real): real := 2 * Pi * r;
-
-function Hypot(a,b: real) := sqrt(a*a + b*b);
-
-function Len(x1,y1,x2,y2: real) := Hypot(x2-x1,y2-y1);
-
-function DigitCount(x: integer) := abs(x).ToString.Length;
-
-function Ìèíèìóì(a,b,c: real): real := Min(Min(a,b),c);
-
-procedure Âûâîä<ËþáîéÒèï>(x: ËþáîéÒèï) := Println(x);
-
-begin
-  Println(Sqr3(2),CircleLen(1));
-  Println(Hypot(3,4),Len(1,1,3,4));
-  Println(DigitCount(-1234));
-  Âûâîä(Ìèíèìóì(5,3,8));
-end.

_Presentations/2015 New Features/Programs/06a_GetType.pas

@@ -1,12 +0,0 @@
-begin
-  var c := 'z';
-  var i := 123;
-  var r := 3.14;
-  var s := 'PascalABC.NET';
-  var a := Arr(1,2,3);
-  writeln(c.GetType);
-  writeln(i.GetType);
-  writeln(r.GetType);
-  writeln(s.GetType);
-  writeln(a.GetType);
-end.

_Presentations/2015 New Features/Programs/07_Draw-1.pas

@@ -1,17 +0,0 @@
-uses GraphABC;
-
-begin
-  Window.Title := 'Ãðàôèêè ôóíêöèé';
-  Draw(sin);
-
-  var r := Rect(0,0,200,100);
-
-  r.Offset(120,10);
-  Draw(sqr, r);
-
-  r.Offset(0,110);
-  Draw(abs,-5,5,r);
-
-  r.Offset(200,200);
-  Draw(exp,0,5,r);
-end.

_Presentations/2015 New Features/Programs/07_Draw.pas

@@ -1,14 +0,0 @@
-uses GraphABC;
-
-begin
-  Window.Title := 'Ãðàôèêè ôóíêöèé';
-  Draw(sin);
-  Draw(-5,5,320,250,520,350,abs);
-  Draw(0,5,320,370,520,470,exp);
-  
-  var r := Rect(120,10,320,110);
-  Draw(r, sqr);
-  
-  r.Y := r.Y + 120;
-  Draw(r, x -> x*cos(3*x));
-end.

_Presentations/2015 New Features/Programs/08_Rec-1.pas

@@ -1,12 +0,0 @@
-type Pupil = record
-  name: string;
-  age: integer;
-end;
-
-var p: Pupil;
-
-begin
-  p.name := 'Петрова';
-  p.age := 18;
-  writeln(p.name,' ',p.age);
-end.

_Presentations/2015 New Features/Programs/08_Rec-2.pas

@@ -1,4 +0,0 @@
-begin
-  var p := Rec('Петрова',18);
-  Println(p, p.Item1, p.Item2);
-end.

_Presentations/2015 New Features/Programs/08_Rec.pas

@@ -1,18 +0,0 @@
-type Pupil = record
-  name: string;
-  age: integer;
-  procedure Init(n: string; a: integer);
-  begin
-    name := n;
-    age := a;
-  end;
-end;
-
-var p: Pupil;
-
-begin
-  p.Init('Петрова',18);
-  writeln(p);
-  var r := Rec('Иванов',13);
-  Println(r, r.Item1, r.Item2);
-end.

_Presentations/2015 New Features/Programs/09-1_DynArr.pas

@@ -1,14 +0,0 @@
-var a: array of integer;
-
-begin
-  a := Seq(2,5,7,10);
-  writeln(a);
-  a := SeqRandom(10);
-  writeln(a);
-  var b := Seq('a','e','i','o','u','y');
-  writeln(b);
-  a := SeqFill(1,5);
-  writeln(a);
-  a := ReadSeqInteger(5);
-  writeln(a);
-end.

_Presentations/2015 New Features/Programs/09-2_DynArr.pas

@@ -1,30 +0,0 @@
-var a: array [1..10] of integer;
-    b: array [1..6] of char;
-    i: integer;
-begin
-  a[1] := 2; a[2] := 5; 
-  a[3] := 7; a[4] := 10;
-  for i:=1 to 4 do
-    write(a[i],' ');
-  writeln;
-  b[1] := 'a'; b[2] := 'e'; b[3] := 'i'; 
-  b[4] := 'o'; b[5] := 'u'; b[6] := 'y'; 
-  for i:=1 to 6 do
-    write(b[i],' ');
-  writeln;
-  Randomize;
-  for i:=1 to 10 do
-    a[i] := Random(100);
-  for i:=1 to 10 do
-    write(a[i],' ');
-  writeln;
-  for i:=1 to 5 do
-    a[i] := 1;
-  for i:=1 to 5 do
-    write(a[i],' ');
-  writeln;
-  for i:=1 to 5 do
-    read(a[i]);
-  for i:=1 to 5 do
-    write(a[i],' ');
-end.

_Presentations/2015 New Features/Programs/09-3_DynArr.pas

@@ -1,8 +0,0 @@
-begin
-  var a := Seq(2,5,3,1,9,7);
-  writeln(a);
-  Sort(a);
-  writeln(a);
-  Reverse(a);
-  writeln(a);
-end.

_Presentations/2015 New Features/Programs/09-4_DynArr.pas

@@ -1,36 +0,0 @@
-const n = 6;
-
-var a: array [1..n] of integer;
-    i,j,t: integer;
-begin
-  a[1] := 2; a[2] := 5; a[3] := 3; 
-  a[4] := 1; a[5] := 9; a[6] := 7;
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  for i:=1 to n-1 do
-    for j:=n downto 2 do
-      if a[j-1]>a[j] then
-      begin
-        t := a[j-1];
-        a[j-1] := a[j];
-        a[j] := t;
-      end;
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  for i:=1 to n div 2 do
-  begin
-    t := a[i];
-    a[i] := a[n-i+1];
-    a[n-i+1] := t
-  end;
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-end.

_Presentations/2015 New Features/Programs/09_0_DynArr_Methods2.pas

@@ -1,4 +0,0 @@
-begin
-  var a := SeqRandom(10,1,10);
-  a.Println.Sorted.Println.Distinct.Println;
-end.

_Presentations/2015 New Features/Programs/09_DynArr-1.pas

@@ -1,15 +0,0 @@
-function SquareElems(a: array of integer): array of integer;
-begin
-  SetLength(Result,a.Length);
-  for var i:=0 to a.Length-1 do
-    Result[i] := sqr(a[i]);
-end;
-
-var a: array of integer;
-
-begin
-  a := Seq(2,5,7,10);
-  a := SquareElems(a);
-  foreach var x in a do
-    Print(x);
-end.

_Presentations/2015 New Features/Programs/09_DynArr-2.pas

@@ -1,22 +0,0 @@
-const n = 10;
-
-type IntArr = array [1..n] of integer;
-
-procedure SquareElems(const a: IntArr; 
-  n: integer; var Result: IntArr);
-begin
-  for var i:=1 to n do
-    Result[i] := sqr(a[i]);
-end;
-
-const m = 4;
-
-var a,Result: IntArr;
-    i: integer;
-begin
-  a[1] := 2; a[2] := 5; 
-  a[3] := 7; a[4] := 10;
-  SquareElems(a,m,Result);
-  for i:=1 to m do
-    write(Result[i],' ');
-end.

_Presentations/2015 New Features/Programs/09_DynArr.pas

@@ -1,17 +0,0 @@
-var a: array of integer;
-
-begin
-  a := Seq(2,5,7,10);
-  writeln(a);
-  a := SeqRandom();
-  a.Println;
-  var b := Seq('a','e','i','o','u','y');
-  writeln(b);
-  a := SeqFill(666,5);
-  writeln(a);
-  a := SeqFill(10,i->i*i+1);
-  writeln(a);
-//  a := ReadSeqInteger(5); 
-  a := SeqGen(1,x->x*2,10);  
-  a.Println;
-end.

_Presentations/2015 New Features/Programs/09a_DynMatrix-1.pas

@@ -1,31 +0,0 @@
-type
-  Matr = array [1..10,1..10] of integer;
-
-procedure Transpose(const a: Matr; 
-  m,n: integer; var b: Matr);
-var i,j: integer;
-begin
-  for i:=1 to n do
-  for j:=1 to m do
-    b[i,j] := a[j,i]  
-end;
-
-var a,b: Matr;
-    m,n,i,j: integer;
-        
-begin
-  m := 3;
-  n := 4;
-  for i:=1 to 3 do
-  for j:=1 to 4 do
-    a[i,j] := Random(100);  
-
-  Transpose(a,m,n,b);
-  
-  for i:=1 to n do
-  begin
-    for j:=1 to m do
-      write(b[i,j],' ');  
-    writeln;  
-  end;
-end.

_Presentations/2015 New Features/Programs/09a_DynMatrix.pas

@@ -1,17 +0,0 @@
-function Transpose(a: array[,] of integer): 
-  array[,] of integer;
-begin
-  var m := Length(a,0);
-  var n := Length(a,1);
-  Result := new integer[n,m];
-  for var i:=0 to n-1 do
-  for var j:=0 to m-1 do
-    Result[i,j] := a[j,i]  
-end;
-
-begin
-  var a := MatrixRandom(3,4);
-  writeln(a);
-  var b := Transpose(a);
-  writeln(b);
-end.

_Presentations/2015 New Features/Programs/10_Ext-1.pas

@@ -1,7 +0,0 @@
-begin
-  var a := SeqRandom();
-  a.Println;
-  a.Sorted().Println(', ');
-  Println(a.Min,a.Max);
-  Println(a.Sum,a.Average);
-end.

_Presentations/2015 New Features/Programs/10_Ext-2.pas

@@ -1,43 +0,0 @@
-const n = 10;
-
-var a,b: array [1..n] of integer;
-    i,j,t,min,max,sum: integer;
-    av: real;
-begin
-  for i:=1 to n do
-    a[i] := Random(100);
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  b := a;
-  for i:=1 to n-1 do
-    for j:=n downto 2 do
-      if b[j-1]>b[j] then
-      begin
-        t := b[j-1];
-        b[j-1] := b[j];
-        b[j] := t;
-      end;
-
-  for i:=1 to n do
-    write(b[i],', ');
-  writeln;
-
-  min := MaxInt;
-  max := -MaxInt;
-  sum := 0;
-  for i:=1 to n do
-  begin
-    if a[i]<min then
-      min := a[i];
-    if a[i]>max then
-      max := a[i];
-    sum := sum + a[i];
-  end;
-  av := sum/n;
-
-  writeln(min,' ',max);
-  writeln(sum,' ',av);
-end.

_Presentations/2015 New Features/Programs/10_Ext.pas

@@ -1,9 +0,0 @@
-begin
-  var a := SeqRandom(10,1,9);
-  a.Println;
-  Println(a.Min,a.Max,a.Sum);
-  a.Take(5).Println;
-  a.Skip(5).Println;
-  
-  a.Where(x->x mod 2 = 0).Select(x->x*x).Println;
-end.

_Presentations/2015 New Features/Programs/11_Range.pas

@@ -1,16 +0,0 @@
-begin
-  Range(1,10).Println;
-  Range(1,20,2).Println(',');
-  Range('a','z').Println;
-  Range(1.0,2.0,10).Println;
-  
-  var sum := Range(1,10,2).Select(i -> i*i).Sum();
-
-  sum := 0;
-  var i := 1;
-  while i<=10 do
-  begin
-    sum += i*i;
-    i += 2;
-  end;
-end.

_Presentations/2015 New Features/Programs/12_Range - 1.pas

@@ -1,8 +0,0 @@
-function IsPrime(x: integer): boolean;
-begin
-  Result := Range(2,Round(sqrt(x))).All(i->x mod i <> 0)
-end;
-
-begin
-  Range(2,1000).Where(IsPrime).Print;
-end.

_Presentations/2015 New Features/Programs/12_Range - 2.pas

@@ -1,19 +0,0 @@
-function IsPrime(x: integer): boolean;
-var i: integer;
-begin
-  for i:=2 to Round(sqrt(x)) do
-    if x mod i = 0 then
-    begin
-      IsPrime := False;
-      exit
-    end;
-  IsPrime := True;  
-end;
-
-var i: integer;
-
-begin
-  for i:=2 to 1000 do
-    if IsPrime(i) then
-      write(i,' ');
-end.

_Presentations/2015 New Features/Programs/12_Range - 3.pas

@@ -1,3 +0,0 @@
-begin
-  Range(2,1000).Where(x->Range(2,Round(sqrt(x))).All(i->x mod i <> 0)).Print;
-end.

_Presentations/2015 New Features/Programs/12_Range.pas

@@ -1,8 +0,0 @@
-function IsPrime(n: integer): boolean;
-begin
-  Result := Range(2,Round(sqrt(n))).All(i->n mod i <> 0)
-end;
-
-begin
-  Range(2,1000).Where(IsPrime).Print;
-end.

_Presentations/2015 New Features/Programs/12a_Range.pas

@@ -1,3 +0,0 @@
-begin
-  Range(1.0,2.0,10).Select(x->Rec(x,x*x)).Println(NewLine);
-end.

_Presentations/2015 New Features/Programs/13_Files1.pas

@@ -1,13 +0,0 @@
-var 
-  f: Text;
-  s: string;
-begin
-  Assign(f,'13_Files1.pas');
-  Reset(f);
-  while not eof(f) do
-  begin
-    readln(f,s);
-    writeln(s);
-  end;
-  Close(f);
-end.

_Presentations/2015 New Features/Programs/13_Files2.pas

@@ -1,9 +0,0 @@
-begin
-  var f := OpenRead('13_Files2.pas');
-  while not f.Eof do
-  begin
-    var s := f.ReadlnString;
-    writeln(s);
-  end;
-  f.Close;
-end.

_Presentations/2015 New Features/Programs/13_Files3.pas

@@ -1,3 +0,0 @@
-begin
-  ReadLines('13_Files3.pas').Print(NewLine);
-end.

_Presentations/2015 New Features/Programs/13_Files4.pas

@@ -1,4 +0,0 @@
-begin
-  foreach var s in ReadLines('13_Files4.pas') do
-    writeln(s);
-end.

_Presentations/2015 New Features/Programs/14_FilesStr1.pas

@@ -1,23 +0,0 @@
-var 
-  f: text;
-  s,kind: string;
-  num,p: integer;
-  freq: real;
-  ch: char;
-
-begin
-  assign(f,'freqs.txt');  
-  reset(f);
-  while not eof(f) do
-  begin
-    read(f,num,freq);
-    read(f,ch);
-    readln(f,s);
-    p := Pos(' ',s);
-    kind := Copy(s,p+1,100);
-    s := Copy(s,1,p-1);
-    if kind = 'verb' then
-      writeln(s);
-  end;
-  close(f);
-end.

_Presentations/2015 New Features/Programs/14_FilesStr2.pas

@@ -1,10 +0,0 @@
-begin
-  var f := OpenRead('freqs.txt');  
-  while not f.Eof do
-  begin
-    var ss := f.ReadlnString.ToWords;
-    if ss[3] = 'verb' then
-      writeln(ss[2]);
-  end;
-  f.Close;
-end.

_Presentations/2015 New Features/Programs/14_FilesStr3.pas

@@ -1,8 +0,0 @@
-begin
-  foreach var s in ReadLines('freqs.txt') do
-  begin
-    var ss := s.ToWords;
-    if ss[3] = 'verb' then
-      writeln(ss[2]);
-  end;
-end.

_Presentations/2015 New Features/Programs/14_FilesStr4-1.pas

@@ -1,7 +0,0 @@
-begin
-  var lines := ReadLines('freqs.txt');
-  var ss := lines.Select(s->s.ToWords());
-  var verblines := ss.Where(ss->ss[3] = 'verb');
-  var onlyverbs := verblines.Select(ss->ss[2]);
-  onlyverbs.Print(NewLine);
-end.

_Presentations/2015 New Features/Programs/14_FilesStr4.pas

@@ -1,5 +0,0 @@
-begin
-  ReadLines('freqs.txt').Select(s->s.ToWords()).
-    Where(ss->ss[3] = 'verb').
-    Select(ss->ss[2]).Print(NewLine);
-end.

_Presentations/2015 New Features/Programs/15_Dict.pas

@@ -1,14 +0,0 @@
-begin
-  var dct := Dict(KV('цвет','color'));
-  foreach var s in ReadLines('translations.txt') do
-  begin
-    var ss := s.ToWords;
-    dct.Add(ss[0],ss[1]);
-  end;
-  writeln(dct);
-  
-  var word := ReadString('Введите слово:');
-  if dct.ContainsKey(word) then
-    Println('Перевод:',dct[word])
-  else Println('Нет такого слова!')  
-end.

_Presentations/2015 New Features/Programs/15_Dict_old.pas

@@ -1,8 +0,0 @@
-begin
-  var d := Dict('бегемот'=>2,'попугай'=>3,'крокодил'=>1);
-  Println(d);
-
-  var Capital := Dict('Россия'=>'Москва','Франция'=>'Париж',
-    'Италия'=>'Рим','Германия'=>'Берлин');
-  Println(Capital['Италия'],Capital['Франция']);
-end.

_Presentations/2015 New Features/Programs/16_List.pas

@@ -1,11 +0,0 @@
-begin
-  var a := SeqRandom();
-  a.Println;
-  
-  var l := new List<integer>;
-  foreach var x in a do
-    if x mod 2 = 0 then
-      l.Add(x);
-      
-  l.Println;
-end.

_Presentations/2015 New Features/Programs/16_List_Old.pas

@@ -1,21 +0,0 @@
-const n = 10;
-var a,b: array [1..n] of integer;
-    nb: integer;
-begin
-  for var i:=1 to n do
-    a[i] := Random(10);
-  for var i:=1 to n do
-    write(a[i],' ');
-  writeln;  
-  
-  nb := 0;
-  for var i:=1 to n do
-    if a[i] mod 2 = 0 then
-    begin
-      nb := nb + 1;
-      b[nb] := a[i]
-    end;
-      
-  for var i:=1 to nb do
-    write(b[i],' ');
-end.

_Presentations/2015 New Features/Programs/17_Dict_begin_end.pas

@@ -1,5 +0,0 @@
-begin
-  var d := Dict('begin'=>0, 'end'=>0);
-  var ss := ReadAllText('14_FilesStr1.pas').ToWords().Where(s-> (s='begin') or (s='end'));
-  ss.Println;
-end.

_Presentations/2015 New Features/Programs/18_List_InsertDelete - 1.pas

@@ -1,29 +0,0 @@
-const m = 20;
-
-var a: array [1..m] of integer;
-    n: integer;
-
-begin
-  n := 10;
-  for var i:=1 to n do
-    a[i] := Random(100);
-  for var i:=1 to n do
-    write(a[i],' ');
-  writeln;  
-
-  n += 1;
-  for var i:=n downto 5 do
-    a[i+1] := a[i];
-  a[5] := 777777;
-  
-  for var i:=1 to n do
-    write(a[i],' ');
-  writeln;  
-
-  for var i:=1 to n-1 do
-    a[i] := a[i+1];
-  n -= 1;  
-
-  for var i:=1 to n do
-    write(a[i],' ');
-end.

_Presentations/2015 New Features/Programs/18_List_InsertDelete.pas

@@ -1,9 +0,0 @@
-begin
-  var l := new List<integer>;
-  l.AddRange(SeqRandom());
-  l.Println;
-  l.Insert(5,777777);
-  l.Println;
-  l.RemoveAt(0);
-  l.Println;
-end.

_Presentations/2015 New Features/Programs/19_Gra1.pas

@@ -1,11 +0,0 @@
-uses GraphABC;
-
-begin
-  Window.Title := 'Прозрачность и рисунок';
-  Brush.Color := Color.BlueViolet;
-  Rectangle(50,50,200,150);
-  Brush.Color := ARGB(128,50,200,0);
-  Circle(200,130,50);
-  
-  Draw('Dog.png',300,50,0.5)
-end.

_Presentations/2015 New Features/Programs/19_Gra2.pas

@@ -1,5 +0,0 @@
-uses GraphABC;
-
-begin
-  Draw('Dog.png',0,0,0.5);
-end.

_Presentations/2015 New Features/Programs/19_Gra3.pas

@@ -1,11 +0,0 @@
-uses GraphABC;
-
-procedure MouseMove(x,y,mb: integer);
-begin
-  if mb=1 then
-    Circle(x,y,Random(5,25))
-end;
-
-begin
-  OnMouseMove := MouseMove;
-end.

_Presentations/2015 New Features/Programs/19_Gra4.pas

@@ -1,17 +0,0 @@
-uses ABCObjects,GraphABC;
-
-var star := new StarABC(320,240,50,20,5,Color.Green);
-
-procedure KeyDown(key: integer);
-begin
-  case key of
-vk_left:  star.Left -= 5;
-vk_right: star.Left += 5;
-vk_up:    star.Top -= 5;
-vk_down:  star.Top += 5;
-  end;
-end;
-
-begin
-  OnKeyDown := KeyDown;
-end.

_Presentations/2015 New Features/Programs/20_Sort_Rev-1.pas

@@ -1,36 +0,0 @@
-const n = 6;
-
-var a: array [1..n] of integer;
-    i,j,t: integer;
-begin
-  a[1] := 2; a[2] := 5; a[3] := 3; 
-  a[4] := 1; a[5] := 9; a[6] := 7;
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  for i:=1 to n-1 do
-    for j:=n downto 2 do
-      if a[j-1]>a[j] then
-      begin
-        t := a[j-1];
-        a[j-1] := a[j];
-        a[j] := t;
-      end;
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  for i:=1 to n div 2 do
-  begin
-    t := a[i];
-    a[i] := a[n-i+1];
-    a[n-i+1] := t
-  end;
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-end.

_Presentations/2015 New Features/Programs/20_Sort_Rev.pas

@@ -1,7 +0,0 @@
-begin
-  var a := Seq(2,5,3);
-  Sort(a);
-  writeln(a);
-  Reverse(a);
-  writeln(a);
-end.

_Presentations/2015 New Features/Programs/21_Set1.pas

@@ -1,9 +0,0 @@
-var ss1,ss2: set of string;
-  
-begin
-  ss1 := ['планшет','смартфон','ноутбук'];
-  ss2 := ['смартфон','компьютер','планшет'];
-  writeln('Объединение: ',ss1+ss2);
-  writeln('Пересечение: ',ss1*ss2);
-  writeln('Разность:    ',ss1-ss2);
-end.

_Presentations/2015 New Features/Programs/22_Str0-1.pas

@@ -1,15 +0,0 @@
-var s: string;
-    i: integer;
-begin
-  s := 'ABCDEFGH';
-  s := s + 'IJK';
-  for i:=1 to Length(s) do
-    write(s[i],' ');
-  writeln;
-  Str(12345,s);
-  
-  s := '';
-  for i:=1 to 10 do
-    s := s + 'a';
-  writeln(s);
-end.

_Presentations/2015 New Features/Programs/22_Str0.pas

@@ -1,11 +0,0 @@
-var s: string;
-  
-begin
-  s := 'ABCDEFGH';
-  s += 'IJK';
-  foreach var c in s do
-    Print(c);
-  Println;
-  s := ''+12345; // число преобразуется в строку
-  writeln('a'*10); // строка повторяется 10 раз
-end.

_Presentations/2015 New Features/Programs/22_Str1.pas

@@ -1,12 +0,0 @@
-var s: string;
-  
-begin
-  s := 'ABCDEFGH';
-  writeln(LowerCase(s));
-  writeln(ReverseString(s));
-  writeln(RightStr(s,5));
-  writeln(StringOfChar('a',10));
-  
-  s := IntToStr(12345);
-  var i: integer := StrToInt(s);
-end.

_Presentations/2015 New Features/Programs/22_Str2.pas

@@ -1,16 +0,0 @@
-var s: string;
-  
-begin
-  s := 'ABCDEFGH';
-  writeln(s.Length);
-  writeln(s.ToLower);
-  writeln(s.Inverse);
-  s := 'красный зеленый синий красный';
-  writeln(s.Replace('красный','желтый'));
-  
-  s := '12345';
-  var i: integer := s.ToInteger;
-  Print(i);
-  s := i.ToString;
-  Println(s);
-end.

_Presentations/2015 New Features/Programs/22_Str3.pas

@@ -1,11 +0,0 @@
-begin
-  var s := 'красный оранжевый желтый зеленый голубой синий фиолетовый';
-  var ss: array of string := s.ToWords;
-  ss.Println;
-  Reverse(ss);
-  ss.Println;
-  Sort(ss);
-  ss.Println;
-  s := string.Join('-',ss);
-  writeln(s);
-end.

_Presentations/2015 New Features/Programs/23_Stack1.pas

@@ -1,11 +0,0 @@
-begin
-  var s := '23 6 72 * +';
-  var st := new Stack<integer>;
-  foreach var w in s.ToWords do
-    case w[1] of
-  '0'..'9': st.Push(w.ToInteger);
-  '+': st.Push(st.Pop+st.Pop);
-  '*': st.Push(st.Pop*st.Pop);
-    end;
-   writeln(st.Pop); 
-end.

_Presentations/2015 New Features/Programs/24_Queue1.pas

@@ -1,31 +0,0 @@
-uses GraphABC;
-
-procedure FloodFill(x,y: integer);
-begin
-  var c := Color.Green;
-  var q := new Queue<Point>;
-  q.Enqueue(Pnt(x,y));
-  var v := 1;
-  while q.Count<>0 do
-  begin
-    var p := q.Dequeue;
-    SetPixel(p.x,p.y,c);
-    writeln(v);
-    
-    v += 1;
-    writeln(GetPixel(x-1,y).Equals(Color.White));
-    exit;
-    if GetPixel(x-1,y)<>Color.White then q.Enqueue(Pnt(x-1,y));
-    if GetPixel(x+1,y)=Color.White then q.Enqueue(Pnt(x+1,y));
-    if GetPixel(x,y-1)=Color.White then q.Enqueue(Pnt(x,y-1));
-    if GetPixel(x,y+1)=Color.White then q.Enqueue(Pnt(x,y+1));
-  end;
-end;
-
-begin
-  SetPixel(100,100,Color.White);
-  writeln(GetPixel(100,100).Equals(Color.White));
-  {SetSmoothingOff;
-  Circle(100,100,50);  
-  FloodFill(72,72);}
-end.

_Presentations/2015 New Features/Programs/25_lambda0.pas

@@ -1,10 +0,0 @@
-function MyFun(x: real): real := 3*x-2;
-
-var f: RealFunc;
-
-begin
-  f := MyFun;
-  writeln(f(2));
-  f := sqrt;
-  writeln(f(2));
-end.

_Presentations/2015 New Features/Programs/25_lambda1-1.pas

@@ -1,24 +0,0 @@
-const n = 5;
-
-var a,b: array [1..n] of integer;
-    i: integer;
-
-function f(x: integer): integer;
-begin
-  f := x*x;
-end;    
-    
-begin
-  a[1] := 1; a[2] := 5; a[3] := 2; 
-  a[4] := 6; a[5] := 7; 
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  for i:=1 to n do
-    b[i] := f(a[i]);
-
-  for i:=1 to n do
-    write(b[i],' ');
-end.

_Presentations/2015 New Features/Programs/25_lambda1-1_Filter.pas

@@ -1,29 +0,0 @@
-const n = 5;
-
-var a,b: array [1..n] of integer;
-    i,bn: integer;
-
-function p(x: integer): boolean;
-begin
-  p := x mod 2 <> 0;
-end;    
-    
-begin
-  a[1] := 1; a[2] := 5; a[3] := 2; 
-  a[4] := 6; a[5] := 7; 
-
-  for i:=1 to n do
-    write(a[i],' ');
-  writeln;
-
-  bn := 0;
-  for i:=1 to n do
-    if p(a[i]) then
-    begin
-      bn := bn + 1;
-      b[bn] := a[i];
-    end;
-
-  for i:=1 to bn do
-    write(b[i],' ');
-end.

_Presentations/2015 New Features/Programs/25_lambda1.pas

@@ -1,6 +0,0 @@
-begin
-  var a := Seq(1,5,2,6,7);
-  a.Println;
-  var b := a.Select(x->x*x);
-  b.Println;
-end.

_Presentations/2015 New Features/Programs/25_lambda1_Filter.pas

@@ -1,6 +0,0 @@
-begin
-  var a := Seq(1,5,2,6,7);
-  a.Println;
-  var b := a.Where(x->x mod 2 <> 0);
-  b.Println;
-end.

_Presentations/2015 New Features/Programs/25_lambda2.pas

@@ -1,9 +0,0 @@
-begin
-  var a := Seq(1,2,3,4,5);
-  a.Println;
-  var z := 10;
-  var b := a.Select(x->x+z);
-  b.Println;
-  z := 20;
-  b.Println;
-end.

_Presentations/2015 New Features/Programs/25_lambda3.pas

@@ -1,14 +0,0 @@
-procedure PrintTable(f: RealFunc; a,b: real; n: integer);
-begin
-  var h := (b-a)/n;
-  var x := a;
-  for var i:=0 to n do
-  begin
-    writeln(x:3:1,f(x):7:2);
-    x += h;       
-  end;
-end;
-
-begin
-  PrintTable(sqr,0,5,10); 
-end.

_Presentations/2015 New Features/Programs/25_lambda4.pas

@@ -1,3 +0,0 @@
-begin
-  SeqFill(10,i->i*i).Println;
-end.

_Presentations/2015 New Features/Programs/25_lambda5.pas

@@ -1,5 +0,0 @@
-begin
-  SeqGen(1,x->x+2,10).Println;
-  SeqGen(1,x->x*2,10).Println;
-  SeqGen(1,1,(x,y)->x+y,10).Println;
-end.

_Presentations/2015 New Features/Programs/QuickSortLinq3.pas

@@ -1,13 +0,0 @@
-function QuickSort(a: sequence of integer): sequence of integer;
-begin
-  Result := a.Count = 0 ? a : 
-    QuickSort(a.Skip(1).Where(x -> x <= a.First))
-    + a.First + 
-    QuickSort(a.Skip(1).Where(x -> x > a.First));
-end;  
-
-begin
-  var a := ArrRandom(20);
-  a.Println;
-  QuickSort(a).Println;
-end.

_Presentations/2015 New Features/Programs/_QS5.pas

@@ -1,20 +0,0 @@
-function QuickSort(a: sequence of integer): sequence of integer;
-begin
-  if a.Count = 0 then
-    Result := a
-  else
-  begin
-    var f := a.First();
-    var sm := QuickSort(a.Skip(1).Where(x->x<=f));
-    var la := QuickSort(a.Skip(1).Where(x->x>f));
-    Result := sm + f + la
-  end;
-end;
-
-begin
-  var a := ArrRandom(1000);
-  writeln(MillisecondsDelta);
-  var b := QuickSort(a);
-  //b.Println;
-  writeln(MillisecondsDelta);
-end.

_Presentations/2015 New Features/Programs/translations.txt

@@ -1,11 +0,0 @@
-ěŕřčíŕ car
-ęđóă circle
-çîîďŕđę zoo
-đó÷ęŕ pen
-ńîáŕęŕ dog
-ęîřęŕ cat
-ëŕěďŕ lamp
-ěűřü mouse
-đóęŕ hand
-äĺâî÷ęŕ girl
-ěŕëü÷čę boy

bin/Lib/math.pys

@@ -1,6 +1,6 @@
 import PABCSystem
 
-pi = 3.14159265358979
+pi: float = 3.14159265358979
 
 def sqrt(x: float) -> float:
     return PABCSystem.sqrt(x)