Написать подпрограмму для расшифровки текста - 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))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д