Составление программ обработки символьных данных

Задания для решения на практических занятиях:

Задание 1.

В заданном тексте удалить часть текста, заключенную в скобки (вместе со скобками).

Задание 2.

В заданом выражении “ГОЛУБОЕ МОРЕ” переставьте местами слова.

Варианты индивидуальных заданий

Задание 1.

В анализируемом слове все гласные буквы удалить и на их место поставить пробел. Вывести на дисплей исходное слово и результат преобразований.

Задание 2.

В заданном слове каждую гласную букву выделить символом *. Результат преобразований вывести на экран.

Задание 3.

В заданном слове поменять местами первую и последнюю буквы. Вывести на экран дисплея исходное слово и результат.

Задание 4.

В слове ЮРИСДИКЦИЯ найти и вывести на печать индекс последней буквы И.

Задание 5.

Определить процентное соотношение буквы О в заданном слове. Слово вводится с монитора.

Задание 5.

Определить количество слогов «ни» в заданном слове. Слово вводится с монитора.

Задание 6.

В заданном слове переставить буквы наоборот. Результат преобразований вывести на экран.

Задание 7.

В заданном слове рассчитать количество согласных букв. Слово вводится с монитора.

Задание 8.

В заданном слове все согласные буквы поменять на цифру 5. Слово вводится с монитора. Результат преобразований вывести на экран.

Задание 9.

В слове ИНИЦИАТОР после каждой гласной буквы вставить такую же букву.

Задание 10.

В слове АЭРОМЕХАНИКА рассчитать количество гласных букв.

Задание 11.

В заданном слове определить количество букв А и заменить их на букву М.

Задание 12.

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

Задание 13.

В выражении КОМПЬЮТЕРНАЯ ТЕХНИКА переставить местами слова. Результат преобразований вывести на экран.

Задание 14.

Написать программу, которая в заданной строке символов меняла бы все символы «:» на знак равенства. Результат вывести на экран.

Задание 15.

В заданной строке символов подсчитать количество цифр.

Задание 16.

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

Задание 17.

Заменить буквы «ТИ» в строке «ТИРАЖ» на буквы «МИ». Преобразованный результат вывести на экран.

Задание 18.

В заданной строке символов удалить все цифры, заменяя их на «*». Преобразованный результат вывести на экран.

Задание 19.

Написать программу вывода на экран кода каждого символа заданного слова.

Задание 20.

В задаваемой строке символов подсчитать количество сочетаний символов «?!».

Задание 21.

Задано символьное выражение «КОЛОРИТ». Вывести на печать, используя функции и возможности Visual Basic, новое выражение «ТИР».

Задание 22.

Задан текст. Заменить в конце каждого предложения точку на два знака восклицания. Преобразованный текст вывести на экран.

Задание 23.

В заданном предложении определить количество слов.

Задание 24.

У заданной строке символов найти словосочетание “МУР” и заменить его на “$$$”.

Задание 25.

Задано символьное выражение ИНФОРМАТИКА. Используя функции и возможности Visual Basic, сформировать новое выражение КИНО.

Задание 26.

Задано два символьных выражения КОМПРОМИС и ТЕЛЕГРАММА. Вывести на экран, используя функции и возможности Visual Basic, новое выражение ПРОГРАММА.

Задание 27.

В тексте между словами вместо одного пробела вставить два. Преобразованный текст вывести на экран.

Задание 28.

В заданном слове после каждого символа поставить знак „-”. Преобразованное выражение вывести на экран.

Задание 29.

В заданной фамилии последнюю букву заменить окончанием «ов». Вывести на экран исходную фамилию и преобразованную.

Задание 30.

Задан текст „Visual Basic-объектно-ориентированный язык программирования”. Найти и вывести на экран начальную позицию слова «язык».

Образец выполнения задания

Пример 1. Рассчитать процентное содержание букв «А» в заданном слове.

1. Входными данными является любое слово на русском языке.

2. Выходными данными – общее количество букв-N, количество букв «А» в слове-K, процентное содержание.

3. Проектируем форму:

4. Составляем программу:

Dim SL As String, N As Integer, K As Integer, I As Integer

Private Sub Command1_Click()

SL = Text1.Text

N = Len(SL)

K = 0

For I = 1 To N

If Mid(SL, I, 1) = "А" Or Mid(SL, I, 1) = "а" Then

K = K + 1

End If

Next

Text2.Text = N

Text3.Text = K

Text4.Text = K * 100 / N

End Sub

Private Sub Command2_Click()

End

End Sub

5. Результат выполнения программы:

Пример 2. В заданной переменной вычислить количество гласных букв и на их место поставить символ «*».

1. Входными данными является любое слово на русском языке.

2. Выходными данными – преобразованное слово, общее количество гласных букв-K.

3. Проектируем форму:

4. Составляем программу:

Dim SL As String, K As Integer, I As Integer

Private Sub Command1_Click()

SL = Text1.Text

K = 0

For I = 1 To Len(SL)

If InStr("АЕЁИОУЫЭЮЯаеёиоуыэюя", Mid(SL, I, 1)) <> 0 Then

K = K + 1

Mid(SL, I, 1) = "*"

End If

Next

Text2.Text = SL

Text3.Text = K

End Sub

Private Sub Command2_Click()

End

End Sub

5. Результат выполнения программы:

Задание 8

Дата добавления: 2017-02-01