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

QBasic

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

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

07.01.2017, 17:02. Просмотров 84. Ответов 0
Метки нет (Все метки)

Найти наименьшее значение параметра 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
Такая задача, есть идеи? найти численно наименьшее значение функции у=sinx/(1+x) и значение аргумента, при котором оно получено, Значение...

Найти наибольшее и наименьшее значение функции - QBasic
Ребят привет. Я новенький, поэтому могу тупить. В завтра в обед нужна программа для нахождения наибольше и наименьшего значения функции....

Найти наименьшее значение среди отрицательных элементов матрицы - QBasic
Задание Распечатать двухмерный массив. Найти наименьшее значение среди отрицательных элементов. Записать в качестве последнего элемента. ...

Найти наименьшее значение среди отрицательных элементов матрицы - QBasic
Распечатать двумерный массив. Найти наименьшее значение среди отрицательных элементов. Записать в качестве последнего элемента.

Наибольшее и наименьшее значение функции - QBasic
Составить программу нахождения первого наименьшего значения, аргумента и порядкового номера функции p=2*b^2-ln(a-c); b=0.75*a^2+c, если a...

Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d - QBasic
Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d и значение аргумента, при котором оно...

Цикл: выведите наименьшее целое K, при котором выполняется неравенство 3^K > N и само значение 3^K - QBasic
дано целое число N(&gt;1) выведите наименьшее целое K при котором выполняется неравенство 3K&lt;N и само значение 3K

Найти наименьшее число в массиве - QBasic
Даны два массива чисел a и b по 15 чисел в каждом. Найти наименьшее чесло в новом массиве с, элементы которого образуются по правилу с=a+b

Найти наименьшее натуральное число М, кратное 5 - QBasic
CLS INPUT &quot;Введите X =&quot;, x e = .01 M = 5 n = 1 s = 0 DO M = M + 5 LOOP UNTIL ((M MOD 5) = 0) AND sqrt(1 + ABS(x)) / M(e) ...

Найти наименьшее нечетное натуральное число - QBasic
Найти наименьшее нечетное натуральное число, сумма делителей которого (исключая само это число) больше этого числа. Данная...

Найти наименьшее натуральное число, кратное 4 - QBasic
Помогите с задачкой, плиз ) Найти наименьшее натуральное число М, кратное 4, для которого (M+|x|)/M^2&lt;e, где e=0,01, x – заданное...

Найти наименьшее целое полож.число - QBasic
дано целое число N(N&gt;0).найти наименьшее целое полож.число, квадрат которого превосходит N. функцию извлечения квадратного корня не...


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

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

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