Напечатать те слова последовательности, которые отличны от последнего слова - VB
Формулировка задачи:
Доброго времени суток. Есть проблема с обработкой текста.
"Дана последовательность слов . Напечатать те слова последовательности , которые отличны от последнего слова и уловлетворяют след. свойсту: буквы слова упорядоченны по алфавиту." пробывал с двумя массивами - не выходит.
Можно составить програмку чтобы я мог посмотреть код и в ней разобраться. Заранее спасибо. Хотелось бы с коментариями , хочу понять принцип и и какая часть кода что выполняет.
Спасибо.
Решение задачи: «Напечатать те слова последовательности, которые отличны от последнего слова»
textual
Листинг программы
'::: Проверка очередного слова Function chkword(W as string) as boolean chkword=True ' предварительный результат = True for i%=2 to len(W) ' цикл по всем символам слова if mid$(W,i%-1,1) > mid$(W,i%,1) then ' если код очередного символа меньше кода предыдущего... chkword=False ' возвратим False exit for ' и выход end if next i% End Function '::: Проверка предложения Sub Task(Sent as String) Words=Split(Sent," ") ' расщепляем предложение на слова (по пробелам) for i%=0 to Ubound(Words,1)-2 ' цикл по всем, кроме последнего if chkword(Words(i%)) then Debug.print Words(i%) ' если слово прошло проверку - печатаем Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д