Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2011, 17:30   #1
1Sol
студент, нуп)
Пользователь
 
Регистрация: 02.12.2011
Сообщений: 14
По умолчанию [Pascal] Циклические вычислительные процессы

Всем доброго времени суток.
Прошу помощи в решении задачи:
Ввести целое N , если N>0, то найти все натуральные решения
уравнения k*k=x*x+y*y, если x,y,k меняются в диапазоне натуральных
чисел от 1 до N . Например, для N=10:
3, 4, 5
4, 3, 5
6, 8, 10
8, 6, 10
Если быть точным, прошу объяснить, как сделать так, чтобы программа находила 3 неизвестных из уравнения и диапазона.
1Sol вне форума Ответить с цитированием
Старый 02.12.2011, 17:56   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
for  k:=1 to n do
for x:=1 to n do
for y:=1 to n do
if sqr(k)=sqr(x)+sqr(y) then writeln(x:5,y:5,k:5);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 02.12.2011, 18:25   #3
1Sol
студент, нуп)
Пользователь
 
Регистрация: 02.12.2011
Сообщений: 14
По умолчанию

премного благодарен
1Sol вне форума Ответить с цитированием
Старый 02.12.2011, 20:06   #4
Denis0077
Новичок
Джуниор
 
Регистрация: 02.12.2011
Сообщений: 1
По умолчанию

Сорри за беспокойствие,но есть аналогичный вопрос.
Ввести целое k , если k > 0, то найти все пары натуральных чисел,
сумма квадратов которых равна числу k . Например, k = 25:
3 4
4 3
Как-то так...
Denis0077 вне форума Ответить с цитированием
Старый 02.12.2011, 21:04   #5
1Sol
студент, нуп)
Пользователь
 
Регистрация: 02.12.2011
Сообщений: 14
По умолчанию

да почти также:
for x:=1 to k do
for y:=1 to k do
if k=sqr(x)+sqr(y) then
writeln(x:5,y:5);
1Sol вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ Urz-3 Помощь студентам 5 06.12.2011 06:33
Циклические вычислительные процессы. Pavel_Ghost Помощь студентам 2 23.05.2010 19:25
С++ Циклические вычислительные процессы. bpystep Помощь студентам 19 19.09.2009 23:27
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ Urz-3 Помощь студентам 2 07.06.2009 18:56