|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.04.2013, 21:45 | #1 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 29
|
Даны пять попарно различных целых чисел a,b,c,d,e . Упорядочить их по возрастанию , используя для этого не более семи сравнений
Даны пять попарно различных целых чисел a,b,c,d,e . Упорядочить их по возрастанию , используя для этого не более семи сравнений.
program zad; uses crt; procedure swap (var a,b:integer); var c:integer; begin c:=a; a:=b; b:=c; end; var a,b,c,d,e : integer; begin clrscr; writeln('vvedite chisla:'); readln(a, b, c, d, e); writeln('novie chisla:'); if a>e then swap(a, e); if b>d then swap(b, d); if b>c then swap(b, c); if c>d then swap(c, d); if d>e then swap(d, e); if c>d then swap(c, d); if b>c then swap(b, c); write(a, ' ', b, ' ', c, ' ', d, ' ', e); readln end. |
29.04.2013, 21:46 | #2 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 29
|
не выводит правильно числа : 5 3 1 7 9 ; 22 44 67 87 99
|
29.04.2013, 22:15 | #3 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Проверьте:
Код:
Нужно думать дальше...
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 29.04.2013 в 23:53. |
29.04.2013, 22:37 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Код:
Код:
Программа для 2-х чисел : Код:
Код:
Код:
Хочется оптимизировать вариант с 4-мя числами, тогда, возможно, мы получим что-то хорошее Ура! Для 4-ых я сделал! Код:
А вот и я до 5 добрался Код:
Даже одно сравнение в запасе Последний раз редактировалось Poma][a; 29.04.2013 в 22:52. |
29.04.2013, 23:42 | #5 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 29
|
она всервно у тебя не правльно рабтает. та которая передлана првильнее считает
|
30.04.2013, 07:32 | #6 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Для 5-ти.. Кажется, работает прально..
Код:
Цитата:
|
|
30.04.2013, 13:32 | #7 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
30.04.2013, 15:17 | #8 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Аватар, а Вам не кажется, что в Вашем варианте больше 7 развилок?
|
30.04.2013, 16:10 | #9 |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
А какая разница, сколько ветвлений, если по любому пути их встретится не более 7?
PS. Проверил решение на нескольких миллионах примеров, включая повторяющиеся числа. Ошибок не обнаружено. |
30.04.2013, 16:15 | #10 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Тогда надо спрашивать у автора задачи что он имел ввиду.
А если у Вас так все автоматизированно, не могли бы Вы вариант из поста#6 прогнать(всмысле на тестах) ? Заранее спасибо! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны три массива. Упорядочить их по возрастанию элементов | Новичёк_Delphi | Помощь студентам | 4 | 05.12.2012 21:27 |
Delphi. упорядочить столбцы матрицы по возрастанию сумм элементов этого столбца | ДваДваВо7 | Помощь студентам | 2 | 09.02.2011 16:40 |
сортировки одномерного массива целых чисел методом подсчета сравнений [Паскаль] | sm0ker | Помощь студентам | 13 | 16.12.2010 22:40 |
В матрице nxm (n, m ≥ 10) целых чисел элементы нечетных строк упорядочить по возрастанию, а элементы четн | serafimGroup | Помощь студентам | 1 | 01.12.2010 16:45 |
Найти пять наибольших элементов одномерного массива целых чисел. | Serega-ru | Помощь студентам | 2 | 20.10.2010 10:10 |