Автор Тема: Паскаль  (Прочитано 4994 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн vvk123456

  • Новичок
  • *
  • Сообщений: 13
    • Просмотр профиля
Re: Паскаль
« Ответ #15 : 29 Сентября 2009, 13:16:53 »
Ki спасибо за ссылки, но там всё на Си, а надо Паскаль

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Re: Паскаль
« Ответ #16 : 29 Сентября 2009, 14:11:23 »
Там есть алгоритм, осталось дело за малым ...
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: Паскаль
« Ответ #17 : 29 Сентября 2009, 15:01:19 »
если хотите поизвращаться предлагаю такой способ....

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

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн vvk123456

  • Новичок
  • *
  • Сообщений: 13
    • Просмотр профиля
Re: Паскаль
« Ответ #18 : 29 Сентября 2009, 15:18:01 »
Ребята повторяюсь ДЕЛО ПРИНЦИПА, НУЖНА РЕКУРСИВНАЯ ПРОЦЕДУРА

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Re: Паскаль
« Ответ #19 : 29 Сентября 2009, 15:34:26 »
Попрошу не капсить.
Соблюдайте правила форума =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: Паскаль
« Ответ #20 : 29 Сентября 2009, 15:42:00 »
честно говоря не вижу тут варианта рекурсии...если только:
создаете массив из 8 чисел,запихиваете туда числа таким образом:
1 2 3 4 1 2 3 4 (индексы чисел)
i берете 1, проверяете i-ый i+1-ый i+2ой элемент если подходят выходите,иначе i:=i+1 и опять пускаете эту процедуру


Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн vvk123456

  • Новичок
  • *
  • Сообщений: 13
    • Просмотр профиля
Re: Паскаль
« Ответ #21 : 29 Сентября 2009, 16:02:07 »
Ок, извените, я правда не знаю что значит "капсить" ???
А как быть в случае если надо выводить все возможные треугольники?

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: Паскаль
« Ответ #22 : 29 Сентября 2009, 16:09:23 »
ну просто не выходите после нахождения первого,а выйдите когда и станет равно  4
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: Паскаль
« Ответ #23 : 29 Сентября 2009, 16:10:40 »
цикл 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

  • Новичок
  • *
  • Сообщений: 13
    • Просмотр профиля
Re: Паскаль
« Ответ #24 : 29 Сентября 2009, 16:18:50 »
цикл 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

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: Паскаль
« Ответ #25 : 29 Сентября 2009, 16:25:04 »
 а да)))  точно =))) ну а что...подумаешь лишние шаги делает прога %)

да правда тут всего 4 отрезка и  лучше по отдельности все проверять =)
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн vvk123456

  • Новичок
  • *
  • Сообщений: 13
    • Просмотр профиля
Re: Паскаль
« Ответ #26 : 29 Сентября 2009, 18:15:10 »
Всем ОГРОМНОЕ спасибо, :), прога безвоздместно была передана знакомой для сдачи, посмотрим на завтра о результате

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: Паскаль
« Ответ #27 : 29 Сентября 2009, 18:36:51 »
так это не ваша задачка была?)
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

Оффлайн vvk123456

  • Новичок
  • *
  • Сообщений: 13
    • Просмотр профиля
Re: Паскаль
« Ответ #28 : 29 Сентября 2009, 18:41:11 »
Ко мне обратилась за помощью моя знакомая, а я к Людям (с большой буквы), разве это запрещено?, и щё раз спасибо lu за ответ №8, особенно он натолкнул на правильный ход мысли. В принципе это и есть решение!

Оффлайн lu

  • Модератор
  • *****
  • Сообщений: 3126
  • ~~~~^_^~~~~
    • Просмотр профиля
Re: Паскаль
« Ответ #29 : 29 Сентября 2009, 19:09:15 »
да незачто)
Мы помогаем, а не решаем за Вас !!!

Полезные обозначения:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ∂ ℮ ∩ ≡  ≠ ≤ ≥ ≈ ∩   α β γ δ ε ζ η θ λ μ ξ π ρ σ φ ψ

 

Найти ошибки в программе, составить блок-схему алгоритма, Паскаль

Автор Murmansk

Ответов: 27
Просмотров: 8136
Последний ответ 22 Февраля 2010, 18:52:06
от InfStudent
Задача паскаль. Составить программу для построения таблицы значений

Автор Rydon

Ответов: 1
Просмотров: 4318
Последний ответ 21 Декабря 2009, 15:49:38
от Rydon
Турбо паскаль, программа для нахождения НОД трех чисел, помогите

Автор Иринки

Ответов: 1
Просмотров: 8898
Последний ответ 23 Ноября 2010, 22:29:53
от testtest
Составить блок-схему вычисления суммы ряда. Паскаль

Автор 00884

Ответов: 1
Просмотров: 5035
Последний ответ 24 Декабря 2010, 09:16:21
от @[email protected]_k
Паскаль(задача). Составить программу определения показания часов

Автор Fairmont

Ответов: 0
Просмотров: 2495
Последний ответ 24 Февраля 2011, 21:25:22
от Fairmont