у кого есть соображения по этому поводу

[flz]

препод дал задачи, до этого не делали такие..

Задача 1
Задана система из шести слов длиной не менее 5 символов каждое. Подсчитать количество слов, содержащих заданную подстроку или сформировать из шести слов три слова, конкатенацией первого со вторым, третьего с четвертым, пятого с шестым.

Задача 2
Дан текст. Вывести все слова, предварительно удалив из них все предыдущие вхождения последней буквы. Пример текста, обрабатываемого программой, написать самостоятельно.

[Sasha_Smirnov]

У меня.

1.
На входе: раз два три раз два три
На выходе: раздва трираз дватри (для варианта после или — «сцепление»)

2.
На входе: раз два три четыре ВОВ
На выходе: раз два три чтыре ОВ

(В 1-й, чисто для примера, взял слова < 5 символов.)

[flz]

а саму программу составить сможешь?

[Sasha_Smirnov]

Могу-то могу, но пока некогда.

2-я просто решается в Word’е, записью макроса.

(Других средств программирования не держу.)

[Smitt&Wesson]

Сообщение от flz

а саму программу составить сможешь?

А, сколько это в рублях?

[Serge_Bliznykov]

Автор темы упорно не хочет читать/понимать/выполнять правила форума,
поэтому переношу тему во Фриланс.

Модератор.

[Sasha_Smirnov]

Word преобразует текст документа, если выполнить в нём нижеследующий код.

Sub Макрос4()

Dim LastLetter As String * 1

Selection.HomeKey wdStory 'курсор - в начало документа Word

With Selection.Find

Do
.Text = "<*>"
.Wrap = wdFindStop
.Execute Replace:=wdReplaceNone 'слово выделено, но пока не заменяем
LastLetter = Right(Selection, 1) 'нашли в слове последнюю букву
.Replacement.Text = Replace(Selection, LastLetter, "") & LastLetter
.Execute Replace:=wdReplaceOne 'заменили слово на его ужатое подобие
Selection.Collapse direction:=wdCollapseEnd 'сняли выделение (к концу слова)

Loop While .Found

End With

End Sub

[alexcoder]

Сделаю недорого. Контакты ниже.

[sheka]

255507394.

[Leo08]

Напишу на Delphi, Pascal. Leo08@xaker.ru