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

Найти наименьшее значение параметра N - QBasic

Восстановить пароль Регистрация
 
echs
702 / 897 / 345
Регистрация: 23.10.2013
Сообщений: 4,105
Записей в блоге: 3
07.01.2017, 17:02     Найти наименьшее значение параметра N #1
Найти наименьшее значение параметра N
(N - натуральное число) при котором уравнение
x^4 + y^4 = z^4 + N разрешимо в натуральных числах
с условием 7 <= x <= y < z
программа нашла ряд чисел, наименьшим оказалось
N = 145 (видимо меньше не существует)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
REM
REM  x^4 + y^4 = z^4 + N
REM
REM    N = 145
REM
 
CLS
DIM x AS DOUBLE, x4 AS DOUBLE
DIM y AS DOUBLE, y4 AS DOUBLE
DIM z AS DOUBLE, z4 AS DOUBLE
 
FOR x = 7 TO 2000
   x4 = x ^ 4
   FOR y = x TO 2000
      y4 = y ^ 4
      z4 = x4 + y4
      z = INT(SQR(SQR(z4)))
      N = x4 + y4 - z ^ 4
      IF N < 200 THEN PRINT x; y; z; N
   NEXT y
NEXT x
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2017, 17:02     Найти наименьшее значение параметра N
Посмотрите здесь:

QBasic Наибольшее и наименьшее значение функции
Найти наименьшее значение среди отрицательных элементов матрицы QBasic
QBasic Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d
Найти наименьшее значение среди отрицательных элементов матрицы QBasic
QBasic Дана последовательность чисел, найти наименьшее число
QBasic Найти наименьшее число в массиве
QBasic Найти наименьшее натуральное число, кратное 4
QBasic Найти численно наименьшее значение функции и значение аргумента
Цикл: выведите наименьшее целое K, при котором выполняется неравенство 3^K > N и само значение 3^K QBasic
Найти наибольшее и наименьшее значение функции QBasic
QBasic Найти наименьшее натуральное число М, кратное 5
Найти наименьшее нечетное натуральное число QBasic

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

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

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