Показаны различия между двумя версиями страницы.
Следующая версия | Предыдущая версия | ||
cp:obx-lcs [2021/06/19 15:01] rbv создано |
cp:obx-lcs [2024/05/24 17:47] (текущий) iadenisov |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ===== Наибольшая общая подпоследовательность ===== | + | ====== Наибольшая общая подпоследовательность |
- | ==== Компонентный Паскаль ==== | + | Данная реализация основана на [[http:// |
- | Данная реализация основана на реализации C++ с [[http:// | + | |
+ | Отличие состоит в том, что вместо строки возвращаются начальная позиция подстроки в строке | ||
<code componentpascal> | <code componentpascal> | ||
+ | |||
+ | MODULE DemoLCS; | ||
+ | |||
+ | IMPORT Log, Strings; | ||
+ | |||
(* Longest Common Substring (LCS) *) | (* Longest Common Substring (LCS) *) | ||
Строка 45: | Строка 51: | ||
END | END | ||
END FindLCS; | END FindLCS; | ||
- | </ | ||
- | === Пример использования | + | (* Пример использования |
- | + | ||
- | <code componentpascal> | + | |
PROCEDURE Do*; | PROCEDURE Do*; | ||
VAR | VAR | ||
Строка 61: | Строка 64: | ||
Log.String(" | Log.String(" | ||
END Do; | END Do; | ||
+ | |||
+ | END DemoLCS. | ||
</ | </ | ||
- | ==== Внешние ссылки ==== | ||
- | |||
- | * [[http:// | ||
- | |||
- | ==== Авторы реализации ==== | ||
- | * Компонентный Паскаль: | ||