Си с т е ма прогр а ммирования P as c alAB C. NE T : прос т ейш и е новые возм

компьютерных наук
miks@math.sfedu.ru
Доклад на учебно-методической конференции
«Использование системы программирования Pascal​ABC​.NET и электронного

русские идентификаторы. После
небольших переопределений программа преображается.
Использовать – дело вкуса
Русские идентификаторы
procedure

К оглавлен ию

переменную можно инициализировать выражением
Если при описании переменную инициализировать выражением, то

var x: real; // В PascalABC.NET глобальные переменные описываются редко

begin
var a1: integer; var a2 := 555; var r := 3.14; var

// a2 получает тип integer по типу значения 555
// r получает тип real по типу значения 3.14
// s получает тип string

s := 'PascalABC.NET';

var r1 := r + a2;
var m := Min(2,3);
var d := DateTime.Now;
end.

// r1 получает тот
// m получает тип,
// d получает тип,

же тип, что и выражение r + a2 возвращаемый функцией Min возвращаемый DateTime.Now

Код

Нагромождение глобальных переменных – признак стиля старого Паскаля

В PascalABC.NET переменные описываются по мере необходимости

Тип переменной автовыводится. Его надо указывать только в редких случаях для лучшей читаемости. Но в отличие от Python тип здесь – статический, не меняется по ходу программы

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

Процедуры, функции, лямбда-выражения»
Слайд
var a := ArrRandomInteger(10);
for
for
var i var j

:= 0 to a.High-1 do
:= a.High downto i+1 do
< a[j-1] then

Swap(a[j], a[j-1]);
end.

Стандартные функции Min, Max и стандартную процедуру Swap
удобно использовать в различных алгоритмах
Код

Стандартные функции

s: string := i.ToString; // преобразование в строку

if i.IsEven and

Стандартные типы integer, real и т.д. содержат большое количество стандартных методов и констант
Код

Методы стандартных типов

не важен
begin
var s := 0; var x := 11; loop

Пример 2. Сумма квадратов
нечетных двузначных

2475

begin
var n := 11; var a := 1; var q := 2;

loop n do
begin
Print(a);

a := a * q
end; end.

Пример 1. Геометрическая прогрессия

1 2 4 8 16

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

32 64

128 256 512 1024

из правой части
одновременно
Можно инициализировать сразу несколько переменных при описании. Их

Множественное присваивание

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

do
(a, b) := (b,

Println(a);
end.
a mod b);
18
Множественное присваивание радикально меняет стиль

begin
var n := 15;

var (a, b) := (1, 1);
loop n do begin
Print(a);
(a,b) := (b, a + b);
end; end.

1 1 2 3 5 8 13 21 34 55 89 144

233 377

К оглавлен ию

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

вывода пробелами. Print удобно использовать в цикле для вывода серии

