омогите пожалуйста с циклами

@dufi_man · Регистрация: 06.11.2016

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

Помогите пожалуйста с циклами я в них чего то потерялся
Дано положительное а (а<1). Найти наибольшее число вида 2^-n, n>=0, меньшее а.
Заранее огромное спасибо

Shersh · 01.12.2016, 09:58

Code
1
2
3
4
5
6
a = 0.1
n = 1
While 2 ^ -n >= a
  n = n + 1
Wend
MsgBox 2 ^ -n

@dufi_man · 02.12.2016, 02:50 **[ТС]**

PHP
1
Почему  N = 1, ведь n>=0

Добавлено через 1 час 14 минут
Дано положительное а (а<1). Найти наименьшее число вида 3^-n, n>=0, больше а.
Правильный ли ход мыслей или что то не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Raschet1_Click()
    Dim n As Integer
    Dim s As Double
        n = 0
        a = BoxA
        Do
            s = 3 ^ -n
            n = n + 1
        Loop While s > a
        BoxOt = 3 ^ -n
    End Sub

@dufi_man · 02.12.2016, 03:21 **[ТС]**

Дано положительное а (а<1). Найти наименьшее число вида 3^-n, n>=0, больше а.
Правильный ли ход мыслей или что то не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Raschet1_Click()
Dim n As Integer
Dim s As Double
n = 0
a = BoxA
Do
s = 3 ^ -n
n = n + 1
Loop While s > a
BoxOt = 3 ^ -n
End Sub

@Казанский · 02.12.2016, 11:38

dufi_man, зачем тут циклы? По первому посту 2^Int(Log(a) / Log(2))
По третьему посту 3^Fix(Log(a) / Log(3))

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@dufi_man 0 / 0 / 0 Регистрация: 06.11.2016 Сообщений: 74

	омогите пожалуйста с циклами 01.12.2016, 09:35. Показов 672. Ответов 4 Метки нет (Все метки) Помогите пожалуйста с циклами я в них чего то потерялся Дано положительное а (а<1). Найти наибольшее число вида 2^-n, n>=0, меньшее а. Заранее огромное спасибо 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	02.12.2016, 11:38
	dufi_man, зачем тут циклы? По первому посту 2^Int(Log(a) / Log(2)) По третьему посту 3^Fix(Log(a) / Log(3)) 0