Примера 4.9.5-5

Пример 4.9.5-6. Разработать процедуру-Function, которая находит в заданной строке все слова, состоящие только из цифр, и записывает найденные слова в новую строку через пробел. Если таких слов нет, то результатом процедуры должна быть строка с сообщением.

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

Sub Pr956(ByRef s As String) s = s.Trim 'цикл замены двух пробелов одним Do While s.IndexOf(Space(2)) >= 0 s = s.Replace(Space(2), Space(1)) Loop End Sub Function Reshenie(ByVal s As String) As String Dim Rez As String = "" Dim i, j, d, k As Integer Dim slovo As String Dim mas() As String = s.Split(CChar(Space(1))) 'разбиение строку на массив слов For i = 0 To mas.Length - 1 slovo = mas(i) k = 0 'количество цифр в слове d = slovo.Length 'длина слова For j = 0 To d - 1 'цикл по одному слову If slovo.Substring(j, 1) >= "0" And _ slovo.Substring(j, 1) <= "9" Then k = k + 1 End If Next If k = d Then Rez = Rez + slovo + Space(1) End If Next If Rez = "" Then Rez = "Таких слов нет" End If Return Rez End Function Рис. 4.9.5-6. Программный код процедурPr956() иReshenie() Пример 4.9.4-6

Решение задачи реализует процедура-функцияReshenie().В ней после вызова процедурыPr956()создается строковый массив словmas()с помощью методаSplit(), которая разбивает строку на массив по признаку одного пробела.

Далее в цикле по всем элементам массива рассматривается каждое слово и во внутреннем цикле каждый символ рассматриваемого слова с помощью метода Substring()сравнивается с символами-цифрами и подсчитывается количество цифр в слове. Если это количество цифр в слове равно длине слова, значит рассматриваемое слово состоит только из цифр, и, следовательно, оно добавляется в новую результатирующую строкуRez. Если после выполнения внешнего цикла результирующая строкаRezпуста (т.е. не содержит слов), то в нее записывается сообщение"Таких слов нет".

4.9.6. Тестовые задания

1. Символьным (строковым) выражением является

1. последовательность букв русского или латинского алфавита, цифр или других символов, взятая в кавычки

2. последовательность букв русского или латинского алфавита

3. последовательность букв русского алфавита

4. последовательность букв русского или латинского алфавита, цифр или других символов, начинающаяся с латинской буквы и взятая в кавычки

2. Ошибочной записью символьной переменной является

1. с$

2. b

3. c1

4. нет верного ответа

3. Подсчитать количество символов в символьном выражении позволяет функция

1. Len( )

2. Left( )

3. Asc( )

4. Mid ( )

4. Операции, допустимые для строковых данных

1. >, < , = , < = , > = , <> , + , &

2. + , = , &

3. =

4. нет верного ответа

5. Метод a.Substring(0, n)

1. возвращает n первых символов строки a

2. возвращает n последних символов строки a

3. не применяется к строкам

4. находит символ, стоящий на позиции n в строке a

5. ничего не делает

6. Метод a.Substring(n, m)

1. вырезает из строки a , начиная с n-ого, m символов

2. вырезает из строки a , начиная с m-ого , n cимволов,

3. не применяется к строкам

4. нет верного ответа

7. Функция Space(n)

1. возвращает строку из n пробелов

2. возвращает строку из n первых символов

3. возвращает строку из n последних символов

4. удаляет n начальных пробелов

8. Метод a.ToUpper

1. заменяет строчные буквы строки aна прописные

2. заменяет прописные буквы на строчные

3. удаляет начальные пробелы строки

4. удаляет конечные пробелы строки

9. Метод a.ToLower

1. заменяет прописные буквы строки aна строчные

2. заменяет строчные буквы на прописные

3. удаляет начальные пробелы строкиa

4. удаляет конечные пробелы строки a

10. Метод a.TrimStart

1. удаляет начальные пробелы строки a

2. заменяет прописные буквы строки aна строчные

3. заменяет строчные буквы строки aна прописные

4. удаляет конечные пробелы строки

5. нет верного ответа

11. Метод a.TrimEnd

1. удаляет конечные пробелы строки

2. заменяет прописные буквы на строчные

3. заменяет строчные буквы на прописные

4. удаляет начальные пробелы строки

5. нет верного ответа

12. Метод a.Indexof(b, n)

1. начиная с n-й позиции строки a, определяет позицию вхождения в нее строки b

2. начиная с n-й позиции строки b, определяет позицию вхождения в нее строки a

3. заменяет n символов строки a на n символов строки b

13. Функция Chr(n)

1. возвращает символ, код ASCII которого равен числу n

2. возвращает строку из n пробелов

3. возвращает строку из n первых символов

4. возвращает строку из n последних символов

14. Функция Asc(a)

1. возвращает ASCII код первого символа строки a

2. возвращает количество символов в строке a

3. преобразует число в строку a

4. не применяется к строкам

15. Функция Val(a)

1. преобразует строку a в число, если это возможно

2. возвращает длину строки

3. определяет ASCII код строки

4. не применяется к строкам

16. Определить результат выполнения фрагмента программы

Dim a As String = "стереопроигрыватель" TextBox1.Text = a.Substring(0, 6)

1. стерео

2. O

3. нет верного ответа

4. проигрыватель

17. В результате выполнения фрагмента программы

A ="КОЗАК" a.Replace("О","А") TextBox1.Text= a

1. вторая буква будет заменена на букву «А»

2. будет вырезана буква «А»

3. будет вырезана вторая буква слова

18. Функция Ucase (a)…

1. заменяет строчные буквы на прописные cтроки а

2. заменяет прописные буквы на строчные

3. удаляет начальные пробелы строки

4. удаляет конечные пробелы строки

19. Функция Ltrim (A)…

1. удаляет начальные пробелы строки A

2. заменяет прописные буквы на строчные

3. заменяет строчные буквы на прописные

4. удаляет конечные пробелы строки

5. нет верного ответа

20. Функция Rtrim (a)…

1. удаляет конечные пробелы строки а

2. заменяет прописные буквы на строчные

3. заменяет строчные буквы на прописные

4. удаляет начальные пробелы строки

4.9.7. Лабораторная работа по теме «Программирование алгоритмов обработки символьных и строковых данных»

Цель работы: изучить средства языка программирования при обработке строковых данных, приемы совместной обработки строковой и числовой информации, функции, методы и элементы управления, предназначенные для работы со строковыми и символьными данными.

1. Вопросы, подлежащие изучению

1. Способы объявления строковых переменных.

2. Инициализация строк.

3. Классы и методы .NET Framework для работы со строками.

4. Методы преобразования строки в число и наоборот.

5. Конкатенация строк.

6. Элементы управления для работы со строками.

2. Общее задание на разработку проекта

1. Изучите вопросы программирование алгоритмов обработки символьных и строковых данных (Тема 9).

2. Выберите вариант задания из табл. 4.9.7-1.

3. Разработайте графический интерфейс пользователя.

4. Разработайте схемы алгоритмов процедур пользователя в соответствии с индивидуальным заданием, предварительно проведя формализацию.

5. Напишите программный код процедур в соответствии с разработанными схемами алгоритмов.

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

7. Выполните приложение и получите результат.

8. Докажите правильность результата.