Форум программистов, компьютерный форум, киберфорум
Наши страницы
Соколиный глаз
Войти
Регистрация
Восстановить пароль
Оценить эту запись

Модули для PascalABC

Запись от Соколиный глаз размещена 05.07.2018 в 17:59
Обновил(-а) Соколиный глаз 05.07.2018 в 19:13

Цель модулей: немного повысить удобство программирования в среде 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.

Не по теме:

Не пропадать же трудам (хоть и небольшим). :)

Вложения
Тип файла: zip Pascal Units.zip (11.0 Кб, 17 просмотров)
Размещено в Без категории
Просмотров 219 Комментарии 1
Всего комментариев 1
Комментарии
  1. Старый комментарий
    Аватар для Sasha38
    Запись от Sasha38 размещена 05.07.2018 в 20:01 Sasha38 вне форума
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru