3. Инверсия цепочки символов

Задание

Создать программу, изменяющую положение символов в исходной произвольной цепочке, введённой пользователем, на обратное (первый символ становится последним, второй — предпоследним и т. д.). Использовать рекурсию.

Использовать следующий алгоритм решения задачи: из цепочки символов выделяется самый левый символ и затем присоединяется к оставшейся цепочке справа.

Вопросы к заданию

1. Разработать интерфейс пользователя. В отчёте привести иллюстрацию интерфейса и описать назначение всех используемых объектов.

2. Изменить программу так, чтобы при каждом щелчке кнопки перестраивался единственный символ цепочки. Выводить также счётчики текущей и новой позиции символа в цепочке, например: был 1, стал 5 . В отчёте описать необходимые изменения.

3. Изменить программу, заменив рекурсию на цикл с условием. Привести в отчёте алгоритм цикла.

4. Изменить программу для перестроения символов в цепочке по периодическим сигналам таймера. Привести в отчёте алгоритм цикла.

2. Массивы

1. Ввод-вывод массива

Задание

Создать программу для статистической обработки наборов из десяти чисел. Пользователь должен ввести очередное число в текстовое поле и нажать кнопку «Ввод» для записи числа. При этом число должно записаться в массив, вывестись на форме в поле «Контроль», а счётчик введённых чисел должен увеличиться на единицу. После ввода десятого числа дальнейший ввод чисел должен быть заблокирован.

После ввода всего набора чисел программа должна выводить следующие результаты:

• все исходные числа;

• сумму введённых чисел;

• среднее значение набора введённых чисел;

• стандартное отклонение — меру того, насколько широко разбросаны точки данных относительно их среднего значения.

Предполагается, что набор чисел представляет собой генеральную совокупность. В этом случае формула вычисления стандартного отклонения имеет следующий вид:

.

Вопросы к заданию

1. Разработать интерфейс пользователя. В отчёте привести иллюстрацию интерфейса и описать назначение всех используемых объектов.

2. Привести в отчёте состав переменных, используемых в программе, и обосновать их типы.

3. Написать текст программы. Все функциональные блоки оформить в виде отдельных процедур (функций) и разместить в стандартном модуле. В отчёте привести список процедур с указанием места их размещения (в модуле формы или в стандартном модуле).

4. Привести в отчёте алгоритм вычисления стандартного отклонения.

2. Поиск элемента максимальной длины

Задание

Создать программу для нахождения самой длинной фамилии в списке.

Пользователь должен вводить фамилии по одной. По щелчку на кнопке фамилия должна добавляться в текстовое поле (столбиком) для визуального контроля правильности ввода.

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

Для хранения списка фамилий использовать массив.

Добавить в проект стандартный модуль и ввести в него текст заготовки поиска самой длинной фамилии:

Dim Number as Integer ‘Счётчик элементов списка

Dim SurnameMax as String ‘Переменная для хранения самой

длинной фамилии

Dim Surnames(0 to 4) as String

SurnameMax = Surnames(0)

For Number = 0 to 4

If Len(Surnames(Number)) > Len(SurnameMax) Then

SurnameMax = Surnames(Number)

End if

Next Number

Вопросы к заданию

1. Разработать интерфейс пользователя. В отчёте привести иллюстрацию интерфейса и описать назначение всех используемых объектов. Для отображения нескольких строк в текстовом поле со списком фамилий его свойство Multyline установить равным True, использовать оператор сцепления строк & и служебную константу перевода курсора на следующую строку vbCrLf.

2. Добавить блок автоматического заполнения массива фамилиями при запуске программы (процедура загрузки формы, событие Load).

3. Добавить в программу блок поиска самой короткой фамилии в списке.

4. Добавить в программу блок определения средней по длине фамилии. Средней считать фамилию, длина которой наиболее близка к среднему арифметическому длины всех фамилий. Учесть, что количество букв в фамилии не может быть дробным (использовать функцию округления до ближайшего целого), привести алгоритм поиска средней по длине фамилии в отчёте.