Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 27.10.2016, 18:00   #1 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Решить уравнение в натуральных числах

Решить уравнение [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
iks2 вне форума   Ответить с цитированием

Старый 27.10.2016, 18:00
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Сейчас вам самое время посмотреть на эти темы

Решить уравнение в натуральных числах
Помогите решить уравнение. Паскаль
Решить дифференциальное уравнение
Помогите решить дифференциальное уравнение
Решить нелинейное уравнение

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.