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

Visual Basic

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

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

28.12.2016, 02:09. Просмотров 171. Ответов 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
Посмотрите здесь:

Вывести наименьшее из целых чисел 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 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу. - Visual Basic
Заранее спасибо!

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

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

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

Нахождение количества чисел, значение которых больше первого числа - Visual Basic
Создать программу с функциями: 1) ввод 12 чисел 2)нахождение количества чисел , значение которых больше первого числа Первое...

В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10 - Visual Basic
Составьте следующие проекты с генерацией значений и вводом произвольного количества элементов одномерных массивов: В массиве натуральных...

Как вывести в порядке невозрастания (убывания) элементы массива, модуль которых больше 2 - Visual Basic
5. Дан одномерный массив из N случайных действительных чисел в диапазоне от -4 до 8 . Вы-вести в порядке невозрастания (убывания)...

Найти количество четырехзначных чисел, сумма цифр которых равна 9 - Visual Basic
Найти кол-во четырехзначных чисел, сумма цифр которых равна 9

Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов - Visual Basic
Ребята,пожалуйста,укажите ошибку... Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого...

Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая - Visual Basic
даны 4 натуральных числа. вывести на экран те, сумма цифр которых наибольшая


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

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

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