Паскаль

[vvk123456]

Ki спасибо за ссылки, но там всё на Си, а надо Паскаль

[Asix]

Там есть алгоритм, осталось дело за малым ...

[Данила]

если хотите поизвращаться предлагаю такой способ....

запихиваете 4 числа массив, и в репите запускаете: перемешывает рандомно массив,берет первые 3 числа ,проверяет их,если не получился треугольник - идем на репит) думаю итераций 50 хватит))

[vvk123456]

Ребята повторяюсь ДЕЛО ПРИНЦИПА, НУЖНА РЕКУРСИВНАЯ ПРОЦЕДУРА

[Asix]

Попрошу не капсить.
Соблюдайте правила форума =))

[Данила]

честно говоря не вижу тут варианта рекурсии...если только:
создаете массив из 8 чисел,запихиваете туда числа таким образом:
1 2 3 4 1 2 3 4 (индексы чисел)
i берете 1, проверяете i-ый i+1-ый i+2ой элемент если подходят выходите,иначе i:=i+1 и опять пускаете эту процедуру

[vvk123456]

Ок, извените, я правда не знаю что значит "капсить"
А как быть в случае если надо выводить все возможные треугольники?

[Данила]

ну просто не выходите после нахождения первого,а выйдите когда и станет равно  4

[lu]

цикл i от 1 до 2  step 1
{  
  цикл j от 2 до 3  step 1
    {  
      цикл k от 3 до 4   step 1
       {
        a[ i ] < a[ j ] + a[ k ]
        a[ j ] < a[ i ] + a[ k ]
        a[ k ] < a[ i ] + a[ j ]
       }
    }

=))))))))))))
}

[vvk123456]

цикл i от 1 до 2  step 1
{  
  цикл j от 2 до 3  step 1
    {  
      цикл k от 3 до 4   step 1
       {
        a[ i ] < a[ j ] + a[ k ]
        a[ j ] < a[ i ] + a[ k ]
        a[ k ] < a[ i ] + a[ j ]
       }
    }

=))))))))))))
}

В этом случае при 3 проходе треугольник будет составлен из 1,3,и 3 числа
i=1  j=2  k=3
i=1  j=2  k=4
i=1  j=3  k=3

[lu]

 а да)))  точно =))) ну а что...подумаешь лишние шаги делает прога %)

да правда тут всего 4 отрезка и  лучше по отдельности все проверять =)

[vvk123456]

Всем ОГРОМНОЕ спасибо, , прога безвоздместно была передана знакомой для сдачи, посмотрим на завтра о результате

[lu]

так это не ваша задачка была?)

[vvk123456]

Ко мне обратилась за помощью моя знакомая, а я к Людям (с большой буквы), разве это запрещено?, и щё раз спасибо lu за ответ №8, особенно он натолкнул на правильный ход мысли. В принципе это и есть решение!

[lu]

да незачто)