Технический форум

Технический форум (http://www.tehnari.ru/)
-   Basic (http://www.tehnari.ru/f127/)
-   -   Решить уравнение в натуральных числах (http://www.tehnari.ru/f127/t249634/)

iks2 27.10.2016 18:00

Решить уравнение в натуральных числах
 
Решить уравнение [x^n] + [y^n] = [z^n] при n = 2,7
в натуральных числа на отрезке [1; 1000]
программа нашла три решения. Что интересно, чем меньше n, тем больше решений выдает программа. Ну как тут не поверить в истинность теоремы Ферма.

Код:

REM
REM  [x^n] + [y^n] = [z^n]
REM
REM  (25, 47, 50)
REM  (41, 41, 53)
REM  (478, 834, 988)
REM

CLS
DEFDBL A-Z

n = 2.7
m = 1 / n

FOR z = 2 TO 1000
  zn = INT(z ^ n)
  FOR y = 1 TO z - 1
      yn = INT(y ^ n)
      x = INT((zn - yn) ^ m) + 1
      IF x > y THEN 100
      IF INT(x ^ n) + yn = zn THEN PRINT x; y; z
100
NEXT y, z
END



Часовой пояс GMT +4, время: 19:31.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.