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

QBasic

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

Решение уравнения x^2 + y^2 = z^4 - QBasic

10.01.2017, 14:36. Просмотров 94. Ответов 0
Метки нет (Все метки)

Найти пару натуральных решений уравнения x^2 + y^2 = z^4
при условии x <= y. Вот решения (7, 24, 5); (15, 20, 5)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
REM
REM  x^2 + y^2 = z^4
REM
REM  (7, 24, 5); (15, 20, 5)
REM
 
CLS
DIM x AS DOUBLE, x2 AS DOUBLE
DIM y AS DOUBLE, y2 AS DOUBLE
DIM z AS DOUBLE
 
FOR x = 1 TO 100
   x2 = x * x
   FOR y = x TO 100
      y2 = y * y
      z = (x2 + y2) ^ .25
      IF INT(z) = z THEN PRINT x; y; z
   NEXT y
NEXT x
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2017, 14:36     Решение уравнения x^2 + y^2 = z^4
Посмотрите здесь:

Решение уравнения x^2 + y^3 = z^3 - QBasic
Решить уравнение x^2 + y^3 = z^3 в натуральных числах при условии, что y и z - простые числа. программа нашла одно решение (588, 23,...

Решение уравнения Пуассона - QBasic
у меня вариант 20.

Решение уравнения x + y + z = 3xyz - QBasic
Решить в натуральных числах уравнение x + y + z = 3xyz программа нашла одно решение (1, 1, 1), других нет. REM REM x + y + z...

Найти решение уравнения на заданном интервале - QBasic
Задача: Найти уравнение lgx-2^x=0 на интервале с точностью e=0.005 Решение DIM a, b, AS INTEGER DIM h, x, f AS SINGLE CLS INPUT...

Решение трансцендентного уравнения методом половинного деления - QBasic
Решение транцендентного уравнения методом половинного деления. Дано: e^x+1/2*x+1/2=0 Точность 0,01 ; A-левый конец ОИК (A=-2) ; B-правый...

Решение уравнения 21x ^ 3 - 38x ^ 2 - 9x + 2 = 0 в рациональных числах - QBasic
Можно доказать, что если алгебраическое уравнение имеет рациональный корень, то его можно представить в виде p/q Где p - делитель...

Решение уравнения y(x)=x2+5x−10 методом половинного деления (qb 64) - QBasic
помогите пожалуйста решить вот такую функцию метод половинного деления y(x)=x2+5x−10,с помощью программы qb 64. если можно график и блок...

Шаблон с текстом поздравления, решение уравнения и построение прямоугольника - QBasic
Сам бы все сделал, но времени жутко не хватает и помощь приходится искать везде... В том числе и на этом форуме... Есть пара задач, которые...

Решение уравнения SQR(x) + SQR(x+1) +.+ SQR(x+9) = 100 - QBasic
Решить уравнение SQR(x) + SQR(x+1) +...+ SQR(x+9) = 100 (ответ 95.52058) REM REM SQR(x) + SQR(x+1) +...+ SQR(x+9) = 100 REM ...

Определить тип уравнения, указать метод решения, общее решение дифференциального уравнения - Дифференциальные уравнения
дано дифференциальное уравнение первого порядка: (x+y+1)dx+(x-y2+3)dy=0. Определить тип уравнения, указать метод решения, общее решение...


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

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

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