Угринович Н., Босова Л., Михайлова Н. Практикум по информатике и информационным технологиям

Подождите немного. Документ загружается.

160

Глава

последовательном поиске минимальных элементов и их пере-

мещении

к началу массива с помощью перестановок с элемен-

тами, имеющими меньший индекс.

На

первом шаге находим минимальный элемент массива и

меняем

его местами с первым элементом массива. Остаются не-

упорядоченными N-1 элемент. Проводим поиск минимального

элемента среди элементов с индексами от 2 до N и делаем пере-

становку.

Повторяем

процедуру поиска минимального элемента среди

оставшихся неупорядоченных элементов многократно. Повто-

рение

реализуем с помощью цикла со счетчиком, максималь-

ное

значение которого составляет N-1. В

результате

массив

сортируется по возрастанию.

Так

как поиск минимального элемента массива проводится

многократно,

реализуем рассмотренную ранее событийную про-

цедуру

cmdMin_Click () как общую процедуру МинЭлемент

(bytl, bytN As

Byte),

где

bytl

— является входным парамет-

ром,

a bytN — выходным параметром.

7 Ввести программный код общей процедуры поиска минима-

льного элемента и поместить ее в начало программного кода

проекта. Объявить переменные, используемые во

всех

проце-

дурах:

Dim

bytA(l

To 10), bytMin,

bytl,

bytJ,

bytK,

bytR, bytN As

Byte,

'общая процедура поиска минимального элемента

Sub МинЭлемент (bytl, bytN As

Byte)

bytMin =

bytA(bytl)

bytN =

bytl

For

bytJ

bytl

+ 1 To 10

bytA(bytJ)

< bytMin

Then

bytMin =

bytA(bytJ)

: bytN =

bytJ

End Sub

Событийная

процедура, реализующая сортировку массива,

будет

включать в себя вызов общей процедуры поиска минима-

льного элемента и код перестановки элементов.

Процесс

сортировки массива можно сделать наглядным,

если в текстовое поле выводить состояние массива на каждом

шаге сортировки.

8 Поместить на форму текстовое поле txtSort и кнопку

cmdSort. Присвоить свойству кнопки Caption значение

Сортировать.

Объектно-ориентированное программирование на языке Visual

Basic

161

Ввести программный

код

событийной процедуры сортировки

массива:

'событийная

процедура сортировки

Private

Sub cmdSort_Click ()

txtSort.Text = ""

For

bytl

= 1 To 9

'вызов

общей процедуры

поиска

минимального

элемента

Call

МинЭлемент(bytl, bytN)

перестановка

bytR =

bytA(bytl)

= bytA(bytN)

bytA(bytN) = bytR

'печать

массива для каждого

цикла

сортировки

For bytK = 1 То 10

txtSort.Text = txtSort.Text + Str(bytA(bytK))

Next bytK

bytl

End

Sub

Для большей наглядности разместить

на

форме

две

метки

номерами элементов массива (горизонтальная)

значения-

ми

счетчика цикла сортировки (вертикальная).

Запустить проект

на

выполнение. Щелкнуть

по

кнопкам

Заполнить

массив.

Мин.

элемент

Сортировка.

Процедуру можно

про-

изводить многократно

наблюдать процесс

сор-

тировки

для

различных

вариантов заполнения

массива.

Элементы

массива

12346678910

1273896788

1237896788

1236897788

1236798788

1236778988

1236778898

1236778889

2401113361

093932453

5630244908

273196788

Сохранить проект

фай-

ле

prj3.vbp.

Проект хранится

каталоге

\practicum\VB\Projects\project3\

CD-ROM

Проект

5.4. «Сортировка строкового массива».

Разработаем

проект, который позволяет сортировать строковый массив

(на-

пример, содержащий компьютерные термины)

по

алфавиту.

6—1992

162

Глава 5

Заполнение строкового массива. Как

строковые,

так и чис-

ловые массивы можно заполнять разными методами. Рассмот-

ренный

ранее числовой массив

был

заполнен непосредственно

самой программе. Можно заполнять массивы, вводя данные

клавиатуры

использованием функции

InputBox,

однако стро-

ковые массивы чаще всего заполняются путем считывания

дан-

ных

из

текстовых файлов.

Такие

текстовые файлы должны содержать только коды

са-

мих символов

(не

должны содержать управляющие коды

фор-

матирования

текста, тэги языка HTML

и так

далее)

и,

следова-

тельно, должны создаваться

простейших текстовых редакто-

рах (типа Блокнот).

В таких файлах элементы данных (последовательности

сим-

волов) отделяются

друг

от

друга

помощью разделителей

(чаще всего запятой).

Создадим

два

текстовых файла данных: первый, содержа-

щий

буквы алфавита,

второй

—

содержащий компьютерные

термины.

Ш\

Проект «Сортировка строкового массива»

1 Запустить Блокнот, ввести буквы русского алфавита

сохра-

нить

файл

под

именем alphabet.txt.

alphabet.txt

Блокнот

Файл

Правка

Поиск

Справка

г,д,е,ё

ж,з

и,й

л,м,н,о

п,р,с

у.Ф.х,Ц,ч

ш,щ

ъ,ы

2 Создать файл, ввести компьютерные термины

сохранить

под именем term.txt.

компьютер.алгоритм.процессор.модемлискета.байт.информатика.объект.винчестер.тзг-Н

Прежде

чем

приступить

считыванию данных

из

текстового

файла

строковый массив

(или

последовательность строковых

переменных), необходимо открыть файл

помощью специаль-

ного оператора

Open:

Open

Имя_файла

For

Режим_работы

As #

Номер_файла

Имя_файла

должно содержать путь

файлу

собственно

имя

файла, Режим_работы определяет,

что

файл открыт

для

считывания

данных

(Input) или,

наоборот,

для

записи данных

файл

(Output), а

Номерфайла содержит целое число

интер-

вале

от 1 до 511.

Объектно-ориентированное программирование

на

языке Visual

Basic

163

Например,

чтобы открыть файл

alphabet.txt,

находящийся

на

CD-ROM,

для

считывания данных, необходимо ввести

следую-

щий

код:

Open

"E:\practicum\VB\Projects\project4\

alphabet.txt"

For

Input

As #1

Для чтения данных

из

файла используется функция

Input:

Input

Номер_файла, Список_переменных

После

завершения считывания данных файл необходимо

за-

крыть

помощью оператора

Close:

Номер_файла

Произведем чтение данных

из

файла alphabet.txt

строковый

массив

помощью цикла

со

счетчиком.

3 Создать проект,

на

форму поместить кнопку cmdAlph (задать

свойству Caption значение Считать алфавит)

текстовое

поле

txtAlph,

котором можно наблюдать

результат

запол-

нения

массива.

4 Объявить переменные, используемые

во

всех

процедурах:

Dim

bytl,

bytK

Byte,

strA(l

To 33),

strB(l

To 10),

strC(l

To 10) As

String

Создать

событийную процедуру считывания данных

из

файла

alphabet.txt

строковый

массив

strA:

Private

Sub

cmdAlph_Click()

Open

"E:\practicum\VB\Projects\project4\

alphabet.txt

For Input As #1

For bytl

= 1 To 33

Input #1,

strA (bytl)

txtAlph.Text

strA(bytl)

Next bytl

End

Sub

Произведем теперь чтение данных

из

файла term.txt

строко-

вый

массив

помощью цикла

предусловием.

Это

вариант

ис-

пользуется, если заранее неизвестно количество элементов

дан-

ных

файле,

и в

качестве условия используется функция

EOF

(End

Off

File):

EOF

(Номер_файла)

Для визуализации заполнения строкового массива терминами

удобно использовать управляющий элемент

Окно

списка

(ListBox),

который

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

Для размещения

окне списка нового элемента использует-

ся

метод Addltem, который имеет

качестве аргумента строко-

вую переменную, значение которой

добавляется

список.

164

Глава

5 Поместить

на

