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

QBasic

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

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

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

Решить в натуральных числах уравнение x^2 + y^2 = z^7
при условии x <= y. Программа нашла 6 решений

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^2 + y^2 = z^7
REM
REM  (8, 8, 2);     (29, 278, 5)
REM  (50, 275, 5);  (125, 250, 5)
REM  (190, 205, 5); (1024, 1024, 8)
REM
 
CLS
DIM x AS DOUBLE, x2 AS DOUBLE
DIM y AS DOUBLE, y2 AS DOUBLE
DIM z AS DOUBLE
 
FOR x = 1 TO 2000
   x2 = x * x
   FOR y = x TO 2000
      y2 = y * y
      z = (x2 + y2) ^ (1 / 7)
      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:56     Решение уравнения x^2 + y^2 = z^7
Посмотрите здесь:

Решение уравнения x^2 + y^2 = z^5 - QBasic
Решить в натуральных числах уравнение x^2 + y^2 = z^5 Решение не найдено. Либо их вовсе нет. Либо.... REM REM x^2 + y^2 = z^5 ...

Решение иррационального уравнения - QBasic
Решить уравнение (x + 242) ^ .2 - SQR(17 - x) = -1 Решать можно по разному. В данном случае программа стала искать интервал на котором ...

Шаблон с текстом поздравления, решение уравнения и построение прямоугольника - 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 ...

Решение кв. уравнения - Pascal
Здравствуйте написал программу, которая решает квадратное уравнение. Но при проверки возникают ошибки 1. Когда перед esle стоит &quot;;&quot; пишет...

Решение уравнения - Дифференциальные уравнения
Всем привет! помогите пожалуйста сделать задание:найти решение уравнения, удовлетворяющего начальным условиям

Решение уравнения - MathCAD
Здравтсвуйте! Встретился с вот такой задачей, маткад отказывается считать. Я даже не представляю почему он не хочет выдавать матрицу...

Решение уравнения - Pascal
Составить программу на языке программирования Паскаль, вызывающую процедуру или функцию, позволяющую решить следующую задачу: дано...

Решение уравнения C (СИ) - C (СИ)
Ребят помогите пожалуйста найти ошибку, почему при запуске прога выдает ответ 0. Пример который неоходимо решить на фото, я пытался сделать...

Решение уравнения - Mathematica
Помогите пожалуйста решить уравнение -0.0932877 + 0.261285 e - 0.31831 Log + 0.31831 Log относительно е.


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

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

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