|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2011, 17:30 | #1 |
студент, нуп)
Пользователь
Регистрация: 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 неизвестных из уравнения и диапазона. |
02.12.2011, 17:56 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
02.12.2011, 18:25 | #3 |
студент, нуп)
Пользователь
Регистрация: 02.12.2011
Сообщений: 14
|
премного благодарен
|
02.12.2011, 20:06 | #4 |
Новичок
Джуниор
Регистрация: 02.12.2011
Сообщений: 1
|
Сорри за беспокойствие,но есть аналогичный вопрос.
Ввести целое k , если k > 0, то найти все пары натуральных чисел, сумма квадратов которых равна числу k . Например, k = 25: 3 4 4 3 Как-то так... |
02.12.2011, 21:04 | #5 |
студент, нуп)
Пользователь
Регистрация: 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); |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ | 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 |