|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.11.2016, 19:43 | #1 |
Регистрация: 20.11.2016
Сообщений: 6
|
Задача по паскалю
Выполнить сортировку массива двумя способами: методом прямого выбора и методом обмена. Ввод элементов массива организовать способом, указанным в варианте задания.
Кол-во элементов: 10; Организация ввода: через константы; Вид сортировки: по убыванию. Заранее спасибо! |
20.11.2016, 21:23 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,555
|
|
20.11.2016, 21:39 | #3 |
Регистрация: 20.11.2016
Сообщений: 6
|
Я знаю принцип сортировки, проблема с константами.
|
20.11.2016, 22:29 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
20.11.2016, 22:31 | #5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
|
20.11.2016, 22:35 | #6 |
Регистрация: 20.11.2016
Сообщений: 6
|
const n=10;
const a:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10); var i,j,k:integer; begin write('Исходный массив'); for i:=1 to n-1 do for j:=1 to n-1 do if (a[j]<a[j+1]) then begin k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k; end; write('Отсортированный массив'); for i:=1 to n do write(a[i]:4); writeln; end. Говорит, что нельзя изменить значение константы. |
21.11.2016, 08:26 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Небось PascalABC ?
так просто перенесите константу в обычный массив. вот так: Код:
|
21.11.2016, 12:58 | #8 | |
Регистрация: 20.11.2016
Сообщений: 6
|
Цитата:
_____________ не злоупотребляйте излишним цитированием, цитируйте только то, что нужно для вашего ответа, остальное удаляйте! Модератор Последний раз редактировалось Serge_Bliznykov; 21.11.2016 в 13:48. |
|
21.11.2016, 13:01 | #9 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,555
|
Моя реализация алгоритма малость эффективнее, только на Си. Только там меняются сразу 3 элемента структуры, но это и козе понятно.
http://programmersforum.ru/showthrea...37#post1643837 ( с последующим уточнением ) ; yabusic при ответе полное цитирование не обязательно. В других форумах за это мало-мало секут розгами и говорят "овекрквотинг" . Последний раз редактировалось digitalis; 21.11.2016 в 13:08. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача по Паскалю | daled | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 15.09.2015 13:26 |
Задача по Паскалю | 4еловек | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 30.10.2012 17:30 |
Задача по паскалю | КоварнаяНяка | Помощь студентам | 4 | 17.12.2010 21:41 |
Задача по паскалю | DarknooB | Помощь студентам | 2 | 16.12.2010 22:35 |
задача по Паскалю))) | Лилля | Помощь студентам | 2 | 25.09.2010 17:56 |