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

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

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

Восстановить пароль

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.11.2011, 10:31   #1
kaznachey1993
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 57
По умолчанию Студенту оч нада

Дано натуральное число n. получить все Пифагоровы тройки натуральных чисел, каждое из которых не больше n , то есть все таки тройки натуральных чисел где.a^2+b^2=c^2(a<=b<=c<=n)
kaznachey1993 вне форума
Старый 22.11.2011, 10:32   #2
kaznachey1993
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 57
По умолчанию

Помогите пожалуйста!!!
kaznachey1993 вне форума
Старый 22.11.2011, 10:39   #3
Zer0
Форумчанин
 
Аватар для Zer0
 
Регистрация: 13.12.2007
Сообщений: 788
По умолчанию

Код:
for c:=2 to trunc(sqrt(n)) do
 for a:=1 to c do
  for b:=a to c do
   if a*a+b*b=c*c then writeln (a,' ',b,' ',c);
благодарность - сюда (не забываем писать от кого)
Zer0 вне форума
Старый 22.11.2011, 10:42   #4
mrChester
Я
Форумчанин
 
Аватар для mrChester
 
Регистрация: 24.04.2010
Сообщений: 693
По умолчанию

Код:
C = int(sqrt(n)); //максимальное С
пока с > 3
{
 b = 1;
 пока b < c/2
 { а = 0; //может и 1
       пока a <=b
       {
        если a^2 + b^2 == c^2 тогда вывести их на экран
        а++
       }
   b++;
 }
 c--;
}
надеюсь мой способ показа алгоритма ясен
не успел....
Все персонажи вымышлены, все совпадения случайны.
Если жизнь игра, тогда я её разработчик ©.
mrChester вне форума
Старый 22.11.2011, 10:53   #5
kaznachey1993
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 57
По умолчанию

Спасио конечно но пж дайте полний код на паскале
kaznachey1993 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нада определить интеграл olegraperos Visual C++ 0 08.11.2011 21:52
нада вивести стек!!!! yk92 Паскаль, Turbo Pascal, PascalABC.NET 0 16.05.2010 14:35