Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Drannzer
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 6
#1

Вывести наименьшее из целых чисел K, для которых сумма будет больше A - VB

28.12.2016, 02:09. Просмотров 186. Ответов 5
Метки нет (Все метки)

)Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 02:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести наименьшее из целых чисел K, для которых сумма будет больше A (VB):

Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. - Visual Basic
1) Дано вещественное число А (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. ...

Вывести наибольшее из целых чисел K, для которых сумма 1 + 2 + ... + K будет меньше или равна N - Visual Basic
1.Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени. 2.Дано...

Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному - Basic
2. Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу.

Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу. - Visual Basic
Заранее спасибо!

Вывести наименьшее из целых чисел K - Visual Basic
While13. Дано число A (>1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + . . . + 1/K будет больше A, и саму эту...

Как найти сумму чисел, целая часть которых делится нацело на 3, наименьшее из таких чисел, и номер этого числа в последовательности - Visual Basic
Всем привет! Благодарю, за то что читаете это. Я являюсь студентом в одном из вузов Белгорода. Есть такой предмет именуемый как ИТ. Так...

5
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
24.01.2017, 14:38 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Dim k&, S!, A!
 
Private Sub com1_Click()
    A = Val(txtT.Text)
    
    Do
        k = k + 1
        S = S + 1 / k
    Loop Until S > A
    
    Print "K ="; k
    Print
    Print "SUMMA ="; S
End Sub
0
Миниатюры
Вывести наименьшее из целых чисел K, для которых сумма будет больше A  
Shersh
Заблокирован
24.01.2017, 15:04 #3
Эх, echs, echs - садись, два
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub com1_Click()
Dim k&, S#, A#
    A = Val(txtT.Text)
    
    Do
        k = k + 1
        S = S + 1 / k
    Loop Until S > A
    
    Print "K ="; k
    Print
    Print "SUMMA ="; S
End Sub
1
Миниатюры
Вывести наименьшее из целых чисел K, для которых сумма будет больше A   Вывести наименьшее из целых чисел K, для которых сумма будет больше A  
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
24.01.2017, 15:10 #4
Shersh
А в чём ошибка? Не тот тип переменной взял?
0
Shersh
Заблокирован
24.01.2017, 15:15 #5
Не там разместил (или обнулить счетчики забыл), да и с твоими синглами на 20 завис и оверфлов...
1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
24.01.2017, 15:34 #6
Shersh
Спасибо! Мне ясна ошибка, хотя в условиях задачи
ничего не говорится об ограничениях. Дело в том,
что каждое слагаемое даёт погрешность и для типа
переменных Single погрешность превысила результат.
Неудивительно, что программа зависла...
А счётчик надо было обнулять (а то программа "одноразового
пользования" получается)
Еще раз спасибо.
0
24.01.2017, 15:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2017, 15:34
Привет! Вот еще темы с ответами:

Дан массив из N целых чисел. Найти наименьшее и наибольшее из них - Visual Basic
1. Обработка одномерных массивов. Дан массив из N целых чисел. Найти наименьшее и наибольшее из них. Вывести все четные элементы...

Вывести наименьшее из целых чисел N, для которых сумма будет больше A - Turbo Pascal
Дано вещественное число А(>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+... +1/N будет больше A, и саму эту сумму. ...

Вывести наименьшее из целых чисел К, для которых сумма будет больше A - C++
Данное число А (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 1/2 + ... + 1 / К будет больше А, и саму эту сумму.

Вывести наименьшее из целых чисел N, для которых сумма будет больше A - C#
Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту...


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

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

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