форму кнопку cmdTerm (задать свойству

[=тз

Caption

значение Считать термины)

окно списка

lstTerm,

котором можно наблюдать результат заполнения

массива.

6 Создать событийную процедуру считывания данных

из

файла

term.txt

строковый массив strB

и его

отображения

окне

списка

lstTerm:

Private

Sub

cmdTerm_Click

()

Open

"E:\practicum\VB\Projects\project4\term.txt"

For

Input As #2

bytl

= 1

Until

EOF(2)

Input

#2, strB(bytl)

lstTerm.Addltem strB(bytl)

bytl = bytl + 1

Loop

End Sub

Сортировка массива. В

исходном строковом массиве strB

термины хранятся

неупорядоченном виде. Сравним последо-

вательно

во

внутреннем цикле

со

счетчиком

bytl

букву

«а» ал-

фавита

первыми символами терминов,

случае

их

совпаде-

ния

присвоим первому элементу результирующего символьного

массива strC

это

значение. Повторим

эту

процедуру последова-

тельно

для

всех букв алфавита

использованием внешнего

цикла

со

счетчиком bytK. Получим упорядоченный строковый

массив strC.

7 Поместить

на

форму кнопку cmdSort (задать свойству

Cap-

tion

значение Сортировать)

создать событийную проце-

дуру

сортировки массива:

Private

Sub

cmdSort_Click()

bytJ

= 1

For bytK

= 1 To 33

For

bytl

= 1 To 10

If strA(bytK)

Left$(strB(bytl),

1) Then

strC(bytJ)

strB (bytl): bytJ

bytJ

+ 1

bytl

Next bytK

End Sub

Визуализация

отсортированного массива. Для

визуализа-

ции

отсортированного массива используем второе окно списка.

Объектно-ориентированное

программирование

на языке

Visual

Basic

165

Поместить на форму кнопку cmdRez (задать свойству Capti-

значение Показать), окно списка

lstSort

и создать собы-

тийную

процедуру

визуализации отсортированного массива:

Private

Sub cmdRe z_C1i с k()

For

bytJ

= 1 To 10

lstSort.Addltem

strC(bytJ)

bytJ

End Sub

Запустить проект на выполнение. Последовательно щелкнуть

по кнопкам

Считать

алфавит,

Считать

термины,

Сорти-

ровать,

Показать.

Щ,

Сортировка строкового

массива

абвгдеёжзийклмнопрстуфхцчшщъыьэюя

Считать

алфавит

Считать теркздны

Сортировать

Показать

компьютер

алгоритм

процессор

модем

дискета

байт

информатика

объект

-ill

Iалгоритм

|байт

(винчестер

Iдискета

(информатика

[компьютер

1модем

(объект

10 Сохранить проект в файле

prj4.vbp.

Проект

хранится

в каталоге

\practicum\VB\Projects\project4\

Задания

для самостоятельного

выполнения

5.12. Создать проект, реализующий поиск максимального элемента чис-

лового массива.

5.13. Создать проект, реализующий сортировку числового массива по

убыванию методом перестановок.

5.14. Создать проект, реализующий сортировку массива по возрастанию

«пузырьковым» методом.

5.15. Усовершенствовать проект 5.4 «Сортировка строкового массива».

Предусмотреть возможность сохранения отсортированного массива

файле.

5.16. Создать проект «Словарь компьютерных терминов», который выво-

дит определение термина, заданного пользователем. Термины и их

определения хранить в файлах данных.

166

Глава

5.17. Создать проект «Русско-английский

англо-русский словарь»,

ко-

торый обеспечивает перевод слов, хранящихся

файлах данных.

5.18. Создать проект «Проверка знаний»

так,

чтобы вопросы

правиль-

ные

ответы хранились

файлах данных, вопросы задавались

отве-

ты вводились

использованием цикла,

ответы учащегося сохраня-

лись

файле.

5.5.

Ввод и вывод данных

Ввод

и вывод данных в процессе выполнения проекта может

производиться различными способами. Функция InputBox

(Окно

Ввода)

позволяет вводить данные с помощью диалоговой

панели

ввода, а функция

MsgBox

(панель

сообщений),

наоборот,

позволяет выводить сообщения на специальной панели. Для

ввода и вывода данных

могут

использоваться также

TextBox

(текстовые

поля), а для печати данных оператор

Print.

Проект

5.5.

«Игра

Баше».

Разработаем проект, который по-

зволит реализовывать игру Баше, в которой ввод и вывод дан-

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

следующем: имеется N предметов, а два игрока по очереди бе-

рут 1, 2 или 3 предмета, причем проигрывает тот игрок, кото-

рый

забирает последний предмет.

В начале игры и после каждого

хода

существуют

четыре ва-

рианта количества предметов, которое можно выразить с помо-

щью следующих формул:

= 4 -К; N = 4K+1; N =

4-K+2;

ЛГ =

4#+3,

где ЯГ = О, 1, 2, ...

Выигрышная стратегия состоит в том, чтобы после своего

хода

осталось 1, 5, 9, 13 и так далее предметов, то есть, в об-

щем случае, должно оставаться 4 • К+1 предмет, где К = 0, 1,

2, ... Таким образом, в каждом из вышеприведенных случаев

необходимо взять на своем

ходе

определенное количество пред-

метов:

• при N = 4 • К — взять 3 предмета;

• при N = 4-К + 1 не

существует

100% выигрышной страте-

гии,

поэтому можно брать произвольное количество предме-

тов, оставляя возможность осуществить выигрышную стра-

тегию

другому

игроку;

• при N = 4-К + 2 — взять 1 предмет;

• при N = 4 • К + 3 — взять 2 предмета.

Создадим проект, реализующий игру Баше, в котором од-

ним

игроком является компьютер, а другим — пользователь.

Первоначальное случайное целочисленное количество предме-

Объектно-ориентированное

программирование на языке Visual

Basic

167

тов (например, в интервале от 10 до 20) получим с помощью

оператора Randomize, функции генератора случайных чисел

Rnd

и функции выделения целой части числа Int. Присвоим

полученное значение переменной bytN. Выводить информацию

0 количестве предметов

будем

с помощью оператора

Print.

jft

Проект

«Игра

Баше»

1 Поместить на форму кнопку и начать создание событийной

процедуры cmdl_Click ().

Private

Sub cmd1_C1i с k()

Randomize

bytN = Int(10 + 10 * Rnd)

"Первоначальное количество предметов";

bytN

End Sub

Для информации пользователя о количестве предметов и по-

лучении его согласия на начало игры воспользуемся функ-

цией

вывода

MsgBox.

2 Ввести в код событийной процедуры строки:

bytB

= MsgBox("Количество предметов" +

Str(bytN) + "." + " Начать игру?",

36, "Игра Баше")

bytB

= 7

Then

End

3 Запустить проект щелчком по

кнопке

Начать

игру.

На

форме и на панели

Игра

Ба-

ше

будет

напечатано первонача-

льное количество предметов. \^

Количество предметов 17. Начать

игру?

Щелчок

по кнопке Да позволит ,' —, ^ |

начать игру. •' '.

^.-

Первоначальное количество предметов

Начать

игру

Процесс

поочередного взятия предметов компьютером и по-

льзователем должен продолжаться, пока не останется хотя бы

один

предмет. Удобнее всего использовать для этого цикл с пре-

дусловием:

While

bytN > 1 -

Loop.

Для подсчета сделанных ходов целесообразно использовать

специальную переменную

bytl:

bytl

+ 1

168

Глава

Пусть первый ход

делает

пользователь

вводит количество

взятых предметов

использованием функции ввода InputBox,

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

строковой переменной

strX:

strX

InputBox("Какое количество предметов

Вы забираете?",

"Ваш

ход!")

Для определения количества оставшихся после

хода

пользо-

вателя предметов необходимо перевести строковую переменную

числовую форму

помощью функции Val

вычесть ее из пе-

ременной

bytN (первоначального количества предметов):

bytN

- Val

(strX)

КОД

СТрОКИ.

Какое количество предметов Вы забираете?

While bytN

> 1

bytl

+ 1

strX

InputBox

("Какое

количество

предметов

Вы

забираете?",

"Ваш ход!")

bytN

Val(strX)

Loop

При

выборе выигрышной стратегии компьютер при ответ-

ном

ходе

должен учитывать оставшееся количество предметов.

Проще

всего это реализовать

использованием управляющей

инструкции

выбора. Инструкция начинается

ключевых слов

Select

Case,

после которых записывается переменная. После

ключевых слов

Case

заданная переменная сравнивается

определенными значениями (записываются условия, при вы-

полнении

одного

из

которых начинает выполняться серия

команд).

Заканчивается инструкция ключевыми словами

End

Select.

В каждой ветви инструкции выбора необходимо задать уме-

ньшение

количества предметов

на

определенную величину,

также печать оставшегося количества на форме

помощью опе-

ратора

Print.

5 Для перебора возможных значений количества предметов ин-

струкцию Select

Case

необходимо поместить внутрь цикла

со счетчиком по переменной

bytK,

который,

свою очередь,

поместить внутрь цикла

послеусловием:

For bytK

= 0 То б

Select

Case bytN

Case

Is = 4 *

bytK

bytN

- 3

"После";

bytl;

"хода осталось предметов";

Объектно-ориентированное

программирование на языке Visual

Basic

169

bytK

Int

bytl;

bytK

bytl;

bytK

bytl;

2 *

"хода

Rnd)

осталось

предметов";

bytN

Case

Is = 4 *

bytN

"После";

bytN

Case

Is = 4 *

bytN

"После";

bytN

Case

Is = 4 *

bytN

"После";

bytN

End

Select

bytK

помощью операторов условного перехода необходимо

от-

слеживать

ход,

после которого остается

предмет.

При

выпол-

нении

этого условия

помощью панели сообщений

оператор-

ной

(безскобочной) форме можно предусмотреть вывод

результатов игры,

а с

помощью оператора

End —

окончание

игры.

До

цикла

со

счетчиком ввести строку:

If bytN

= 1

Then

MsgBox

"После Вашего

хода

остался

предмет. Компьютер проиграл!",

"Игра

Баше":

End

После

цикла

со

счетчиком ввести строку:

bytN

= 1

Then MsgBox "После хода компьютера

остался

предмет.

Вы

проиграли!",

"Игра

Баше":

End

7 Щелкнуть

по

кнопке

На-

чать

игру.

Последовательно

с помощью панелей ввода

ввести значения количеств

забираемых предметов

на

каждом

ходе.

Остающееся количество

предметов после каждого

хода

будет

печататься

на

форме.

Результат игры

будет

выве-

ден

помощью панели сооб-

щений.

Первоначальное

количество предметов

После

хода осталось предметов

После

хода осталось предметов

После

хода осталось предметов

После

хода осталось предметов

•

.....--

JZZJ

Вы проиграли!

Начать

игру