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

QBasic

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

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

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

Задается натуральное число N и требуется найти
пару натуральных чисел X и Y таких, чтобы выполнялось
приближенное числовое равенство SIN(n) = SIN(x) + SIN(y)
с погрешностью порядка 0.01%
пример
sin17 = sin198 + sin909
sin17 = sin866 + sin908

примечание
Вообще задача в такой постановке имеет бесчисленное
множество решений, но достаточно найти решение при
наименьших числах икс и игрек.

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  SIN(n) = SIN(x) + SIN(y)
REM
REM  sin17 =  sin198 + sin909
REM  sin17 =  sin866 + sin908
REM
 
DECLARE FUNCTION f! (x!, y!)
 
CLS
INPUT "N = "; n
z = SIN(n)
 
FOR x = 1 TO 1000
FOR y = x TO 1000
   IF ABS(z - f(x, y)) < .00001 THEN PRINT x; y
NEXT y, x
 
END
 
FUNCTION f (x, y)
   f = SIN(x) + SIN(y)
END FUNCTION
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2017, 11:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Числовое равенство для sin(N) (QBasic):

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

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

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

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), … - Turbo Pascal
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y&gt;0.01 do begin y:=abs(sin(x)) ; // write(y); ...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x - Turbo Pascal
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4 - Visual Basic
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 Заранее огромное спасибо!

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.01.2017, 11:19
Привет! Вот еще темы с ответами:

Рассчитать функцию y=sin(sin(sin(…(sin(x))))), в которой имя функции «sin» повторяется n раз. - Pascal ABC
1. Вычислить элементы последовательности, используя рекурсию. L0(x)=1, L1(x)= +1-x, kLk(x)=(-x+2k+ -1)Lk-1(x)-(k+ -1)Lk-2(x) ...

Подсчитать функцию y=sin(sin(...sin(x)))))) для заданого х (рекурсия) - Turbo Pascal
посчитать функцыю y=sin(sin(...sin(x)))))) для заданого х, в котором имя &quot;sin&quot; повторяется n раз

Вычислить сумму sin(1)+sin(2)+.+sin(n) для n введенного с клавиатуры - Pascal ABC
вычислить сумму sin(1)+sin(2)+...+sin(n) для n введенного с клавиатуры Добавлено через 10 минут сделала:) var s:real; ...

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x - Free Pascal
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и Repeat) S=sin x+ sin sinx +...+sin...


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

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

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