Программа не секрет.
Я ее сейчас приведу.
Вот она
DIM TXT$(5000)
CLS
DATA н,е,л,2,п,о,л,и,н,ы,б,я,ш,е,т,ъ,б,р,а,т,1,е,
DATA н,а,ч,я,т,и,с,т,а,р,ы,м,и,с,л,о,в,е,с,ы,
DATA т,р,у,д,н,ы,х,ъ,п,о,в,е,с,т,1,й,о,п,ъ,л,к,у,и,г,о,р,е,в,2,
DATA и,г,о,р,я,с,в,я,т,ъ,с,л,а,в,и,ч,а,
DATA н,а,ч,а,т,и,ж,е,с,я,т,ъ,й,п,2,с,н,и,
DATA п,о,б,ы,л,и,н,а,м,ь,с,е,г,о,в,р,е,м,е,н,и,
DATA а,н,е,п,о,з,а,м,ы,ш,л,е,н,и,ю,б,о,я,н,ю,
DATA б,о,я,н,ъ,б,о,в,2,щ,1,й,а,щ,е,к,о,м,у,
DATA х,о,т,я,щ,е,п,2,с,н,ь,т,в,о,р,и,т,и,
DATA т,о,р,а,с,т,2,к,а,ш,е,т,с,я,м,ы,с,л,1,ю,п,о,д,р,е,в,у,
DATA с,2,р,ы,м,ъ,в,ъ,л,к,о,м,ъ,п,о,з,е,м,л,и,
DATA ш,и,з,ы,м,о,р,л,о,м,ъ,п,о,д,ъ,о,б,л,а,к,ы,
DATA п,о,м,н,я,ш,е,т,ь,б,о,р,е,ч,ь,п,ъ,р,в,ы,х,ъ,
DATA в,р,е,м,е,н,ъ,у,с,о,б,1,ц,2,т,о,г,д,а,
DATA п,у,щ,а,ш,е,т,ь,1,с,о,к,о,л,в,ъ,н,а,с,т,а,д,о,
DATA л,е,б,е,д,2,й,к,о,т,о,р,ы,й,д,о,т,е,ч,а,ш,е,
DATA т,а,п,р,е,д,и,п,е,с,ь,п,о,я,ш,е,с,т,а,р,о,м,у
DATA я,р,о,с,л,о,в,у,х,р,а,б,р,о,м,у,м,с,т,и,с,л,а,в,у,
DATA и,ж,е,з,а,р,2,з,а,р,е,д,е,д,ю,п,р,е,д,ъ,п,ъ,л,к,ы,
DATA к,а,с,о,ж,ь,с,к,ы,м,и,к,р,а,с,н,о,м,у,р,о,м,а,н,у,
DATA с,в,я,т,ъ,с,л,а,в,л,и,ч,ю,б,о,я,н,ъ,ж,е,б,р,а,т,1,е,
DATA н,е,1,с,о,к,о,л,о,в,ь,н,а,с,т,а,д,о,л,е,б,е,д,2,й,
DATA п,у,щ,а,ш,е,н,ъ,с,в,о,я,в,е,щ,1,а,п,р,2,с,т,ы
DATA н,а,ж,и,в,а,я,с,т,р,у,н,ы,в,ъ,с,к,л,а,д,а,ш,е,
DATA о,н,и,ж,е,с,а,м,и,к,н,я,з,е,м,ъ,с,л,а,в,у,р,о,к,о,т,а,х,у
DATA п,о,ч,н,е,м,ъ,ж,е,б,р,а,т,1,е,п,о,в,2,с,т,ь,с,1,ю,
DATA о,т,с,т,а,р,а,г,о,в,л,а,д,и,м,е,р,а,д,о,н,ы,н,2,ш,н,я,г,о,
DATA и,г,о,р,я,и,ж,е,и,с,т,я,г,н,у,у,м,к,р,е,п,о,с,т,1,ю,
DATA с,в,е,ю,и,п,о,о,с,т,р,и,с,е,р,д,ц,а,с,в,о,е,г,о,
DATA м,у,ж,е,с,т,в,о,м,ъ,н,а,п,л,ъ,н,и,в,с,я,р,а,т,н,о,г,о,
DATA д,у,х,а,н,а,в,е,д,е,с,в,о,я,х,р,а,б,р,ы,я,п,л,ъ,к,и,
DATA н,а,з,е,м,л,ю,п,о,л,о,в,е,ц,ь,к,у,ю,з,а,з,е,м,л,ю,р,у,с,ь,к,у,ю,
DATA т,о,г,д,а,и,г,о,р,ь,в,ъ,з,р,2,н,а,с,в,2,т,л,о,е,с,о,л,н,ц,е,
DATA и,в,и,д,2,о,т,ъ,н,е,г,о,т,ь,м,о,ю,в,с,е,с,в,о,я,в,о,я,п,р,и,к,р,ы,т,ы,
DATA и,р,е,ч,е,и,г,о,р,ь,к,ъ,д,р,у,ж,и,н,2,с,в,о,е,й,б,р,а,т,1,е,
DATA л,у,ц,е,ж,ъ,б,ы,п,о,т,я,т,у,б,ы,т,и,н,е,ж,е,п,о,л,о,н,е,н,у,
DATA б,ы,т,и,а,в,с,я,д,е,м,ъ,б,р,а,т,1,е,н,а,с,в,о,и,б,р,ъ,з,ы,я,
DATA к,о,м,о,н,и,д,а,п,о,з,р,и,м,ъ,с,и,н,е,г,о,д,о,н,у,с,п,а,л,а,
DATA к,н,я,з,ю,у,м,п,о,х,о,т,и,и,ж,а,л,о,с,т,ь,е,м,у,з,н,а,м,е,н,и,е,
DATA з,а,с,т,у,п,и,и,с,к,у,с,и,т,и,д,о,н,у,в,е,л,и,к,а,г,о,х,о,щ,у,
DATA б,о,р,е,ч,е,к,о,п,1,е,п,р,и,л,о,м,и,т,и,к,о,н,е,ц,ь,п,о,л,я,
DATA п,о,л,о,в,е,ц,к,а,г,о,с,ъ,в,а,м,и,р,у,с,и,ц,и,х,о,щ,у,г,л,а,в,у,
DATA с,в,о,ю,п,р,и,л,о,ж,и,т,и,а,л,ю,б,о,и,с,п,и,т,и,ш,е,л,о,м,о,м,
DATA д,о,н,у,о,б,о,я,н,е,с,о,л,о,в,1,ю,с,т,а,р,о,г,о,в,р,е,м,е,н,и,
DATA а,б,ы,т,ы,с,1,а,п,л,Ъ,к,ы,у,щ,е,к,о,т,а,л,ъ,с,к,а,ч,а,с,л,а,в,1,ю,
DATA п,о,м,ы,с,л,е,н,у,д,р,е,в,у,л,е,т,а,я,у,м,о,м,п,о,д,ъ,о,б,л,а,к,ы,
DATA с,в,и,в,а,я,с,л,а,в,ы,о,б,а,п,о,л,ы,с,е,г,о,в,р,е,м,е,н,и,р,и,щ,а,
DATA в,ъ,т,р,о,п,у,т,р,о,я,н,ю,ч,р,е,с,ъ,п,о,л,я,н,а,г,о,р,ы,
DATA п,е,т,и,б,ы,л,о,п,е,с,ь,и,г,о,р,е,в,и,т,о,г,о,о,л,г,а,в,н,у,к,у,
DATA н,е,б,у,р,я,с,о,к,о,л,ы,з,а,н,е,с,е,ч,р,е,з,ъ,п,о,л,я,ш,и,р,о,к,а,я,
DATA г,а,л,и,ц,и,с,т,а,д,ы,б,е,ж,а,т,ъ,к,ъ,д,о,н,у,в,е,л,и,к,о,м,у,
DATA ч,и,л,и,в,ъ,с,п,е,т,и,б,ы,л,о,в,е,щ,е,й,б,о,я,н,е,в,е,л,с,о,в,ь,
DATA в,н,у,ч,е,к,о,м,о,н,и,р,ж,у,т,ь,з,а,с,у,л,о,ю,з,в,е,н,и,т,с,л,а,в,а,
DATA в,ъ,к,ы,е,в,е,т,р,у,б,ы,т,р,у,б,я,т,в,ъ,н,о,в,2,г,р,а,д,2,с,т,о,я,т,
DATA с,т,я,з,и,в,ъ,п,у,т,и,в,л,е,и,г,о,р,ь,ж,д,е,т,ъ,м,и,л,а,б,р,а,т,а,
DATA
DATA
DATA
DATA
DATA
DATA
DATA
FOR i% = 1 TO 3000
READ n$
TXT$(i%) = n$
LPRINT TXT$(i%);
NEXT
LPRINT
LPRINT
FOR m% = 1 TO 3000
IF TXT$(m%) = "о" THEN
m1% = m% + 23
FOR x% = 1 TO 14
a% = m1% + x%
IF TXT$(a%) = "л" THEN
a1% = a% + 23
FOR y% = 1 TO 14
r% = a1% + y%
IF TXT$(r%) = "ь" THEN
r1% = r% + 23
FOR z% = 1 TO 14
i% = r1% + z%
IF TXT$(i%) = "г" THEN
i1% = i% + 23
FOR v% = 1 TO 14
j% = i1% + v%
IF TXT$(j%) = "а" THEN
FOR k% = m% TO a% - 1
LPRINT TXT$(k%);
NEXT
LPRINT
FOR k% = a% TO r% - 1
LPRINT TXT$(k%);
NEXT
LPRINT
FOR k% = r% TO i% - 1
LPRINT TXT$(k%);
NEXT
LPRINT
FOR k% = i% TO j% - 1
LPRINT TXT$(k%);
NEXT
LPRINT
FOR k% = j% TO j% + 36
LPRINT TXT$(k%);
NEXT
LPRINT
LPRINT
LPRINT
END IF
NEXT
END IF
NEXT
END IF
NEXT
END IF
NEXT
END IF
NEXT
Это обычный старый добрый бейсик. Сначала идет ввод данных: это текст в данном случае "Слова о полку Игореве". Ищется то, что можно назвать "акростихами" (на самом деле - это никакие не акростихи, а, видимо, так называемые лабиринты).
Здесь
1. Имя из 5 букв ("мария"). Если нужно проверять слово из 6 букв, то нужно подстаить еще один "уровень" в программу (это просто). Если - из 4 - то стереть один уровень. Все примитивно. Но работает.
2. Параметры проверки такие: ищется последовательность заданных букв, разделенная расстоянием от 23 до 37 букв. В случае, когда мы хотим идентифицировать автора, то, скорее всего, нужно искать буквы на расстоянии от 0 до 30 знаков. Так что тоже нужно чуть-чуть поменять цифры.
3. программа РАСПЕЧАТЫВАЕТ все варианты. Но в нашем случае это не тркбуется: достаточно выводить только их число. Тоже изменить не сложно.
Труднее всего - подготавливать тексты, которые должны быть введены по буквам через запятую. Я для этого сделал простейшую макрокоманду в Ворде.
Вообще-то я очень слабый программист и не стремлюсь к взятию вершин, но простые вещи сделать не сложно.
Любой может проверить все, что я говорю. И я в этом ОЧЕНЬ ЗАИНТЕРЕСОВАН. (Морально, разумеется...
)
