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

Формулировка задачи:

Решить уравнение [x^3] + [y^3] = [z^3] в натуральных числах при условии x <= y. примечание: функция y=[x] эквивалентна функции y=INT(x) Программа нашла одно решение (9, 10, 12). А есть ли другие решения? Неизвестно.
REM
REM  [x^3] + [y^3] = [z^3]
REM
REM  OTBET: (9, 10, 12)
REM
 
DECLARE FUNCTION f! (x!, y!, z!)
CLS
 
FOR x = 1 TO 50
FOR y = x TO 50
FOR z = y TO 50
   IF f(x, y, z) = 0 THEN PRINT x; y; z
NEXT z, y, x
END
 
FUNCTION f (x, y, z)
   f = INT(x ^ 3) + INT(y ^ 3) - INT(z ^ 3)
END FUNCTION

Код к задаче: «Решение уравнения [x^3] + [y^3] = [z^3] - QBasic»

textual
DIM x AS LONG, y AS LONG
FOR x=1 TO 100
    y=x^3
    PRINT x,y
NEXT x

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