Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 02.12.2011, 17:30   #1
1Sol
студент, нуп)
Пользователь
 
Регистрация: 02.12.2011
Сообщений: 14
Репутация: 10
По умолчанию [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,649
Репутация: 1218

icq: 723-321
skype: mad_cat1982
По умолчанию

Код:

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
Репутация: 10
По умолчанию

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

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

да почти также:
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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ 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


17:55.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru