Решение задач

End Sub

Loop

P = 1

Private Sub Command4_Click()

End Sub

Do

P = 1

Private Sub Command2_Click()

n = InputBox (“Введите n”)

k% = 1:

P = P * k

k = k + 1

Loop Until k > n

Print n; “!=”; P

Это цикл с предусловием. Проверяется условие продолжения цикла. Делай, пока условие истинно. Иначе цикл заканчивается. Тело цикла может не выполниться ни разу.

Private Sub Command3_Click() n!=InputBox (“Введите n”) k% = 1: P = 1 Do While k <= n P = P * k k = k + 1 Loop Print n; “!=”; P End Sub

Начало подпрограммы   Вводим число n   Начальное значение счетчика равно 1     Начальное значение произведения = 1     Проверка условия: если k<=n, то Выполняем тело цикла:     Произведение (факториал) умножается на очередное значение счетчика Счетчик k увеличивается на 1 Возвращаемся к началу цикла     Печатаем значение факториала Р     Конец подпрограммы.

Запустите программу и проверьте факториал для значений 3!=6. Найдите максимальное число, для которого VB вычисляет факториал. (170!)

Цикл Do Until…Loop

Это цикл с предусловием. Проверяется условие выхода из цикла.

Делай до выполнения условия. Тело цикла может не выполниться ни разу.

n = InputBox («Введите n»)

k% = 1:

Do Until k > n

P = P * k

k = k + 1

Print n; “!=”; P

Задача 1. Составьте программу табулирования функции на заданном отрезке с заданным шагом. (Табулирование это вычисление значений функции с заданным шагом).

, [4,8] с шагом 0,5

Решение:

Составим эскиз, чтобы на экране получился проект:

Составим программу для 5 кнопки.

Запись Format(y, "0.0000")означает, что формат вывода переменной y четыре знака после запятой. Количество целых не ограничивается.

Если компьютер не считает последнее значение х = 8, то следует, учитывая "машинную точность", в условии добавить одну тысячную, например, x <= 8.001

Записываем таблицу в тетрадь в качестве ответа.

.Задача 2. Составьте программу вычисления суммы: