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

Усложненный вариант

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

Задание 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.

В заданном списке фамилий подсчитать количество фамилий, заканчивающихся на слог «ко».

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

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

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

2. Выходными данными – список фамилий, начинающихся на согласную букву.

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

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

Option Explicit

Dim k As Integer, i As Integer, dl As Integer

Private Sub Command1_Click()

Combo1.AddItem Combo1.Text

Combo1.Text = ""

Combo1.SetFocus

End Sub

Private Sub Command2_Click()

If Combo1.ListIndex >= 0 Then

Combo1.RemoveItem Combo1.ListIndex

Else

MsgBox "Ошибка! Вы не выбрали элемент!"

End If

End Sub

Private Sub Command3_Click()

Combo1.Clear

Combo2.Clear

Text1.Text = ""

End Sub

Private Sub Command4_Click()

k = 0

For i = 0 To Combo1.ListCount - 1

dl = Len(Combo1.List(i))

If InStr("бвгджзклмнпрстфхцчшщ", Mid(Combo1.List(i),dl,1))<>0 Then

k = k + 1

Combo2.AddItem Combo1.List(i)

End If

Text1.Text = k

Next

End Sub

Private Sub Command5_Click()

End

End Sub

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

Список рекомендуемой литературы.

1. Браун С.Visual Basic 6: учебный курс. – СПб.: Питер. – 576 с.: 2002.

2. Использование Visual Basic 6. Брайан Сайлер и Джефф Споттс. М. 2000. с.830.

3. Карпов Б.Visual Basic 6: специальный справочник. – СПб.: Питер. – 416 с.: 2000.

4. Михаэль Райтингер, Геральд Муч, Visual Basic 6: полное руководство: пер. с нем.-К.:Издат группа BHV, 1999

5. Петрусос Евангелос. Visual Basic 6. Руководство разработчика: Пер. с англ. – К.: Издат. группа ВНУ. – 1072 с.: 2000.

6. Цимбал Ж.В., Хоцкіна В.Б., Методичний посібник для вивчення мови програмування QBASIC:, / Кривий Ріг, КЕІ КНЕУ, 2001.

7. Зеленський О.С., Ж.В. Цымбал. Методические указания для самостоятельного изучения темы: «Стандартные элементы управления» для студентов всех специальностей, КЕИ КНЕУ, 2004.

8. Астаф′єв О.Ю.,. ЖуковаЛ.Л., Цимбал Ж.В. Методичний посібник для самостійного вивчення VISUAL BASIC для студентів усіх спеціальностей. / Кривий Ріг, КЕІ КНЕУ, 2003.

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