Вывести факториал заданного числа.

Решение.

Для решения этой задачи нам понадобится 3 переменные: a (отвечающая за то число, факториал которого мы хотим найти), b (вспомогательная переменная, над которой будут производиться действия) и f (отвечающая за факториал – какие числа должны перемножаться). Также мы должны задать нашим переменным b и f их первоначальные данные, чтобы они не были равны 0, и ввести данные числа A:

Private Sub CommandButton_Click()

Dim a As Integer

Dim b As Double

Dim f As Integer

f = 1

b = 1

a = CInt(InputBox("Введите число A"))

Далее используем оператор For, чтобы задать условие нашей задачи:

For f = 1 To a

b = b * f

Next f (переходим к следующему условию)

Далее выводим ответ на экран:

MsgBox (" Факториал числа А =" & b)

End Sub

Задача решена. СмотримJ

12.1. Вводим число А

12.2. Выводим ответ (Факториал)

Задача № 13

Дано целое число N (>1), являющееся числом Фибоначчи: N = Fk (число Фибоначчи: F1=1, F2=1, Fk=(Fk-2+Fk-1), k=3,4,...). Найти целые числа Fk-1 и Fk+1 – предыдущее и последующее числа Фибоначчи. Для примера: первые 23 числа ряда Фибоначчи:0,1,1,2,3,5,8,13,21,34,55,89,144,233,…..

Решение.

Для решения этой задачи понадобится 4 переменных: F0 (первое число Фибоначчи), F1 (второе число Фибоначчи), f (формула числа Фибоначчи) и n (наше число, перед и после которого мы хотим найти число Фибоначчи). Поскольку все наши 4 переменные цифры, поставим Integer. И введём наше собственное число:

Private Sub CommandButton_Click()

Dim F0, F1, f, n As Integer

n = CDbl(InputBox("Введите число N "))

f = 0

F0 = 0

F1 = 1

Далее вводим наш оператор. То есть нам надо, чтобы первое число Фибонначи было меньше нашего числа, а последующее было больше нашего числа. Одновременно должно выполняться два условия и повторялся цикл.

Do While f < n

f = F1 + F0

F0 = F1

F1 = f

Loop

Остаётся вывести ответ на экран:

MsgBox ("Предыдущее число Фибоначчи = " & F0 & ", а последующее = " & F0 + F1)

End Sub

Задача решена. СмотримJ

13.1. Введём наше число, для которого надо найти пред. и послед. число Фибоначчи.

13.2. Выводим ответ.

Задача №14

Дата добавления: 2017-02-01; Просмотров: 53; Нарушение авторских прав?; Мы поможем в написании вашей работы!