Консультации Портала - Консультация #194260

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 194260

21.12.2018, 18:06

0.00 руб.

0 9 1

Компьютеры Программирование

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Сумма квадратов длин катетов а и b прямоугольного треугольника равна квадрату длины гипотенузы с: а2+b2=с2. Тройка натуральных чисел, удовлетворяющих этому равенству, называется Пифагоровыми числами. Составить программу нахождения основных троек Пифагоровых чисел, используя следующие формулы:
a=u*v; где u и v — взаимно простые нечетные натуральные числа и u>v.

Обсуждение

давно

puporev

Профессор
401888
1232

21.12.2018, 18:38

общий

Адресаты:

Что такое "основные тройки"?

давно

luxv99

Посетитель
402002
11

21.12.2018, 19:01

общий

Три целых целых числа a, b , c, которые удовлетворяют соотношению Пифагора а^2+b^2=с^2

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

21.12.2018, 19:03

общий

Адресаты:

Их ещё называют Пифагоровыми тройками, т.е. как элементарное 3:4:5, они в а^2+b^2=с^2 дадут верное равенство.

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

puporev

Профессор
401888
1232

21.12.2018, 19:18

общий

Адресаты:

Да не буду я выбирать, вообще что-то отвечать уже не тянет.

давно

luxv99

Посетитель
402002
11

21.12.2018, 19:20

общий

До любого числа в цикле. Паскаль

давно

luxv99

Посетитель
402002
11

21.12.2018, 19:24

общий

21.12.2018, 19:26

Код:

var a, b, c: integer;
begin
for a:=1 to 20 do
for b:=a to 20 do
for c:=b to 20 do
if sqr(a) + sqr(b) = sqr(c) then writeln (a:3, b:3, c:3);
end.

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

21.12.2018, 21:09

общий

Адресаты:

Ваш код:
[code lang=pascal]var
a, b, c: integer;
begin
for a := 1 to 20 do
for b := a to 20 do
for c := b to 20 do
if sqr(a) + sqr(b) = sqr(c) then writeln(a:3, b:3, c:3);
end.[/code]
Дает нормальный результат

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

21.12.2018, 21:14

общий

Адресаты:

(3, 4, 5) (5, 12, 13) (8, 15, 17) (7, 24, 25)
((7, 24, 25)
(20, 21, 29) (12, 35, 37) (9, 40, 41) (28, 45, 53)
(11, 60, 61) (16, 63, 65) (33, 56, 65) (48, 55, 73)
(13, 84, 85) (36, 77, 85) (39, 80, 89) (65, 72, 97)

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

25.12.2018, 21:13

общий

это ответ

Здравствуйте, luxv99!
Смотрите код:
[code lang=pascal]var
i,j,v,u:integer;
begin
for i:=0 to 4 do
for j:=i+1 to 4 do
begin
v:=2*i+1;
u:=2*j+1;
writeln('a:=',u*v:2,'b:=':5,(u*u-v*v)div 2:3,'c:=':5,(u*u+v*v)div 2:3,'v:=':5,v:3,'u:=':5,u:3);
end;
end.[/code]
Удачи!

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.