Напечатать те слова последовательности, которые отличны от последнего слова - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы