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

QBasic

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

Решение уравнения x^2 + y^2 = z^5 - QBasic

10.01.2017, 14:44. Просмотров 114. Ответов 1
Метки нет (Все метки)

Решить в натуральных числах уравнение x^2 + y^2 = z^5
Решение не найдено. Либо их вовсе нет. Либо....

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
REM
REM  x^2 + y^2 = z^5
REM
REM   Решений НЕТ
REM
 
CLS
DIM x AS DOUBLE, x2 AS DOUBLE
DIM y AS DOUBLE, y2 AS DOUBLE
DIM z AS DOUBLE
 
FOR x = 1 TO 5000
   x2 = x * x
   FOR y = x TO 5000
      y2 = y * y
      z = (x2 + y2) ^ .2
      IF INT(z) = z THEN PRINT x; y; z
   NEXT y
NEXT x
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2017, 14:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Решение уравнения x^2 + y^2 = z^5 (QBasic):

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

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

Решение уравнения 2 ^ m - 2 ^ n = 1984 - QBasic
Решить в натуральных числах уравнение 2 ^ m - 2 ^ n = 1984 решение Очевидно, что m > m Кроме того n не может быть равно или больше 11...

Решение квадратного уравнения - Basic
Здравствуйте у меня проблемма помогите если кто может... Мне нужно решить простенькую задачу по бейсику но я в нем ничего не понимаю... ...

Решение иррационального уравнения - QBasic
Решить уравнение (x + 242) ^ .2 - SQR(17 - x) = -1 Решать можно по разному. В данном случае программа стала искать интервал на котором ...

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

1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
11.01.2017, 16:42  [ТС] #2
Форумчане, здесь я хочу опровергнуть своё предыдущее
сообщение. Я сделал элементарную ошибку. Ввёл в
программу проверку на равенство вещественных чисел.
...
Эта программа решает уравнение x^2 + y^2 = z^5 и
находит кучу решений...

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
REM
REM  x^2 + y^2 = z^5
REM
REM   НЕЛЬЗЯ ПРОВЕРЯТЬ НА РАВЕНСТВО
REM          ВЕЩЕСТВЕННЫЕ ЧИСЛА
REM
 
CLS
DIM x AS DOUBLE, x2 AS DOUBLE
DIM y AS DOUBLE, y2 AS DOUBLE
DIM z AS DOUBLE
 
FOR x = 1 TO 1000
   x2 = x * x
   FOR y = x TO 1000
      y2 = y * y
      z = (x2 + y2) ^ .2
      IF z - INT(z) < .000001 THEN PRINT x; y; z
   NEXT y
NEXT x
END
 
REM Решения уравнения
 
 4  4  2 
 10  55  5 
 12  316  10 
 25  50  5 
 38  41  5 
 100  300  10 
 117  598  13 
 122  597  13 
 128  128  8 
 180  260  10 
 338  507  13 
 799  884  17 
 972  972  18
....
примечание
Далеко мне до бога программирования. Ничего.
Ошибка исправлена. А это главное...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2017, 16:42
Привет! Вот еще темы с ответами:

Решение трансцендентного уравнения - QBasic
Решить уравнение x * log(x) = 1000000 где log(x) - логарифм по основанию 2. решение очевидно, что x число большое, поэтому есть ...

Решение уравнения x^2 + y^2 + z^2 = 3xyz - QBasic
Решить в натуральных числах уравнение x^2 + y^2 + z^2 = 3xyz Виду симметрии уравнений симметричные решения считать за одно. ...

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

решение уравнения методом дихотомии - Basic
В общем, нужно выручить человека... вот такое задание решение уравнения методом дихотомии y=-x^3+x+1 и про табулировать на интервале...


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

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

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