Консультация онлайн # 160990

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Хощенко Артём Владимирович
Дата: 20.02.2009, 13:45 Консультация неактивна
Поступило ответов: 1
Здравствуйте, уважаемые эксперты!
1. Напишите программу, которая выводит все перестановки целых чисел из N элементов.
3
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
2. При печати документа можно выбрать страницы, которые будут отправлены на принтер. Пусть заданы номера страниц в порядке возрастания. Напишите программу, которая перечисляет номера страниц через запятую, при этом страницы, идущие подряд, замените на диапазон, указывая первую и последнюю страницу через дефис.
Входные данные: 1 3 4 5 6 11 12 15
Выходные данные: 1, 1-6, 11-12, 15
Прошу исправить ошибки.
Приложение:

Ответ # 1, puporev (Профессор)

Здравствуйте, Хощенко Артём Владимирович!
Решение первой и второй задач в приложении.

Приложение:


puporev

Профессор
21.02.2009, 09:42
Нет оценки ответа

Мини-форум консультации # 160990

puporev

Профессор

ID: 401888

177227

= общий =    21.02.2009, 12:45
Добавил решене второй задачи.
неизвестный

177446

= общий =    23.02.2009, 13:24
фух.... решение обалденное конечное. не додумался бы сам до такого. но ведь задача не та - с клавиатуры вводится число Н, а потом выводятся все перестановки целых чисел из Н элементов.
неизвестный

177448

= общий =    23.02.2009, 13:28
вторая программа тоже с ошибкой. кол-во страниц нам не известно. в моём коде нужно исправить процедуру считывания. считывать числа, пока они вводятся. как это сделать - моих знаний не хватает.
puporev

Профессор

ID: 401888

177449

= общий =    23.02.2009, 13:31
Не понял. Сделал так как Вы привели в примере. Напишите подробнее и с хорошим, реальным примером. Если Вас смущат, что N-константа, то это легко поправить. Если нужны числа не попорядку, то введите в массив то, что нужно. Короче не понял, что нужно.
puporev

Профессор

ID: 401888

177450

= общий =    23.02.2009, 13:35
Второй год ведем периодически с Вами переписку и одна и та же картина. Не умея точно сформулировать задачу, Вы потом высказываете кучу необоснованных претензий. Короче, решайте сами, так, как Вам нужно. Я пас.
неизвестный

177452

= общий =    23.02.2009, 13:36
хорошо. сейчас объясню понятнее. константы теперь не смущают, ограниченя по средствам, которые можно использовать, не вводились smile с клавиатуры вводится число Н. мы должны вывести все перестановки из натуральных чисел до Н. см. пример:
3
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
неизвестный

177455

= общий =    23.02.2009, 13:52
почему не умея сформулировать задачу? задачи даю те, которые даются мне. с примерами. я же их Вам пишу, а не просто так, наощупь. так что притензии, предъявленные ко мне, считаю необоснованными.
неизвестный

177456

= общий =    23.02.2009, 13:55
и ещё: ругаться с Вами не хочу, но не могу не удержаться указать Вам на ВАШУ ошибку: задачи написаны понятным языком и с примерами. так что смысл задачи вполне можно понять. и не надо мне высказывать, что я не умею сформулировать задачу.... не с головы же беру!
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.