Найти длины сторон всех прямоугольных треугольников с длиной гипотенузы до 30

@marta_kristina · Регистрация: 16.03.2018

Помогите пожалуйста мне создать такую программу: Найти всех прямоугольных треугольников (длины их сторон) до длины гипотенузы - 30.

Пример:
3, 4, 5
6, 8, 10
12, 16, 20
5, 12, 13

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

@ZX Spectrum-128 · 28.10.2018, 12:45

Сообщение от marta_kristina

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

Не совсем понятно.
Сделал самый простейший вариант.

Pascal

var
  a, b, c: integer;
 
begin
  for a := 1 to 30 do
    for b := 1 to 30 do
      for c := 1 to 30 do
        if a * a + b * b = c * c
          then
          writeln(a:5, b:5, c:5);
end.

@minore · 28.10.2018, 13:11

так написано же: """нельзя повторяться те же три числа в другом порядке""
а у вас в коде выйдет с повторением: 3^2 +4^2 =5^2
и
4^2 +3^2 =5^2
те же числа только в другом порядке, а так по заданию нельзя.

@Puporev · 28.10.2018, 13:54

Pascal

1
2
3

for a := 1 to 28 do
    for b := a+1 to 29 do
      for c := b+1 to 30 do

@minore · 28.10.2018, 14:31

"""for a := 1 to 28 do

* * for b := a+1 to 29 do
* * * for c := b+1 to 30 do"""
И чем это лучше?) все равно и a и b примут значения 12 и 5. повторения будут). но мысль верная , нужно циклы правильно поставить. подсказочка: один катет - верхняя половина от 30/2 до 29, другой от 1 до 15.

@Puporev · 28.10.2018, 14:40

Вообще-то перед тем как слюной брызгать нужно проверить и подумать, вот как может быть 2 раза 5 и 12 если c>b>a?

@bormant · 28.10.2018, 19:52

Или так:

Pascal

var a, b, c, c2: Integer;
begin
  for a:=1 to 30 do for b:=a to 30 do begin
    c2:=Sqr(a)+Sqr(b); c:=Trunc(SqRt(c2));
    if (c<=30) and (c2=Sqr(c)) then
      WriteLn(a:5,b:5,c:5);
  end;
end.

Добавлено через 2 минуты
Одно уточнение -- а в условии есть указание, что длина гипотенузы целое число менее 30?
Или это нужно из примера понять?

@marta_kristina 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 2
		1
	Найти длины сторон всех прямоугольных треугольников с длиной гипотенузы до 30 25.10.2018, 18:48. Показов 861. Ответов 6 Метки нет (Все метки) Помогите пожалуйста мне создать такую программу: Найти всех прямоугольных треугольников (длины их сторон) до длины гипотенузы - 30. Пример: 3, 4, 5 6, 8, 10 12, 16, 20 5, 12, 13 нельзя повторяться те же три числа в другом порядке можно использовать массивы 0

@minore 273 / 132 / 44 Регистрация: 05.02.2015 Сообщений: 858
	28.10.2018, 13:11	3
	так написано же: """нельзя повторяться те же три числа в другом порядке"" а у вас в коде выйдет с повторением: 3^2 +4^2 =5^2 и 4^2 +3^2 =5^2 те же числа только в другом порядке, а так по заданию нельзя. 0

@minore 273 / 132 / 44 Регистрация: 05.02.2015 Сообщений: 858
	28.10.2018, 14:31	5
	"""for a := 1 to 28 do * * for b := a+1 to 29 do * * * for c := b+1 to 30 do""" И чем это лучше?) все равно и a и b примут значения 12 и 5. повторения будут). но мысль верная , нужно циклы правильно поставить. подсказочка: один катет - верхняя половина от 30/2 до 29, другой от 1 до 15. 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	28.10.2018, 14:40	6
	Вообще-то перед тем как слюной брызгать нужно проверить и подумать, вот как может быть 2 раза 5 и 12 если c>b>a? Миниатюры 1

Опции темы