Массивы (PascalABC.NET)
Pascal ABC.NET выбор школьника - Часть 2
Массив
Массив – хранимая нумерованная последовательность однотипных элементов с непосредственным доступом к любому элементу по его индексам, являющимся своеобразным аналогом номера.
Статические и динамические массивы
Статические массивы
Память под статический массив распределяется на этапе компиляции программы. Одновременно может быть выполнена инициализация элементов массива. Границы индексов статического массива неизменны и должны быть указаны в программе константами или выражениями, содержащими только константы.
Статические массивы – дань совместимости с более ранними версиями языка Паскаль.
Длину статического массива нельзя менять.
Динамические массивы
Динамический массив нужного размера может быть создан в том месте программы, где он впервые потребуется.
В динамических массивах индексы начинаются от нуля.
Количество элементов в динамическом массиве может меняться, но никогда не может стать отрицательным. Текущее количество элементов в массиве хранится в поле .Length.
Первый элемент массива всегда имеет индекс ноль.
Создание и инициализация массива
Статические массивы
Статический массив обычно описывается в виде
var ИмяМассива: array[m..n] of ТипЭлементов;
1 var a: array[0..12] of byte; // 13 элементов byte
2 var b, c: array[-5..8] of real; // два массива по 14 элементов real
3
4 var a: array[3..6] of integer := (1, 2, 3, 4);
Динамические массивы
Описание и инициализация динамического массива отличаются лишь тем, что границы индексов не оказываются. Вследствие этого компилятор не может отвести место под такой массив и необходимая память выделяется во время выполнения программы.
1 var a1: array of integer; // массив целых чисел
2 var p: array of real; // массив вещественных чисел
3 var q: array of boolean; // массив логических элементов
Проще всего создать динамический массив при помощи функции Arr, возвращающей такой массив. Ее аргументы – единого типа перечисленные через запятую члены будущего массива. Вместо Arr( ) удобно использовать более короткую конструкцию | |.
1 var a := Arr(1, 9, -4, 12, 40, 39, 54);
2 var d := |1, 9, -4, 12, 40, 39, 54|; // альтернативный вариант
3 var b := |3.5, 2.0, 6.417, -12.0|;
4 var c := Arr(True, 3.5 > 1.63 ** 2.95, Sin(x) > 1, False, False);
Можно совместить описание динамического массива с его созданием, для чего потребуется указать необходимую длину массива.
1 var a := new integer[10]; // массив из 10 целых элементов
2 var b := new real[7]; // массив из 7 вещественных элементов
3 var c := new boolean[4]; // массив из 4 логических элементов
Можно создать массив и обнулить его элементы следующим образом:
1 var a := |0| * 15; // создан массив из 15 нулевых элементов
В случае, когда массив был описан заранее, его длину можно установить (либо поменять) вызовом процедуры SetLength.
1 var a1: array of integer; // массив целых
2 SetLength(a1, 13); // установлена длина массива a1, равная 13
Перебор элементов в цикле
Перебор с помощью цикла с параметров
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 for var i := 0 to a.Length-1 do
4 begin
5 // a[i]
6 end;
7 end.
Перебор с помощью цикла foreach
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 foreach var x in a do
4 begin
5 // x
6 end;
7 end.
Вывод массива
Вывод массива с помощью цикла с параметром
1 Begin
2 var a:= new integer[15];
3 for var i := 0 to a.Length-1 do
4 Write(a[i], ' ');
5 end.
Вывод массива методом Print
Метод предполагает необязательный параметр обозначающий разделитель.
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println();
4 a.Println(', ');
5 end.
Ввод элементов с клавиатуры
Ввод элементов массива с помощью цикла с параметром
1 Begin
2 var a:= new integer[15];
3 for var i := 0 to a.Length-1 do
4 Readln(a[i]);
5 end.
Ввод элементов массива с помощью функции
Единственный аргумент данной функции это количество вводимых элементов.
1 Begin
2 var a:= ReadArrInteger(15);
3 end.
Лямбда-выражения
Лямбда-выражения (или просто лямбды) – термин функционального программирования. Они с успехом применяются вместо уже привычных вам процедур и функций. Собственно, они и есть процедуры или функции, только безымянные.
Лямбда-выражение представляет собой некоторое безымянное выражение, отражающее функциональную зависимость. Упрощенно, на его основе компилятор строит функцию, некоторым образом идентифицирует ее и подменяет этим идентификатором лямбда-выражение.
Лямбда-выражение можно записать в переменную.
Пример лямбда-выражения увеличивающего число в 2 раза.
1 var x: integer -> integer := t -> 2 * t;
Фильтрация
В программировании фильтруют обрабатываемые данные. Лишь прошедшие через фильтр данные примут участие в дальнейшей обработке.
Вы можете реализовать фильтрацию элементов массива с помощью циклов и условного оператора или с помощью функций-методов массивов.
Фильтрация с помощью цикла с параметром и условного оператора
Пример который выделяет в новый массив только положительные числа из изначального массива.
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var b := new integer[a.Length];
5 var index := 0;
6 for var i := 0 to a.Length-1 do
7 begin
8 if (a[i] > 0) then
9 begin
10 b[index] := a[i];
11 index += 1;
12 end;
13 end;
14 SetLength(b, index);
15 b.Println;
16 end.
Фильтрация с помощью метода Where
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var b := a.Where(x -> x > 0).ToArray;
5 b.Println;
6 end.
Проекция
Проецирование сохраняет исходное количество элементов последовательности, но преобразовывает каждый элемент по некоторому правилу. Аналог – мясорубка. На входе мясо – на выходе фарш, причем именно из этого мяса. Проецирование осуществляет функция, преобразующая входные элементы по правилу, заданному лямбда-выражением.
Вы можете реализовать трансформацию всех элементов массива с помощью цикла с параметром и оператора присваивания.
Проекция с помощью цикла с параметром
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var b := new integer[a.Length];
5 for var i := 0 to a.Length-1 do
6 b[i] := a[i] * a[i];
7 b.Println;
8 end.
Проекция с помощью метода Select
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var b := a.Select(x -> x*x);
5 b.Println;
6 end.
Сумма
Сумма циклом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var sum := 0;
5 for var i := 0 to a.Length-1 do
6 sum := sum + a[i];
7 Writeln(sum);
8 end.
Сумма методом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 Writeln(a.Sum);
5 end.
Произведение
Произведение циклом
1 Begin
2 var a:= ArrRandom(3, -10, 10);
3 a.Println;
4 var prod := 1;
5 for var i := 0 to a.Length-1 do
6 prod := prod * a[i];
7 Writeln(prod);
8 end.
Произведение методом
1 Begin
2 var a:= ArrRandom(3, -10, 10);
3 a.Println;
4 Writeln(a.Product);
5 end.
Минимум
Минимум циклом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var min := integer.MaxValue;
5 for var i := 0 to a.Length-1 do
6 begin
7 if a[i] < min then min := a[i];
8 end;
9 Writeln(min);
10 end.
Минимум методом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 Writeln(a.Min);
5 end.
Максимум
Максимум циклом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var max := integer.MinValue;
5 for var i := 0 to a.Length-1 do
6 begin
7 if a[i] > max then max := a[i];
8 end;
9 Writeln(max);
10 end.
Максимум методом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 Writeln(a.Max);
5 end.
Среднее
Среднее циклом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 var sum := 0;
5 for var i := 0 to a.Length-1 do
6 sum := sum + a[i];
7 Writeln(sum / a.Length);
8 end.
Среднее методами
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 Writeln(a.Sum / a.Length);
5 end.
Среднее методом
1 Begin
2 var a:= ArrRandom(10, -10, 10);
3 a.Println;
4 Writeln(a.Average);
5 end.
Заполнение массива одинаковыми значениями
1 Begin
2 var a:= ArrFill(10, 42);
3 a.Println;
4 var b := |77| * 5;
5 b.Println;
6 end.
Заполнение массива случайными значениями
1 Begin
2 var a:= ArrRandom(10, -50, 50);
3 a.Println;
4 var b := ArrRandomReal(10, -5, 5);
5 b.Println;
6 end.
Генерация массивов на основе лямбда-выражений
n значений из индекса от 0
1 Begin
2 var a:= ArrGen(5, i -> 2 * i + 1);
3 a.Println;
4 end.
n значений из индекса начиная с m
1 Begin
2 var a:= ArrGen(3, i -> 2 * i + 1, 10);
3 a.Println;
4 end.
Рекуррентная последовательность с заданным первым элементом и количеством элементов
1 Begin
2 var a:= ArrGen(3, 105, i -> i + 7);
3 a.Println;
4 end.