Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 5.00/64: Рейтинг темы: голосов - 64, средняя оценка - 5.00
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8

Как решать уравнения

16.02.2017, 13:53. Показов 13261. Ответов 66

Студворк — интернет-сервис помощи студентам
В этой теме я решил на простом примере показать, как
можно найти все корни уравнения. Пример COS(2x) = 0.5
Собственно говоря это уравнение имеет базовые корни
на интервале [0; pi]. Все остальные корни отличаются от
исходных слагаемым pi*n, где n - целое число

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
24
25
26
REM
REM  COS(2x) = 0.5
REM
REM   [0; pi]
REM
REM  x = 0.52357   x = 2.61798
REM
 
DECLARE FUNCTION f! (x!)
 
CLS
CONST pi = 3.141593
h = .00005
 
f1 = f(0)
 
FOR x = h TO pi STEP h
   f2 = f(x)
   IF f1 * f2 <= 0 THEN PRINT x
   f1 = f2
NEXT
END
 
FUNCTION f (x)
   f = COS(2 * x) - .5
END FUNCTION
примечание
Идеальный код этой программы не оставит
равнодушным даже терминатора серии Т 2017.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.02.2017, 13:53
Ответы с готовыми решениями:

Как решать уравнения?
что означают def input data итд в бейсике? как вводить в бейсике уравнения?

Как решать уравнения?
есть уравнение A(x)=A0+(i=n E i=1)*n*cos(x*n+k) подскажите как это можно решить

Как решать тригонометрические уравнения
Есть задача,сделать проект где решаются различные ур-я.С линейными и квадратными сложностей не возникло,но вот с тригонметр.ур-ем...

66
 Аватар для bedvit
1210 / 261 / 22
Регистрация: 20.05.2016
Сообщений: 1,147
Записей в блоге: 22
24.01.2018, 08:48
Студворк — интернет-сервис помощи студентам
Михаил, рад вас видеть! Сегодня протестирую.
0
 Аватар для bedvit
1210 / 261 / 22
Регистрация: 20.05.2016
Сообщений: 1,147
Записей в блоге: 22
24.01.2018, 10:46
Есть некоторый разброс, в среднем выходит следующее (до 100 000).
Прямо болеть стал за вашего "тузика"... )... но пока ..."грелка"...
Миниатюры
Как решать уравнения  
0
 Аватар для bedvit
1210 / 261 / 22
Регистрация: 20.05.2016
Сообщений: 1,147
Записей в блоге: 22
24.01.2018, 10:47
исходники с поста 59 и 60.
0
 Аватар для bedvit
1210 / 261 / 22
Регистрация: 20.05.2016
Сообщений: 1,147
Записей в блоге: 22
24.01.2018, 10:50
Проверю с С#. Код - Пост 54.
0
 Аватар для bedvit
1210 / 261 / 22
Регистрация: 20.05.2016
Сообщений: 1,147
Записей в блоге: 22
24.01.2018, 10:56
Почти сравнялось с С#.
Миниатюры
Как решать уравнения  
0
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
24.01.2018, 19:27
Цитата Сообщение от bedvit Посмотреть сообщение
Почти сравнялось с С#.
Ну значит не все так плохо у FB и его компилятор генерирует достаточно быстрый код.
И, возможно, разница возникает за счет по разному реализованного алгоритма, т.к. я уже не занимался оптимизацией кода, а скомпилировал то что было.
0
 Аватар для bedvit
1210 / 261 / 22
Регистрация: 20.05.2016
Сообщений: 1,147
Записей в блоге: 22
24.01.2018, 19:59
Возможно. FB ведь компилируется в бинарник? В теории должен быстрее работать, чем транслируемый С# ( помним про CLR). Видимо многое зависит от оптимизации при компиляции самим компилятором.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.01.2018, 19:59

Как решать такие уравнения,
Дайте мануал по решению, и скажите тему пожалуйста этих задач, буду безмерно благодарен)

Как решать дифференциальные уравнения
расскажите как решать дифуры если можно желательно с примером

Как решать линейные уравнения?
Подскажите где можно взять информацию по данной теме) с примерами. В учебниках не находил) нужно около 3-4 страниц

Как решать такие уравнения?
r = (((((37*x*2139062143)mod4294967296)*37*y)mod4294967296)*37*z)mod4294967296) r - это некое натуральное число. Необходимо найти...

Как решать квадратные уравнения?
собственно вопрос... если можно, то пошагово объясните.


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

Или воспользуйтесь поиском по форуму:
67
Ответ Создать тему
Новые блоги и статьи
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм
anaschu 30.08.2026
Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы.
russiannick 30.08.2026
Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта
anaschu 27.08.2026
хоп хоп хоп хидахоп, а я кладую))
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru