Найти первое число последовательности, которое больше данного числа А>0

@SamTy · Регистрация: 19.11.2017

Студворк — интернет-сервис помощи студентам

Господа, здравствуйте!

Задача такая: дана некая последовательность 1; 1+1/2; 1+1/2+1/3 ... Необходимо найти первое число, которое больше данного числа А>0.

Помогите пожалуйста с создаем кода VBA. Используем цикл, но не совсем понимаю как решить эту задачу.

Спасибо!

@OLEGOFF · 18.03.2018, 12:15

Найти среди чисел последовательности самое первое число, превосходящее заданное число а
SamTy, вы поиском пользоваться умеете?

@SamTy · 18.03.2018, 13:04 **[ТС]**

Теперь да, спасибо)

Добавлено через 27 минут
Если мы воспользуемся данным кодом

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim a As Single
Dim S As Single
Dim y As Long
Dim Z As Single
a = InputBox("Введите число")
y = 1
Do Until S > a
    y = y + 1
    Z = 1 / y
    S = S + Z
Loop
MsgBox S
End Sub

Программа работает не совсем корректно с двузначными числами,начиная с 11 и т.д. Или же совсем перестаёт работать. Явно что-то не так

Остап Бонд · 18.03.2018, 13:32

SamTy, у Вас не задано начальное S=1 (суммировать начинаете не с единицы, с 1/2)
Начиная с а=12 программа начинает задумываться, т.к. каждое следующее слагамое все меньше и меньше (стремится к нулю),
а в какой-то момент сумма и вовсе перестанет увеличиваться, т.к. значащих цифр в Single маловато.
Ситуацию может поправить Double, но не навсегда, да и счетчик y as Long переполнится однажды.
Учитесь пользоваться отладчиком.

@SamTy · 18.03.2018, 13:51 **[ТС]**

Спасибо огромное за объяснение!

Добавлено через 15 минут
А тогда почему когда мы вводим число 1 (по условию должно выводится 1,5) программа выводит 1,083?

@Казанский · 18.03.2018, 18:01

Сообщение от SamTy

Если мы воспользуемся данным кодом

Могди бы и источник указать: Найти среди чисел последовательности самое первое число, превосходящее заданное число а

Тем о сумме ряда 1+1/2+1/3+... множество. Вот интересное замечание:

Сообщение от https://www.cyberforum.ru/vba/thread123397.html#post695907

для n=100 K уже число 43-го порядка, поэтому время выполнения порядка 10^28 лет
для получения приблизительного результата можно использовать асимптотическую формулу

K=exp(n-0.5772)

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

Найти первое число последовательности, которое больше данного числа А>0

Решение

Решение

@SamTy 14 / 35 / 2 Регистрация: 19.11.2017 Сообщений: 135

	Найти первое число последовательности, которое больше данного числа А>0 18.03.2018, 12:04. Показов 1944. Ответов 5 Метки нет (Все метки) Господа, здравствуйте! Задача такая: дана некая последовательность 1; 1+1/2; 1+1/2+1/3 ... Необходимо найти первое число, которое больше данного числа А>0. Помогите пожалуйста с создаем кода VBA. Используем цикл, но не совсем понимаю как решить эту задачу. Спасибо! 1

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	18.03.2018, 12:15
	Найти среди чисел последовательности самое первое число, превосходящее заданное число а SamTy, вы поиском пользоваться умеете? 1

Остап Бонд Заблокирован
	18.03.2018, 13:32
	Сообщение было отмечено SamTy как решение Решение SamTy, у Вас не задано начальное S=1 (суммировать начинаете не с единицы, с 1/2) Начиная с а=12 программа начинает задумываться, т.к. каждое следующее слагамое все меньше и меньше (стремится к нулю), а в какой-то момент сумма и вовсе перестанет увеличиваться, т.к. значащих цифр в Single маловато. Ситуацию может поправить Double, но не навсегда, да и счетчик y as Long переполнится однажды. Учитесь пользоваться отладчиком. Миниатюры 1

@SamTy 14 / 35 / 2 Регистрация: 19.11.2017 Сообщений: 135
	18.03.2018, 13:51 [ТС]
	Спасибо огромное за объяснение! Добавлено через 15 минут А тогда почему когда мы вводим число 1 (по условию должно выводится 1,5) программа выводит 1,083? 1