Среди чисел 1, 2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел

@Дэня · Регистрация: 24.11.2010

Студворк — интернет-сервис помощи студентам

Вот такая вот задачка:
Дано натуральное число n. Среди чисел 1, 2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. (Определить процедуру, позволяющую распознать полные квадраты.)
вот мое рещение, но оно не совем правильное. помогите пожалуйста найти что не так. заранее большое спасибо.

PureBasic

CLS
INPUT "Vvedite naturalnoe chislo n"; n
FOR i = 1 TO n
GOSUB Kvadrat
NEXT i
END
 
Kvadrat:
FOR j = 1 TO SQR(i)
IF SQR(i - j ^ 2) > 0 AND SQR(i - j ^ 2) THEN PRINT i; "="; j; "^2+"; SQR(i - j ^ 2); "^2"
NEXT j
RETURN

@Aye73x · 22.12.2010, 01:35

Мне в голову приходит только превое ветвление - нужно рассматривать только четные, т.е. не четное не может быть суммой квадратов двух нат. чисел.

Дальше хз пока. Сначала подумал, что нужно на простые множители раскладывать, но понял не в них тут дело.
Сижу - Думаю - Интересно! )

@Shkap · 22.12.2010, 12:29

Сообщение от Aye73x

Мне в голову приходит только превое ветвление - нужно рассматривать только четные, т.е. не четное не может быть суммой квадратов двух нат. чисел.

почему не может? 2^2=4; 5^2=25 25+4=29

Добавлено через 4 минуты

Сообщение от Дэня

Определить процедуру, позволяющую распознать полные квадраты

что такое полные квадраты?

Добавлено через 2 минуты

PureBasic

cls
input "chislo";n
cls
for l=1 to n
for i=1 to l
for j=1 to l
if i^2+j^2=l then ? l
next j
next i
next l

@Дэня · 22.12.2010, 12:43 **[ТС]**

моя программа выдает такой ответ

PureBasic

Vvedite naturalnoe chislo n? 1
 2 = 1 ^2+ 1 ^2
 3 = 1 ^2+ 1.414214 ^2
 4 = 1 ^2+ 1.732051 ^2
 5 = 1 ^2+ 2 ^2
 5 = 2 ^2+ 1 ^2
 6 = 1 ^2+ 2.236068 ^2
 6 = 2 ^2+ 1.414214 ^2
 7 = 1 ^2+ 2.44949 ^2
 7 = 2 ^2+ 1.732051 ^2
 8 = 1 ^2+ 2.645751 ^2
 8 = 2 ^2+ 2 ^2
 9 = 1 ^2+ 2.828427 ^2
 9 = 2 ^2+ 2.236068 ^2
 10 = 1 ^2+ 3 ^2
 10 = 2 ^2+ 2.44949 ^2
 10 = 3 ^2+ 1 ^2

а насколько я понимаю должно быть приблизительно так:

PureBasic

2 = 1 ^2+ 1 ^2
5 = 1 ^2+ 2 ^2
8 = 2 ^2+ 2 ^2
10 = 3 ^2+ 1 ^2
10 = 1 ^2+ 3 ^2

@Shkap · 22.12.2010, 13:45

Сообщение от Дэня

моя программа выдает такой ответ

PureBasic

Vvedite naturalnoe chislo n? 1
 2 = 1 ^2+ 1 ^2
 3 = 1 ^2+ 1.414214 ^2
 4 = 1 ^2+ 1.732051 ^2
 5 = 1 ^2+ 2 ^2
 5 = 2 ^2+ 1 ^2
 6 = 1 ^2+ 2.236068 ^2
 6 = 2 ^2+ 1.414214 ^2
 7 = 1 ^2+ 2.44949 ^2
 7 = 2 ^2+ 1.732051 ^2
 8 = 1 ^2+ 2.645751 ^2
 8 = 2 ^2+ 2 ^2
 9 = 1 ^2+ 2.828427 ^2
 9 = 2 ^2+ 2.236068 ^2
 10 = 1 ^2+ 3 ^2
 10 = 2 ^2+ 2.44949 ^2
 10 = 3 ^2+ 1 ^2

а насколько я понимаю должно быть приблизительно так:

PureBasic

2 = 1 ^2+ 1 ^2
5 = 1 ^2+ 2 ^2
8 = 2 ^2+ 2 ^2
10 = 3 ^2+ 1 ^2
10 = 1 ^2+ 3 ^2

ща посмотрю

Добавлено через 1 минуту
у мя все работает

Добавлено через 39 секунд
только некотрые числа она два раза печатает. так как
10 = 3 ^2+ 1 ^2
10 = 1 ^2+ 3 ^2

@Shkap · 22.12.2010, 13:47

вот, ну как я сказал несколько раз числа выводит

@Shkap · 22.12.2010, 13:49

можно попробовать так

PureBasic

CLS
INPUT "chislo";n
CLS
FOR l=1 TO n
FOR i=1 TO l step 1
FOR j=1 TO l step 1
IF i^2+j^2=l THEN ? l
NEXT j
NEXT i
NEXT l

@Aye73x · 15.01.2011, 17:39

Сообщение от Shkap

почему не может? 2^2=4; 5^2=25 25+4=29

Я себе условие просто видимо иначе тогда нафантазировал..

сейчас уже не вспомню)

@Aye73x 16 / 16 / 13 Регистрация: 10.12.2010 Сообщений: 62
	22.12.2010, 01:35	2
	Мне в голову приходит только превое ветвление - нужно рассматривать только четные, т.е. не четное не может быть суммой квадратов двух нат. чисел. Дальше хз пока. Сначала подумал, что нужно на простые множители раскладывать, но понял не в них тут дело. Сижу - Думаю - Интересно! ) 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	22.12.2010, 13:47	6
	вот, ну как я сказал несколько раз числа выводит Миниатюры 0

@Aye73x 16 / 16 / 13 Регистрация: 10.12.2010 Сообщений: 62
	15.01.2011, 17:39	8
	Сообщение от Shkap почему не может? 2^2=4; 5^2=25 25+4=29 Я себе условие просто видимо иначе тогда нафантазировал.. сейчас уже не вспомню) 0

Опции темы