Основные отличия PascalABC.NET

PascalABC.NET имеет базовую совместимость с Turbo Pascal, что должно было позволить портировать старые программы с меньшим трудом. Однако, благодаря этому, сложилась тенденция, использовать PascalABC.NET только в стиле Turbo Pascal и игнорировать современные конструкции. Тут я хочу коротко изложить основные отличия и показать правильное использование этого диалекта.

Стандартные функции для ввода и вывода

Не самое важное отличие, однако это пригодится нам для дальнейшего сравнения.

В Turbo Pascal для ввода и вывода используются процедуры read[ln] и write[ln] соответственно.

var 
  a, b: integer;
  
begin
  write('a='); 
  readln(a);
  
  write('b='); 
  readln(b);
  
  writeln('сумма ', a, ' и ', b, ' равна ', a+b);
end.

PascalABC.NET предлагает использовать для ввода функции с явным указанием типа данных. Они не просто меняют значение указанной переменной, а возвращают считаное значение.

write('a='); 
a:= ReadlnInteger;

Аналогичные функции есть для остальных типов (real, string, etc). Более того, эти функции могут выводить приглашение для ввода самостоятельно.

a:= ReadReal('a =');

Для вывода используется подпрограмма Print[ln], которая автоматически разделяет переданные параметры пробелами. Таким образом, можно убрать из команды вывода лишние пробелы.

В результате программа приобретает такой вид:

var 
  a, b: integer;
  
begin
  a:= ReadlnInteger('a =');
  b:= ReadlnInteger('b =');
  
  Println('сумма', a, 'и', b, 'равна', a+b);
end.

Локальные переменные

В Turbo Pascal переменные объявляются перед основной программой или перед телом подпрограммы. Например для решения квадратного уравнения может потребоваться такой набор переменных

var
  a, b, c, d, x1, x2: real; // коэффициенты, дискриминант, корни
  count: integer; // кол-во найденных корней

В результате образуется нагромождение переменных с избыточной областью видимости. По коду сложно понять в какой момент начинает использоваться та или иная переменная. Сложно определить используется ли переменная только в основной программе или к ней обращаются и подпрограммы. Сложнее определить назначение этой переменной.

В PascalABC.NET переменные могут объявляться прямо в коде. Делать это нужно как можно ближе к месту первого использования переменной.

Посмотрим на примере программы, складывающей числа.

begin
  var a: integer; // объявляем
  a:= ReadlnInteger('a ='); // инициализируем
  
  var b: integer;
  b:= ReadlnInteger('b =');
  
  Println('сумма', a, 'и', b, 'равна', a+b);
end.

Объявление переменной можно совместить с инициализацией.

begin
  var a: integer:= ReadlnInteger('a =');
  var b: integer:= ReadlnInteger('b =');
  
  Println('сумма', a, 'и', b, 'равна', a+b);
end.

Более того, компилятор понимает, что мы инициализируем переменную значением типа integer и тип можно не указывать явно. Работает автовыведение типов.

begin
  var a:= ReadlnInteger; // a: integer
  var b:= 24.5;          // b: real
  
  Println('сумма', a, 'и', b, 'равна', a+b);
end.

Всё это применимо и к циклу for

for var i:= 0 to 10 do ;

Динамические массивы

В Turbo Pascal используются статические массивы, основная проблема которых -- необходимость указывать размер массива ещё на этапе создания программы. В результате массивы зачастую создаются "с запасом". Вместо этого PascalABC.NET предлагает использовать динамические массивы.

begin
  var n:= ReadLnInteger('Введите размер массива:');
  
  var arr: array of integer;
  arr:= new integer[n];
  
  var arr2:= new integer[n]; // автовывод типа
end.

Такие массивы индексируются с ноля.

Помимо стандартного заполнения массива по индексам существует ряд других методов.

begin
  var x:= 1;
  
  // заполнение известными значениями
  var arr:= |1, 10, 43, x|; 
  
  // чтение 10 значений из консоли
  var arr2:= ReadArrInteger(10);
end.

Свойства и расширения типов

Каждый стандартный тип данных имеет достаточно большое количество свойств и методов расширения. Это элементы, доступные по точечной нотации.

Пример для integer

begin
  var x:= 2;
  var f:= x.IsEven;   // чётное ли число
  var f2:= x.Divs(4); // делится ли на 4
  x.Print;            // вывод в консоль
end.

Пример для динамических массивов:

begin
  var arr:= |1, 31, 40, 4, 1|;
  arr.Sort; // сортировка
  var len:= arr.Length; // получение размера
  var max:= arr.Max; // получение максимального
  var count:= arr.CountOf(1); // кол-во указанного элемента
end.

Многие из этих расширений для массивов относятся к LINQ, но это достаточно обширная тема.

Благодаря этому код на PascalABC.NET может выглядеть как цепочка методов. Например эта программа находит количество двоек в записи считанного числа

begin
  ReadlnInteger.ToString.CountOf('2').Print;
end.

Кстати .Print[ln] можно использовать для всех базовых типов. Это особенно удобно в длинных выражениях.

Кортежи

Кортежи используются для хранение нескольких значений в одной переменной. Это может быть полезно, когда значения тесно связанны друг с другом. Например координаты точки.

begin
  var point: (integer, integer);
  point:= (1, 2);
  
  Print(point.Item1, point.Item2);
end.

В стандартной библиотеке есть функции, считывающие из консоли несколько значений сразу и возвращающих кортеж

begin
  var point1:= ReadInteger2;
  print(point1.Item1, point1.Item2);
  
  var point2:= ReadReal2;
  Print(point2.Item1, point2.Item2);
end.

Кортеж можно распаковать в отдельные переменные

begin
  var point:= (1, 4, 2);
  
  var x, y, z: integer;
  
  (x, y, z):= point;
  
  Print(y); // 4
end.

И наконец, объявление переменных можно совместить с распаковкой

begin
  var point:= (1, 4, 2);
    
  var (x, y, z):= point;
  
  Print(y); // 4
end.

Заключение

Актуальность статьи вызвана скорее недостатком проработанной информации по данному языку, чем сложностью материала.

Конечно я затронул лишь малую часть отличий языка. Однако я постарался передать основные идеологические моменты программирования на PascalABC.NET.

Пишите современный код!