Задание

1. Дополните процедуру события "Вычислить" для приложения, разработанного в лабораторной работе № 2. В процедуре должна выполняться проверка области допустимых значений.

2. Создайте новое приложение в соответствии со своим вариантом.

Вариант 1. Даны координаты трёх точек на плоскости. Выяснить, являются ли они вершинами равностороннего треугольника (выдать сообщение). Если да, то вычислить площадь треугольника.

Вариант 2. Даны координаты трёх точек на плоскости. Выяснить, являются ли они вершинами прямоугольного треугольника (выдать сообщение). Если да, то вычислить площадь треугольника.

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

Вариант 4. Даны координаты двух точек на плоскости и радиус окружности с центром в начале координат. Выяснить лежат ли обе точки на окружности. Если да – то вычислить площадь круга, ограниченного окружностью.

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

Вариант 6. Даны координаты двух точек на плоскости. Выяснить, принадлежат ли они первой четверти плоскости. Если да, то вычислить угол, образованный прямыми, проведёнными от эти точек до начала координат.

Вариант 7. С помощью генератора случайных чисел задать целое число, значение которого может быть от 0 до 100. Выяснить, попадает ли заданное число в диапазон от a до b. Предусмотреть ввод значений a и b.

Вариант 8. С помощью генератора случайных чисел задать 3 целых числа, значения которых может быть от 0 до 1000. Значение наибольшего из них вывести в форме красным цветом.

Вариант 9. С помощью генератора случайных чисел задать 3 целых числа, значения которых может быть от 0 до 1000. Значение наименьшего из них вывести в форме зелёным цветом.

Вариант 10. С помощью генератора случайных чисел задать 3 целых числа, значения которых может быть от 0 до 1000. Если сумма трёх чисел больше 2000, то вычислить их среднее арифметическое, иначе – среднее геометрическое.

Лабораторная работа № 4 Циклический вычислительный процесс (повторение)

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

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

Оператор For…Next

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

Forсчётчик =начальное значениеToконечное значение[Stepшаг]

…

Next[счётчик]

Счётчик – это переменная, принимающая числовые значения. Начальное, конечное значения и шаг могут задаваться арифметическими выражениями. Параметр Stepв операторе может не указываться, если он равен 1. При первом выполнении цикласчётчикустанавливается вначальноезначение. Если значениесчётчикаменьше или равноконечного(при положительном шаге), то выполняются операторы, составляющие тело цикла, иначе цикл завершается. При достижении строкиNext счётчик изменяется на величину шага, после чего снова выполняется проверка и т.д.

Количество повторений цикла определяется путём деления разницы между конечным и начальным значением на шаг.

Для преждевременного выхода из цикла используется оператор Exit for.

Пример 1.Вычислить и вывести таблицу погашения кредита, выданного банком. Известна сумма кредита –Sk, кредит выдан на 6 месяцев. Сумма кредита должна выплачиваться ежемесячно равными долями. За пользование кредитом клиент выплачивает 22% годовых, которые начисляются ежемесячно от остатка суммы кредита.

Private Sub Комманда1_Click()

Dim Sk As Single

Dim Spr As Single, So As Single

Dim i As Byte

Sk = InputBox("Введите сумму кредита:")

So = Sk

Print "месяц", "погашение", "проценты"

Print "~~~~~~~~~~~~~~~~~~~~~~~~~~~"

For i = 1 To 6

Spr = So * 0.22 / 12

So = So - Sk / 6

Print i, Format(Sk / 6, "######.##"), Format(Spr, "######.##")

Next i

End Sub