Автор Тема: Сортировка (простейшее описание)  (Прочитано 2079 раз)

Оффлайн digitalman

  • DiG_Man
  • Full
  • ****
  • Сообщений: 1673
  • Репутация: +0/-0
  • DigitalMan[hi is not Cristopher Lambert]
    • http://vkontakte.ru/digital_man
    • Личное сообщение (Оффлайн)
Сортировка (простейшее описание)
« : Декабрь 26, 2016, 22:49:00 »
Цитировать
Различных типов сортировок существует множество в разных языках и средах.
Если будет время, дополню, а пока можно указать на примитивную "пузырьковую сортировку".

Предположим мы имеем массив[4,5,9,2,0,10,20,99,-1]
переменные X,Y, переменную для цикла i, и булеву переменную sortOK, тогда:

sortOK:=ложь;
Повторить
sortOK:=правда;
От i=1 до i=8 Делать начало
  X:=массив
 Если X>массив[i+1] то Начало Y:=массив[i+1]; массив[i+1]:=X; массив:=Y; sortOK:=ложь Конец;
Конец
До sortOK=правда;

Такая вот забавная программа получилась. :)))))
« Последнее редактирование: Январь 30, 2019, 14:31:35 от digitalman »
Глобальный Информационный Сервис: Вся информация принадлежит нам...
[DigitalMan/CapRiuS:A1/Цифровой Человек]
(htap://crs)

Оффлайн digitalman

  • DiG_Man
  • Full
  • ****
  • Сообщений: 1673
  • Репутация: +0/-0
  • DigitalMan[hi is not Cristopher Lambert]
    • http://vkontakte.ru/digital_man
    • Личное сообщение (Оффлайн)
Re: Сортировка (простейшее описание)
« Ответ #1 : Февраль 14, 2017, 00:30:50 »
А теперь то же самое на языке Паскаль (PASCAL). На котором в частности основана среда Дельфи (7).

Цитировать
Program Sortirovka;
var SortOk:boolean;
  X,Y:integer;
  i:word;
  ArrayXY[1..9] of integer;
begin
SortOk:=false;
Repeat
SortOk:=true;
For i=1 to i=8 do begin
  Else X>ArrayXY[i+1] then begin Y:=ArrayXY[i+1]; ArrayXY[i+1:=X; SortOk:= false end;
end
Until SortOk=true;
end.
Глобальный Информационный Сервис: Вся информация принадлежит нам...
[DigitalMan/CapRiuS:A1/Цифровой Человек]
(htap://crs)

Оффлайн digitalman

  • DiG_Man
  • Full
  • ****
  • Сообщений: 1673
  • Репутация: +0/-0
  • DigitalMan[hi is not Cristopher Lambert]
    • http://vkontakte.ru/digital_man
    • Личное сообщение (Оффлайн)
Re: Сортировка (простейшее описание)
« Ответ #2 : Декабрь 08, 2018, 11:56:27 »
Быстрая Сортировка! Об Этом стоит подумать...
Глобальный Информационный Сервис: Вся информация принадлежит нам...
[DigitalMan/CapRiuS:A1/Цифровой Человек]
(htap://crs)

 

Последние сообщения на форуме:

[Наука] ЖК Дыхание — официальный сайт о новостройках. от WilliamSuich Сегодня в 02:50:08
[Наука] Re: Квантовые вычисления от Новичёк Сегодня в 02:19:16
[Наука] Re: Новости науки и технологии от Новичёк Сегодня в 02:11:48
[Наука] Re: Новости науки и технологии от Новичёк Сегодня в 02:05:42
[Наука] Re: Новости науки и технологии от Новичёк Сегодня в 01:53:43
[Для компьютера] Re: Клавиатура для ношения на руке, идея, (мозговой штурм) от Новичёк Сегодня в 01:50:24
[Для компьютера] Re: Клавиатура для ношения на руке, идея, (мозговой штурм) от Новичёк Сегодня в 00:28:23
[Для компьютера] Re: Клавиатура для ношения на руке, идея, (мозговой штурм) от digitalman Октябрь 13, 2019, 23:37:54
[История] Re: Загадки древних технологий от Новичёк Октябрь 13, 2019, 23:34:27
[Политика] Re: Противостояние: Россия - США от Новичёк Октябрь 13, 2019, 23:24:49
[Для компьютера] Re: Клавиатура для ношения на руке, идея, (мозговой штурм) от digitalman Октябрь 13, 2019, 23:08:24
[Политика] Re: Противостояние: Россия - США от Новичёк Октябрь 13, 2019, 23:02:36
[Политика] Re: Противостояние: Россия - США от Новичёк Октябрь 13, 2019, 22:59:20
[Политика] Re: Противостояние: Россия - США от Новичёк Октябрь 13, 2019, 22:51:03
[О разоблаченных шарлатанах и созданных ими "учениях"] Re: Разоблачение шарлатанов от Новичёк Октябрь 13, 2019, 22:41:02
[Мир программного обеспечения] Re: Операционная система Апокалипсиса от digitalman Октябрь 13, 2019, 22:34:27
[Журналы для любителей ретро] Re: Журнал "Радiо" (укр.) от john Октябрь 13, 2019, 21:14:16
[Мир программного обеспечения] Re: Операционная система Апокалипсиса от john Октябрь 13, 2019, 17:50:29
[Беседка] Re: Уходят из жизни герои... от john Октябрь 13, 2019, 17:42:45
[Windows. Обмен опытом] Re: Windows 10 от Новичёк Октябрь 13, 2019, 17:21:36
 Rambler's Top100