Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
TomasEddisoN
Заблокирован
1

Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA

23.04.2018, 21:45. Просмотров 848. Ответов 5
Метки нет (Все метки)

Здравствуйте, товарищи форумчане!

Задача следующего характера. Среди чисел 1; 1+1/2; 1+1/2+1/3 … найти первое число, которое больше данного числа А > 0.

Имеется код программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim A As Single, S As Single, y As Long, Z As Single
A = InputBox("Введите число:")
S = 1
y = 1
Do Until S > A
     y = y + 1
     Z = 1 / y
     S = S + Z
Loop
MsgBox S
End Sub
Проверьте блок-схему. Если есть ошибки в ней, укажите пожалуйста.

Спасибо!
1
Миниатюры
Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2018, 21:45
Ответы с готовыми решениями:

Блок-схема в VBA
Здравствуйте. Нужно сделать в VBA эффект развертывания схемы. Например в...

блок-схема в vba
Дайте пожалуйста рекомендации как составить блок-схему Dim r1н(50),...

Блок схема VBA
Помогите составить 2 блок схемы VBA Sub Выделение() Dim Bunenerse As String...

Блок-схема по листингу в VBA
Помогите составить блок-схему по данному листингу n = InputBox("Введите...

Нужна блок схема по коду VBA
Sub Посчитать() Dim i, i1, sum, sum1 As Integer sum = 0 For i = 2 To 10 If...

5
Остап Бонд
680 / 426 / 215
Регистрация: 17.08.2017
Сообщений: 1,051
23.04.2018, 22:06 2
TomasEddisoN, SamTy, Илья9, свою любовь друг к другу проявляйте где-нибудь в другом месте.
0
TomasEddisoN
Заблокирован
23.04.2018, 23:20  [ТС] 3
Это Ваш ответ? С Вами всё ОК?
0
Burk
510 / 369 / 111
Регистрация: 11.07.2014
Сообщений: 1,212
24.04.2018, 07:24 4
TomasEddisoN, а может быть подобные фитюльки нужно решать самому? Да ещё и блок-схему проверь!
0
snipe
2896 / 998 / 233
Регистрация: 07.08.2013
Сообщений: 2,521
24.04.2018, 08:11 5
Лучший ответ Сообщение было отмечено TomasEddisoN как решение

Решение

компьютер сам не плохо считает
8 строка лишняя
Visual Basic
1
2
y = y + 1
S = S + 1 / y
1
SamTy
36 / 27 / 2
Регистрация: 19.11.2017
Сообщений: 100
Завершенные тесты: 5
24.04.2018, 14:11 6
Burk, Остап Бонд, ну что эксперты, расчехлили свои бан-машины? Врубай на полную, [вырезано] уже
 Комментарий модератора 
Запрещено использовать нецензурные выражения в любом виде, оскорблять других участников форума, умышленно использовать выражения, противоречащие правилам русского языка, в том числе "олбанский" язык.


Добавлено через 10 минут
Остап Бонд, нажаловался уже? Уважаемым на форуме стал!
0
24.04.2018, 14:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2018, 14:11

Блок-схема и программа на VBA в виде функции
Определить на сколько сумма элементов главной диагонали квадратной матрицы А...

Сумма цифр введённого числа
Посчитать и вывести сумму цифр введённого числа, так же вывести скольки-значным...

Блок-схема (схема нуждается в проверке)
Блок-схемы чертить никогда не умел, поэтому прошу помощи у знатоков. Нашёл в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru