С помощью рекурсивной функции получить сумму n элементов последовательности

@erisnuts · Регистрация: 01.05.2013

Привет всем.)

Попался код:

Visual Basic

Sub lab8_v2()
    Range("B2").Value = sum(Range("B1").Value)
End Sub
 
Function sum(n) As Double
    If n = 1 Then
        sum = 1
    Else
        sum = sum(n - 1) + 1# / n
    End If
End Function

это решение задачки: "С помощью рекурсивной функции получить сумму n элементов
последовательности 1+1/2+1/3+…+1/n"

И вопрос состоит в 1# / n. Что за # и для чего она здесь может быть нужна? потому что ответ не меняется в зависимости от ее присутствия.

@Казанский · 01.05.2013, 13:20

Это указание на то, что единица имеет тип Double. См. F1 - Double Data Type.
Без такого указания единица будет иметь тип Integer, и каждый раз будет проводиться преобразование единицы в тип Double, что приведет к увеличению времени выполнения программы.
Впрочем, для этого кода это несущественно.

Скрипт · 01.05.2013, 14:46

Про константы

Весь текст кода делится на три части (может больше, сходу не могу сказать):

переменные;
константы;
ключевые слова.

Переменные - это ссылки на какую-то информацию. Аналогично ссылкам на сайте. На сайте есть ссылка, вы по ней щёлкаете и переходите куда-то в другое место.
Константы - это числа. Может ещё что относится к константам.
Ключевые слова - это все остальное, что используется языком программирования "VBA".

Константе можно назначать тип данных для каких-то целей.
Типы данных в "VBA" имеют специальные символы. Символ "#" означает тип данных "Double".

Если константе не указывать тип данных, то VBA автоматически назначает константе какой-то тип данных. Для числа "1" (число "1" в коде - это константа) VBA назначит тип данных "Integer".

В некоторых случаях константам нужно назначать какой-то тип данных, чтобы не возникало ошибки. Это нужно, например, при использовании в вычислениях целых чисел, когда получается результат, больший типа данных "Long". VBA автоматически в этом случае не назначает результату тип данных "Double", а использует тип данных чисел, участвующих в вычислении. Вот этот код даст ошибку:

Visual Basic

Sub Procedure_1()
    
    'Вывод результата в View - Immediate Window.
    Debug.Print 1000000000 + 1000000000 + 1000000000
    
End Sub

В этом коде трём числам (1000000000) присваивается тип данных "Long". Максимальное число в типе данных "Long" около 2 миллиардов.

Если одно из чисел сделать с типом данных "Double", то результат уже примет нужный тип данных (VBA в этом случае делает некоторые действия) и ошибки не будет:

Visual Basic

Sub Procedure_2()
    
    'Вывод результата в View - Immediate Window.
    Debug.Print 1000000000# + 1000000000 + 1000000000
    
End Sub

Что касается вашего случая, то в вашем случае не известно, зачем преобразовывать константу "1" из типа данных "Integer" (VBA назначает автоматически константе "1" тип данных "Integer") в тип данных "Double".

@erisnuts · 02.05.2013, 21:02 **[ТС]**

Спасибо вам.)

С помощью рекурсивной функции получить сумму n элементов последовательности

Решение

Решение

@Казанский 15015 / 6343 / 1725 Регистрация: 24.09.2011 Сообщений: 9,976
	01.05.2013, 13:20	2
	Сообщение было отмечено Памирыч как решение Решение Это указание на то, что единица имеет тип Double. См. F1 - Double Data Type. Без такого указания единица будет иметь тип Integer, и каждый раз будет проводиться преобразование единицы в тип Double, что приведет к увеличению времени выполнения программы. Впрочем, для этого кода это несущественно. 1

@erisnuts 1 / 1 / 1 Регистрация: 01.05.2013 Сообщений: 13
	02.05.2013, 21:02 [ТС]	4
	Спасибо вам.) 0

Опции темы