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

QBasic

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

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

10.01.2017, 14:31. Просмотров 104. Ответов 0
Метки нет (Все метки)

Найти пару натуральных решений уравнения x^2 + y^2 = z^3
при условии 1 <= x <= y <= z. Программа наша решения
(2, 2, 2); (2, 11, 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^3
REM
REM  (2, 2, 2); (2, 11, 5)
REM
 
CLS
DIM x AS DOUBLE, x2 AS DOUBLE
DIM y AS DOUBLE, y2 AS DOUBLE
DIM z AS DOUBLE
 
FOR x = 1 TO 100
   x2 = x * x
   FOR y = x TO 100
      y2 = y * y
      z = (x2 + y2) ^ (1 / 3)
      IF INT(z) = z THEN PRINT x; y; z
   NEXT y
NEXT x
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2017, 14:31     Решение уравнения x^2 + y^2 = z^3
Посмотрите здесь:
Решение уравнения x^2 + y^3 = z^3 QBasic
Решение уравнения x^2 + y^2 = z^5 QBasic
QBasic Решение уравнения [x^3] + [y^3] = [z^3]
QBasic Решение уравнения x + y + z = 3xyz
QBasic Решение уравнения x^2 + y^2 + z^2 = 3xyz
Решение уравнения 2 ^ m - 2 ^ n = 1984 QBasic
QBasic Решение уравнения Пуассона
QBasic Решение иррационального уравнения
Решение трансцендентного уравнения QBasic
QBasic Решение уравнения в натуральных числах (3)
QBasic Решение уравнения в натуральных числах (2)
Решение уравнения в простых числах QBasic

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

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

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