Последние записи
- В классе 20 учеников писали диктант по русскому языку. Напишите программу подсчитывающую кол-во оценок (двоек, троек…). Паскаль
- Построение в TreeView
- Открыть программу при повторном клике по ярлыку
- VirtualTreeView работа с узлами
- Выбрать по одной записи для каждой категории
- Различия в работе программы на Win 10 и Win Server
- Вопрос для тех, кто пишет (программирует) на двух и более языках: У вас бывает так, что правила/синтаксис одного языка случайно начинаете использовать в другом?
- vbulletin вставка дополнительных кнопок bb кодов bbcode в панель навигации
- vbulletin редактирование стандартных bb кодов
- Вынести часть текста из многострочной ячейки по условию (Excel)
11th
Июн
Массив с Фибоначчи. Создание массива с произведением элементов Фибоначчи — Microsoft Office Excel
Posted by obzor under VBA
Первоначальное условие: Для заданного натурального числа n (n>=3) найти произведение первых n чисел Фибоначчи. Нужно создать программу с массивом.
есть мысль))
Код:
Sub ProductFrstFIBO()
Dim ar(), N&, i&, P As Double, s$
N = Val(InputBox("Укажите число", "Сколько чисел Фибоначчи перемножить?", 9))
ReDim ar(1 To N)
ar(1) = 1: ar(2) = 1: P = 1: s = ""
For i = 1 To N
If i > 2 Then ar(i) = ar(i - 2) + ar(i - 1): P = P * ar(i)
s = s & "чФ" & i & " = " & ar(i) & ", произв. = " & P & vbLf
Next
MsgBox "равно " & P & vbLf & vbLf & "получено так: " & vbLf & s, vbOKOnly, "Происзведение " & N & " первых чисел Фибоначчи"
End Sub
Похожие статьи
