вывести последовательности длины n |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
вывести последовательности длины n |
Insomnia |
4.06.2011 2:38
Сообщение
#1
|
|||
Новичок Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: 0 |
Напечатать по 1 разу все последовательности длины n , состоящие из чисел 1..k . Их кол-во находится как k^n.
program nposledov; Выводятся все послед-ти вкл. парные (11, 666 и т.п.) . Их надо исключить. Не могу понять как это сделать. подскажите пожалуйста. да и код, чувствуется, очень грязный и неккоректный.
|
|||
Lapp |
4.06.2011 3:16
Сообщение
#2
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Выводятся все послед-ти вкл. парные (11, 666 и т.п.) . Их надо исключить. Да уж, повторы действительно наблюдаются.. Только не те, о которых ты говорил )) Running "d:\...\pas\fp\fp110603_insomnia\fp110603_insomnia.exe " -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Insomnia |
4.06.2011 7:43
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: 0 |
program nposledov; исправил. теперь выводит что требуется, вкл. парные. надо, что бы включались только те варианты, в которых не будет парных чисел друг с другом. (т.е. 787 - вывести , а 788 - нет) |
DarkWishmaster |
4.06.2011 8:46
Сообщение
#4
|
Бывалый Группа: Пользователи Сообщений: 168 Пол: Мужской Репутация: 3 |
исправил. теперь выводит что требуется, вкл. парные. надо, что бы включались только те варианты, в которых не будет парных чисел друг с другом. (т.е. 787 - вывести , а 788 - нет) Можно сделать функцию для числа:
Или я не совсем понял что такое парное число. Сообщение отредактировано: DarkWishmaster - 4.06.2011 8:53 |
IUnknown |
4.06.2011 10:46
Сообщение
#5
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Цитата исправил. теперь выводит что требуется, вкл. парные. Что-то не видно. Выводится все так же 8 троек нулей.Добавлено через 12 мин. P.S. А вот так: procedure nposled (var Ar:TArr; Pr: TPrr; p: TElem);- выводит то, что требуется: ввожу 7 и 8, получаю 787 878 Это требовалось? Сообщение отредактировано: IUnknown - 4.06.2011 10:46 |
Insomnia |
4.06.2011 19:03
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: 0 |
да. большое спасибо. разобрался
|
Текстовая версия | 29.04.2024 9:52 |