Написать подпрограмму для расшифровки текста - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Написать программу для расшифровки текста. Русский текст содержит зашифрованные слова, каждое из которых записано наоборот. Подпрограмма принимает исходный текст и возвращает расшифрованный. Думал легко, просто разделить предложение на массив слов и перевернуть каждое. Но как оказалось в предложении могут быть и запятые, а их трогать нельзя. Обычное консольное приложение

Решение задачи: «Написать подпрограмму для расшифровки текста»

textual
Листинг программы
Dim ss As String = "леваП липук няаб, он няаб яслазако мичобарен." 'Павел купил баян, но баян оказался нерабочим.
Dim rs() As String = ss.Split(Chr(32))
Dim lst As New List(Of String)
For Each s As String In rs
    lst.Add(String.Join("", s.Reverse))
    If lst.Last.First = ","c OrElse lst.Last.First = "."c Then
        Dim tm As Char = lst.Last.First
        lst(lst.Count - 1) = lst(lst.Count - 1) & tm.ToString
        lst(lst.Count - 1) = lst(lst.Count - 1).TrimStart({tm})
    End If
Next
MsgBox(String.Join(Chr(32), lst))

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


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

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

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