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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
825 / 1020 / 347
Регистрация: 23.10.2013
Сообщений: 4,776
Записей в блоге: 4
#1

Проверить тождество - QBasic

09.01.2017, 16:35. Просмотров 77. Ответов 0
Метки нет (Все метки)

Дано тождество x = 2(sin(x) - sin(2x)/2 + sin(3x)/3 - ...)
при условии, что |x| < pi
Требуется его проверить.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
REM
REM x = 2(SIN(x) - SIN(2x)/2 + SIN(3x)/3 - ...)
REM
 
CLS
 
INPUT "X = "; x
e = -1
 
FOR i = 1 TO 100000
   e = -e
   S = S + e * SIN(i * x) / i
NEXT
 
PRINT "S ="; 2 * S
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2017, 16:35     Проверить тождество
Посмотрите здесь:

Есть массив, проверить, является ли он перестановкой QBasic
QBasic Проверить, можно ли из отрезков a, b и c построить треугольник
QBasic Проверить, можно ли из отрезков a, b, c, d построить четырёхугольник
Проверить является ли слово палиндромом QBasic
Необходимо проверить рав-во с последовательностью. QBasic
Проверить является ли число перевертышем QBasic
QBasic Проверить равенство
QBasic Проверить правильность решения
Проверить правильность решения QBasic
Проверить код на ошибки QBasic
Проверить вычисления по формулам QBasic
Проверить неравенство QBasic

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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