var (x,y) := (3,5);
Println($'Сумма {x} и
end.

{y} равна {x+y}');

1 2 3 4 5 6 7 8 9 10
Сумма 3 и 5 равна 8

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

описать переменную и инициализировать её одной строкой
Функции ReadInteger2, ReadReal2 и

begin
var x := ReadReal('Введите x:'); var y := ReadReal('Введите y:'); Println('Сумма =',x+y);

var (a,b) := ReadReal2('Введите var c := Sqrt(a*a + b*b); Println('Гипотенуза =',c);
end.

катеты:');

Введите Введите Сумма = Введите

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд 10

x: 1
y: 2
3
катеты: 3 4

Гипотенуза = 5

var i. В этом случае счётчик цикла for недоступен после

begin
for var i:=0 to 9 do
Print(1+2*i);
Println;
// Переменная i for var i:=0 to Print(5+5*i);
end.

здесь недоступна
9 do

1 3 5 7 9 11 13 15 17 19
5 10 15 20 25 30 35 40 45 50

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

-=, *= и /= встречаются во многих языках программирования
«+=» читается

begin
var n := 10;
var p := 1;
for var i:=2 to n do
p *= i;

begin
var n := ReadInteger;
var sum := 0;
for var i:=1 to n do

sum += i*i;
Print($'Сумма
end.

квадратов

первых

{n} чисел

={sum}');

10
Сумма квадратов

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

первых 10

чисел = 385

integer): BigInteger;
begin
var a,b: (a,b) :=
loop n-1 (a, b)
BigInteger; (1,1);
do
:= (b,

Result := a
end;
begin
Print(Fib(1000));
end.

begin
var n := 100;
var p: BigInteger := 1;
for var i:=2 to n do
p *= i;

Write(n,'! = ', p);
end.

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

Пример 2. Тысячное число Фибоначчи

Пример 1. 100!

реализована
предельно эффективно

Пример. Вычисление 2 ** 1000
begin
var b: BigInteger := 2;
Println(b

107150860718626732094842504906000181056140481170553360744375038837035105112
493612249319837881569585812759467291755314682518714528569231404359845775746
985748039345677748242309854210746050623711418779541821530464749835819412673
987675591655439460770629145711964776865421676604298316526243868372056680693
76

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

делать case по строкам. Это значительно удобнее старого стиля со

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.

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

из функции следует использовать переменную
Result, а не устаревший синтаксис, связанный

function Fact(n: integer): integer;
begin
Result := 1;
for var i:=1 to n do
Result *= i;
end;

begin
var n := ReadInteger('Введите n:'); Println('n!=',Fact(n));
end.

PascalABC.NET допускаются короткие определения для функций, задаваемых одним выражением. Тип

function ДлинаОкружности(r: real) := 2 * Pi * r;

function Гипотенуза(a,b: real) := Sqrt(a*a + b*b);

function Расстояние(x1,y1,x2,y2: real) := Гипотенуза(x2-x1,y2-y1);

function Минимум(a,b,c: real): real := Min(Min(a,b),c);

procedure Вывод(x: integer) := Println(x);

begin
Println(ДлинаОкружности(1)); Println(Гипотенуза(3,4),Расстояние(1,1,3,4)); Вывод(Минимум(5,3,8));
end.

К оглавлен ию

модули с упрощённым синтаксисом. В них можно описывать часто встречающиеся

uses My;
function ДлинаОкружности(r: real) := 2 * Pi * r; function Гипотенуза(a,b: real) := Sqrt(a*a + b*b); function Расстояние(x1,y1,x2,y2: real) :=
Гипотенуза(x2-x1,y2-y1);

function Минимум(a,b,c: real): real :=
Min(Min(a,b),c);

procedure Вывод(x: integer) := Println(x);

end.

К оглавлен ию

uses My;

begin
Вывод(ДлинаОкружности(1)); Вывод(Гипотенуза(3,4)); Вывод(Минимум(5,3,8));
end.

:= Println('Мяу!');

begin
var Звук: procedure := Корова; Звук;
Звук := Собака; Звук;
Звук

Переменной можно присвоить действие. Такая переменная называется процедурной. Она хранит отложенное действие. Это действие можно вызвать, указав процедурную переменную вместо имени процедуры или функции
Действие можно передать в подпрограмму как параметр. Вызов этого действия в этой подпрограмме называется обратным вызовом (callback)

Процедурная переменная Callback-вызов

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд

procedure Корова := Println('Му-у'); procedure Собака := Println('Гав!'); procedure Кошка := Println('Мяу!');

procedure begin
p1; p2;
end;

ИздатьЗвуки(p1,p2: procedure);

// callback-вызовы

begin
ИздатьЗвуки(Корова, Собака);
ИздатьЗвуки(Кошка, Корова);
end.

Процедурные переменные

параметров эффективно использовать операции + (последовательное выполнение) и *n (повторение

uses Robot;
begin
var d := Right*3 + Up*9 + Paint + Down*9;
var d1 := (d + Right)*4 + d;
d1;
end.

Презентация «PascalABC.NET. Процедуры, функции, лямбда-выражения»

Слайд 20

в первую очередь следует использовать динамические массивы. Они содержат большое

begin
var a := Arr(1,3,5,7,9);
foreach var x in a do
Print(x);

for var i:=0 to a.Length – 1 do
a[i] += 1;
end.

К оглавлен ию

с заданным шагом
Срезы имеют вид a[from : to] или a[from

0

1

2

3

4

5

6

7

8

9

a[2:]

a[::2]

a[7::-2]

a[::-1]

0

1

2

3

4

5

6

7

8

9

0

1

2

3

4

5

6

7

8

9

0

1

2

3

4

5

6

7

8

9

Презентация «PascalABC.NET. П0 роц1едуры2 , фун3кции4, лям5бда-6выра7жени8я»

9

Слайд 22