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

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

Восстановить пароль Регистрация
 
echs
702 / 897 / 345
Регистрация: 23.10.2013
Сообщений: 4,105
Записей в блоге: 3
10.01.2017, 14:52     Решение уравнения x^2 + y^2 = z^5 + 1 #1
Решить в натуральных числах уравнение x^2 + y^2 = z^5 + 1
программа нашла кучу решений. Число их, видимо, огромно.

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

Шаблон с текстом поздравления, решение уравнения и построение прямоугольника QBasic
Решение трансцендентного уравнения методом половинного деления QBasic
Вычислить корни уравнения QBasic
QBasic Как найти X из уравнения tg(x-1)+x=0
QBasic Найти решение уравнения на заданном интервале
QBasic Решение уравнения y(x)=x2+5x−10 методом половинного деления (qb 64)
Решение уравнения в простых числах QBasic
Решение уравнения 2 ^ m - 2 ^ n = 1984 QBasic
QBasic Решение уравнения 21x ^ 3 - 38x ^ 2 - 9x + 2 = 0 в рациональных числах
QBasic Решение уравнения в натуральных числах (2)
QBasic Решение уравнения в натуральных числах (3)
Решение уравнения SQR(x) + SQR(x+1) +.+ SQR(x+9) = 100 QBasic

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

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

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