Цель модулей: немного повысить удобство программирования в среде PascalABC, избавив пользователя от реализации рутинных операций.
Примеры:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
| uses Tuples, Writer;
var
A: Tuple3;
B, C, D: IntTuple2;
begin
B := IntTpl2(1, 2);
C := IntTpl2(3, 4);
D := IntTpl2(5, 6);
A := Tpl3(B, C, D);
Println(A);
Println(B[0]);
end. |
|
Кликните здесь для просмотра всего текста
Аналог на PascalABC.Net:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| type
TIntTuple2 = (integer, integer);
var
A: (TIntTuple2, TIntTuple2, TIntTuple2);
B, C, D: TIntTuple2;
begin
B := (1, 2);
C := (3, 4);
D := (5, 6);
A := (B, C, D);
Writeln(A);
Writeln(A[0]);
end. |
|
| Pascal | 1
2
3
4
5
| uses Writer, Reader, Transformations;
begin
Println(ToWords(ReadlnString('String:'))); // Разбиение прочитанной строки на слова.
Println(ToIntegers(ReadlnString('Numbers:'))); // Разбиение прочитанной строки на целые числа.
end. |
|
Кликните здесь для просмотра всего текста
Аналог на PascalABC.Net:
| Pascal | 1
2
3
4
| begin
Writeln(ReadlnString('String:').ToWords());
Writeln(ReadlnString('Numbers:').ToIntegers());
end. |
|
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| uses Tuples, Writer, Containers;
var
A1, A2: StringArray;
A: Tuple2;
begin
A1 := StringArray.Create();
A1.Add('1');
A1.Add('2');
A2 := StringArray.Create();
A2.Add('3');
A2.Add('4');
A := Tpl2(A1, A2);
Println(A);
end. |
|
| Pascal | 1
2
3
4
5
6
7
8
| uses Tuples, Writer, Reader, Transformations;
begin
Println(ReadlnInt('Number:'));
Println(ReadlnComplex('Complex:'));
Println(ReadlnRealTuple5('Tuple:')); // Чтение кортежа из 5 вещественных чисел.
Println(ReadArrInt(5, 'Array:'));
Println(ReadIntSeqWhile('Sequence:', IsPositive));
end. |
|
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| uses Types, Writer, Reader, Transformations, Containers;
var
A: IntArray;
function Double(x: int): int;
begin
Result := x * 2;
end;
function SumWithIndex(index, x: int): int;
begin
Result := x + index;
end;
begin
A := ReadIntSeqWhile('Sequence:', IsPositive); // Чтение чисел в массив до первого неположительного.
Println(A);
Println(Select(A, Double)); // Создание нового массива с удвоенными элементами.
Println(Select(A, SumWithIndex));
Println(All(A, IsPositive)); // Проверка массива на условие "все элементы положительные".
Println(Where(A, Odd)); // Создание массива, который включает только нечетные элементы из A.
end. |
|
| Pascal | 1
2
3
4
| uses Writer, Reader, Arrays;
begin
Println(CreateRandomIntArray(10, 10, 20)); // Создание массива из 10 элементов с значениями из диапазона [10, 20].
end. |
|
Не по теме:
Не пропадать же трудам (хоть и небольшим). :)
|
