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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
#1

Числовое равенство для ln(N) - QBasic

01.01.2017, 11:07. Просмотров 79. Ответов 0
Метки нет (Все метки)

Задача
задается натуральное число N и требуется найти
пару натуральных чисел X и Y таких, чтобы выполнялось
приближенное равенство ln(n) = ln(x) + ln(y) с погрешностью
порядка 0,01%.
пример, дано число N = 2017 (ln(2017) = 7.609366) и найдено
два числа x = 42 и y = 48. Погрешность меньше 0,01%
ln(2017) = ln(42) + ln(48)
примечание
для данного примера есть и другие пары чисел, программа
их тоже вычисляет, но в задаче не требуется "вычислить всё".

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
REM
REM  ln(n) = ln(x) + ln(y)
REM
REM  ln(2017) = ln(42) + ln(48)
REM  ln(2017) = 7.609366
REM
 
DECLARE FUNCTION f! (x!, y!)
 
CLS
INPUT "N = "; n
z = LOG(n)
 
FOR x = 2 TO n - 1
FOR y = x TO n - 1
   IF f(x, y) > LOG(n) THEN EXIT FOR
   IF ABS(z - f(x, y)) < .0005 THEN PRINT x; y
NEXT y, x
END
 
FUNCTION f (x, y)
   f = LOG(x) + LOG(y)
END FUNCTION
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2017, 11:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Числовое равенство для ln(N) (QBasic):

Перевод текстового значения в числовое в Small Basic - Basic
К сожалению не нашел раздела для Small Basic. Пользователь вводит какие-либо цифры, переменная отвечающая за текст считывает их, затем...

Проверить равенство - QBasic
1^2 +3^2 + 5^2 +...+(2n-1)^2 = (n(4n^2-1))/3

Условное равенство чисел - QBasic
Введем понятие условного равенства чисел. Определение: Два числа условно равны, если они состоят из одних и тех же цифр. Или иначе...

Программа для перевода цифр в буквенном написании в числовое - Visual Basic .NET
Всем привет! Может кто помочь??? Мне нужно написать программу чтобы она переводила цифры прописью в числовое значение. Например, ...

Докажите равенство треугольников APD и AKB, и равенство углов BOP и BAD - Геометрия
BK и DP-высоты ромба ABCD, проведённые из вершин тупых углов соответственно на стороны AD и AB. Прямые BK и DP пересекаются в точке O....

Очень нужно подсчитать определитель на равенство/не равенство нулю - MathCAD
Здравствуйте. Мне очень нужно подсчитать данный определитель на равенство (или не равенство нулю), подскажите пожалуйста как мне его...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.01.2017, 11:07
Привет! Вот еще темы с ответами:

Создать класс очередь Turn (содержащий числовое поле) и перегрузить для него операторы согласно условию - C++
Помогите пожалуйста, а то я запутался очень сильно. ;c Создать класс очередь Turn (содержит числовое поле). Перегрузить операторы: ...

Доказать равенство для матриц - Алгебра

Доказать равенство для чисел Фибоначчи - Алгебра
доказать что для чисел Фибоначчи справдливо равенство

Доказать равенство тождество для множеств. - Логика и множества
Доказать по определению, что для произвольных множеств А, В справедливо тождество (см. ниже). Проиллюстрировать при помощи диаграмм Эйлера.


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

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

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