Паскаль. Ответы. P.47. Алгоритмы. Строки.Нахождение подстроки в строке. Сборник задач по программированию Александра Приходько

2c4c Паскаль. Ответы. P.47. Алгоритмы. Строки.Нахождение подстроки в строке. Сборник задач по программированию Александра Приходько

Сборник задач по программированию. Старая версия

Приходько А. Н.

файл, функция, applet, апплет, учебник, servlet, prolog, обзоры, язык программирования

Паскаль. Ответы. P.47. Алгоритмы. Строки.Нахождение подстроки в строке

P.47.1.
Шаг 1. В переменную K заносим длину исходной строки, в L заносим длину искомой подстроки. S=0. I=1. J=1.
Шаг 2. Выполняем Шаги 3 и 4 пока S=0 и I меньше или равно K-L+1.
    Шаг 3.. Если I+J-1-ый символ исходной строки совпадает с J-ым символом искомой подстроки, то увеличиваем значение J на 1, иначе увеличиваем на 1 значение I, а в J заносим значение 1.
    Шаг 4. Если J больше L, то в S заносим значение I.
Шаг 5. Выводим значение S. Конец.

P.47.4.
Шаг 1. В переменную K заносим длину исходной строки, в L заносим длину искомой подстроки. T=0. I=1. J=1.
Шаг 2. Выполняем Шаги 3 и 4 пока I меньше или равно K-L+1.
    Шаг 3.. Если I+J-1-ый символ исходной строки совпадает с J-ым символом искомой подстроки, то увеличиваем значение J на 1, иначе увеличиваем на 1 значение I, а в J заносим значение 1.
    Шаг 4. Если J больше L, то увеличиваем значение T на 1, увеличиваем значение I на 1, а в J заносим значение 1.
Шаг 5. Выводим значение T. Конец.

69 0