5. Угадывание чисел

Задание

Программа генерирует случайное целое число в диапазоне от 1 до 9. Пользователь должен угадать его, вводя в текстовое поле предположения типа «=3», «>5» или «<7».

Программа проверяет введённое значение и выдаёт один из двух возможных ответов: Да или Нет. Количество ответов подсчитывается.

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

В любой момент пользователь может начать новый сеанс.

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

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

2. Разработать алгоритм решения задачи, реализовать его и описать в отчёте.

3. Установить ограничение по количеству попыток в сеансе. Описать в отчёте сделанные в программе изменения.

4. Изменить интерфейс пользователя, реализовав ввод исходных данных с помощью двух комбинированных списков (ComboBox): списка знаков сравнения и списка значений.

4. ЦИКЛЫ

   1. Рисование окружностей

Задание

Нарисовать матрицу окружностей, размерностью 3 х 5. Радиус всех окружностей принять равным 0,35.

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

Sub Matrix()

Scale (0, 0)-(6, 5)

For i = 1 To 5

For j = 1 To 3

Circle(i, j), 0.35, 0

Next j

Next i

End Sub

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

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

2. Добиться работоспособности программы. Привести в отчёте смысл сделанных изменений и код из модуля формы.

3. Задать радиусу окружностей отрицательное значение. Объяснить результат.

4. Задать случайный выбор радиуса в диапазоне от 0,1 до 0,5 при рисовании каждой окружности матрицы (функция Rnd).

5. Добавить на форму комбинированный список ComboBox. Создать в нём список радиусов окружностей. Для очередного построения матрицы окружностей пользователь должен выбирать значение из списка.

2. Рисование треугольников

Задание

Нарисовать горизонтальный ряд из девяти одинаковых треугольников.

Для рисования использовать метод .Line и цикл For … Next.

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

1. Разработать интерфейс пользователя. Привести в отчёте список объектов интерфейса и их назначение.

2. Добавить возможность рисования треугольников в столбик (не удаляя предыдущий вариант работы программы). В отчёте описать смысл изменений.

3. В отчёте привести алгоритм расчёта координат вершин треугольников.

4. Добавить возможность рисования треугольников матрицей 3 х 3. В отчёте описать смысл изменений.

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

6. Добавить возможность рисования треугольников «треугольником»: в первом ряду – 1 треугольник, во втором – 2 и т. д. Пользователь должен задавать количество рядов фигур. В отчёте описать смысл изменений и иллюстрации результатов.

3. Рисование графика функции sin

Задание

Нарисовать график функции y = a * sin(t + ), где a — амплитуда,  — частота колебаний и  — начальная фаза колебаний. Диапазон изменения аргумента t находится в пределах от -4 до +4 радиан. Остальные параметры функции должен вводить пользователь.

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

1. Разработать алгоритм расчёта значений функции в диапазоне изменения аргумента функции (цикл For ... Next). Счётчиком цикла должен являться аргумент t функции. Шаг изменения значения счётчика принять равным 0,01. Полученные значения функции должны сохраняться в массиве. В отчёте привести алгоритм.

2. Вывести график функции точками (метод .Pset). Значения функции должны браться из массива, в котором они сохранялись. В отчёте привести алгоритм построения графика.

3. Вывести на рисунок линии масштабной сетки. Расстояние между вертикальными линиями сетки — 1 единица длины, между горизонтальными — 0,1.

4. Добавить в программу возможность построения графика гиперболы (у = k / х). Обратить внимание на возможное изменение масштаба графического поля (для наглядности изображения графика) и исключение из множества значений аргумента значения x = 0.