Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

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

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

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

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

Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу. Visual Basic
Visual Basic Дан массив из N целых чисел. Найти наименьшее и наибольшее из них
Нахождение количества чисел, значение которых больше первого числа Visual Basic
Найти количество четырехзначных чисел, сумма цифр которых равна 9 Visual Basic
Visual Basic Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов
Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. Visual Basic
Visual Basic Вывести наибольшее из целых чисел K, для которых сумма 1 + 2 + ... + K будет меньше или равна N
Visual Basic Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая
Visual Basic Вывести наименьшее из целых чисел K
Как найти сумму чисел, целая часть которых делится нацело на 3, наименьшее из таких чисел, и номер этого числа в последовательности Visual Basic
Visual Basic Как вывести в порядке невозрастания (убывания) элементы массива, модуль которых больше 2
Visual Basic В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
823 / 1018 / 347
Регистрация: 23.10.2013
Сообщений: 4,772
Записей в блоге: 4
24.01.2017, 14:38     Вывести наименьшее из целых чисел K, для которых сумма будет больше A #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
Миниатюры
Вывести наименьшее из целых чисел K, для которых сумма будет больше A  
Shersh
Заблокирован
24.01.2017, 15:04     Вывести наименьшее из целых чисел K, для которых сумма будет больше A #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
Миниатюры
Вывести наименьшее из целых чисел K, для которых сумма будет больше A   Вывести наименьшее из целых чисел K, для которых сумма будет больше A  
echs
823 / 1018 / 347
Регистрация: 23.10.2013
Сообщений: 4,772
Записей в блоге: 4
24.01.2017, 15:10     Вывести наименьшее из целых чисел K, для которых сумма будет больше A #4
Shersh
А в чём ошибка? Не тот тип переменной взял?
Shersh
Заблокирован
24.01.2017, 15:15     Вывести наименьшее из целых чисел K, для которых сумма будет больше A #5
Не там разместил (или обнулить счетчики забыл), да и с твоими синглами на 20 завис и оверфлов...
echs
823 / 1018 / 347
Регистрация: 23.10.2013
Сообщений: 4,772
Записей в блоге: 4
24.01.2017, 15:34     Вывести наименьшее из целых чисел K, для которых сумма будет больше A #6
Shersh
Спасибо! Мне ясна ошибка, хотя в условиях задачи
ничего не говорится об ограничениях. Дело в том,
что каждое слагаемое даёт погрешность и для типа
переменных Single погрешность превысила результат.
Неудивительно, что программа зависла...
А счётчик надо было обнулять (а то программа "одноразового
пользования" получается)
Еще раз спасибо.
Yandex
Объявления
24.01.2017, 15:34     Вывести наименьшее из целых чисел K, для которых сумма будет больше A
Ответ Создать тему
Опции темы

Текущее время: 10:33. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru