Образец выполнения задания
Пример 1. Рассчитать процентное содержание букв «А» в заданном слове.
-
Входными данными является любое слово на русском языке.
-
Выходными данными – общее количество букв-N, количество букв «А» в слове-K, процентное содержание.
-
Проектируем форму:
-
Составляем программу:
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
-
Результат выполнения программы:
Пример 2. В заданной переменной вычислить количество гласных букв и на их место поставить символ «*».
-
Входными данными является любое слово на русском языке.
-
Выходными данными – преобразованное слово, общее количество гласных букв-K.
-
Проектируем форму:
-
Составляем программу:
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
-
Результат выполнения программы:
Задание 8
Составление программ обработки символьных данных
Усложненный вариант
Задания для решения на практических занятиях:
Задание 1.
Существует ведомость фамилий. Вывести на печать эту ведомость в порядке обратном алфавиту.
Задание 2.
В заданном списке фамилий подсчитать количество фамилий, заканчивающихся на слог «нов» и вывести их на экран.
Варианты индивидуальных заданий
Задание 1.
Написать программу сортировки по алфавиту заданного перечня овощей.
Задание 2.
В перечне месяцев года подсчитать количество месяцев, заканчивающихся на «ль».
Задание 3.
Задан перечень фамилий учащихся. Написать программу вывода на экран фамилий, которые начинаются на гласную букву.
Задание 4.
Задан перечень городов. Вывести на экран наименование города, в названии которого букв «о» больше всего.
Задание 5.
Задан список городов. Вывести на экран количество букв (длину) каждого города и его наименование.
Задание 6.
Задан перечень фамилий учащихся. Написать программу подсчета количества фамилий, имеющих длину 7 букв.
Задание 7.
В текстовой переменной 2С35IA4 переставить в порядке возрастания.
Задание 8.
Задана строка символов. Написать программу подсчета сочетаний согласной буквы и пробела.
Задание 9.
Задан перечень фамилий учащихся. Написать программу вывода на экран самой длинной фамилии.
Задание 10.
В перечне месяцев года подсчитать количество месяцев, заканчивающихся на «брь».
Задание 11.
В заданном списке фамилий определить порядковый номер фамилии, задаваемой с экрана для поиска.
Задание 12.
Задан перечень фамилий учащихся. Написать программу вывода на экран количества букв в самой короткой фамилии.
Задание 13.
Задан перечень фамилий учащихся. Написать программу вывода на экран тех фамилий, длина которых не превышает 8 букв.
Задание 14.
В заданном тексте заменить слово А1$ на слово А2$ (длины слов не совпадают).
Задание 15.
Имеется ведомость, состоящая из 10 фамилий. Найти и напечатать порядковые номера задаваемых фамилий.
Задание 16.
В заданном слове переставить буквы в алфавитном порядке.
Задание 17.
В текстовой переменной 7IД523GE6 поставить число в порядке убывания.
Задание 18.
Сколько раз в тексте встречается заданное слово? (Слова разделены пробелами).
Задание 19.
В слове ЭЛЕКТРОНИКА переставить буквы в порядке, обратном алфавиту.
Задание 20.
Напечатать самое длинное слово из заданного текста «Цель статистики заключается в представлении фактов в наиболее сжатой форме».
Задание 21.
Задан перечень фамилий учащихся. Написать программу вывода на экран фамилий, которые начинаются на согласную букву.
Задание 22.
Существует ведомость, состоящая из 10 фамилий. Вывести на печать эту ведомость в алфавитном порядке.
Задание 23.
Определить, какие символы и сколько раз встречаются в заданном слове АЛЬТЕРНАТИВА.
Задание 24.
Определить букву, на которую начинается больше всего слов в тексте «Практикум начинается на первом курсе, параллельно с чтением основного курса».
Задание 25.
Найти самое длинное слово заданного предложения: «Книга предназначена для пользования студентами и преподавателями».
Задание 26.
Существует ведомость, состоящая из 10 фамилий. Посчитать, сколько фамилий заканчивается на букву о.
Задание 27.
Существует ведомость, состоящая из 10 фамилий. Вывести на печать эту ведомость в порядке, обратном алфавиту.
Задание 28.
В заданной ведомости переставить фамилии в порядке увеличения количества букв.
Задание 29.
В заданной ведомости определить процентное содержание букв, с которых начинаются фамилии.
Задание 30.
В заданном списке фамилий подсчитать количество фамилий, заканчивающихся на слог «ко».