![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 20.11.2016
Сообщений: 6
|
![]()
Выполнить сортировку массива двумя способами: методом прямого выбора и методом обмена. Ввод элементов массива организовать способом, указанным в варианте задания.
Кол-во элементов: 10; Организация ввода: через константы; Вид сортировки: по убыванию. Заранее спасибо! |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,582
|
![]() |
![]() |
![]() |
![]() |
#3 |
Регистрация: 20.11.2016
Сообщений: 6
|
![]()
Я знаю принцип сортировки, проблема с константами.
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]() Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
![]() |
![]() |
![]() |
![]() |
#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. Говорит, что нельзя изменить значение константы. |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
Небось PascalABC ?
так просто перенесите константу в обычный массив. вот так: Код:
|
![]() |
![]() |
![]() |
#8 | |
Регистрация: 20.11.2016
Сообщений: 6
|
![]() Цитата:
_____________ не злоупотребляйте излишним цитированием, цитируйте только то, что нужно для вашего ответа, остальное удаляйте! Модератор Последний раз редактировалось Serge_Bliznykov; 21.11.2016 в 13:48. |
|
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,582
|
![]()
Моя реализация алгоритма малость эффективнее
![]() 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 |