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

QBasic

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

Решение кубического уравнения - QBasic

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

Решить кубическое уравнение x^3 + px + q = 0
решение
1. Сначала вычисляется дискриминант этого уравнения D по
формуле D = (p/3)^3 + (q/2)^2
2. Если D >= 0 , то уравнение имеет один корень, который
вычисляется по формуле Кардано http://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt[3]{-\frac q2+\sqrt{(\frac{q}{2})^2+(\frac{p}{3})^3}}+\sqrt[3]{{-\frac q2-\sqrt{(\frac{q}{2})^2+(\frac{p}{3})^3}
(комплексные корни нас не интересуют)
3. Если D < 0 , то уравнение имеет три вещественных корня.
Они (все три) вычисляются по формулам, выведенным из
формулы Кардано (смотрите программу)

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
REM
REM  x^3 + px + q = 0
REM
REM  D = (p/3)^3 + (q/2)^2
REM
 
DECLARE FUNCTION ARCCOS! (x!)
DECLARE FUNCTION SQR3! (x!)
 
CLS
CONST pi = 3.141593
CONST p23 = 2 / 3 * pi
CONST n = .3333333333333333#
 
INPUT "P,Q = "; p, q
 
D = (p / 3) ^ 3 + (q / 2) ^ 2
 
IF D < 0 THEN
   A = 2 * SQR(-p / 3)
   u = ARCCOS(-q / 2 * (3 / -p) ^ 1.5)
 
   x1 = A * COS(u / 3)
   x2 = A * COS(u / 3 + p23)
   x3 = A * COS(u / 3 - p23)
 
   PRINT "x1 ="; x1
   PRINT "x2 ="; x2
   PRINT "x3 ="; x3
ELSE
   z1 = -q / 2 + SQR(D)
   z2 = -q / 2 - SQR(D)
   x = SQR3(z1) + SQR3(z2)
   PRINT "x ="; x
END IF
END
 
FUNCTION ARCCOS (x)
   IF ABS(x) < 1 THEN
      ARCCOS = pi / 2 - ATN(x / SQR(1 - x ^ 2))
   ELSE
      ARCCOS = pi / 2 * (1 - SGN(x))
   END IF
END FUNCTION
 
FUNCTION SQR3 (x)
   IF x >= 0 THEN
      SQR3 = x ^ n
   ELSE
      SQR3 = -(-x) ^ n
   END IF
END FUNCTION
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2017, 11:49     Решение кубического уравнения
Посмотрите здесь:

Решение уравнения [x^3] + [y^3] = [z^3] - QBasic
Решить уравнение + = в натуральных числах при условии x &lt;= y. примечание: функция y= эквивалентна функции y=INT(x) Программа...

Решение уравнения x^2 + y^3 = z^3 - QBasic
Решить уравнение x^2 + y^3 = z^3 в натуральных числах при условии, что y и z - простые числа. программа нашла одно решение (588, 23,...

Решение уравнения x + y + z = 3xyz - QBasic
Решить в натуральных числах уравнение x + y + z = 3xyz программа нашла одно решение (1, 1, 1), других нет. REM REM x + y + z...

Решение уравнения Пуассона - QBasic
у меня вариант 20.

Решение уравнения в натуральных числах (3) - QBasic
Решить в натуральных числах уравнение 2 * = программа нашла 3 решения (169, 239); (2378, 3363); (3363, 4756) REM REM 2*...

Найти решение уравнения на заданном интервале - QBasic
Задача: Найти уравнение lgx-2^x=0 на интервале с точностью e=0.005 Решение DIM a, b, AS INTEGER DIM h, x, f AS SINGLE CLS INPUT...

Решение трансцендентного уравнения методом половинного деления - QBasic
Решение транцендентного уравнения методом половинного деления. Дано: e^x+1/2*x+1/2=0 Точность 0,01 ; A-левый конец ОИК (A=-2) ; B-правый...

Решение уравнения y(x)=x2+5x−10 методом половинного деления (qb 64) - QBasic
помогите пожалуйста решить вот такую функцию метод половинного деления y(x)=x2+5x−10,с помощью программы qb 64. если можно график и блок...

Решение уравнения 21x ^ 3 - 38x ^ 2 - 9x + 2 = 0 в рациональных числах - QBasic
Можно доказать, что если алгебраическое уравнение имеет рациональный корень, то его можно представить в виде p/q Где p - делитель...

Шаблон с текстом поздравления, решение уравнения и построение прямоугольника - QBasic
Сам бы все сделал, но времени жутко не хватает и помощь приходится искать везде... В том числе и на этом форуме... Есть пара задач, которые...


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

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

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