Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

Сортировка   Найти похожие ветки 

 
Yegorchic ©   (2006-01-11 15:42) [0]

Здравствуйте! Объясните, пожалуйста, как действект такая сортировка:
var d:array[0..9] of longint;
a:byte;
n,i,j:longint;
begin
read(n);
fillchar(d,sizeof(d),0);
for i := 1 to n do
 begin
   read(a);
   d[a] := d[a] + 1
 end;
 for j := 0 to 9 do
 for i := 1 to d[j] do
 write(j:2);


Т.е. в ней сначала вводится сколько чисел будет в массиве, а потом, прямо во время ввода они сортируются. Только я не могу понять: как?


 
Pazitron_Brain ©   (2006-01-11 16:05) [1]

Удалено модератором


 
Pazitron_Brain ©   (2006-01-11 16:06) [2]

Удалено модератором


 
Плохиш ©   (2006-01-11 16:09) [3]


> Yegorchic ©   (11.01.06 15:42)

Ни фига себе кто-то траву курит.


 
ferr ©   (2006-01-11 16:09) [4]

считает сколько 1 ты ввёл, сколько 2-ек и т.д. и потом зная их кол-во выводит их. Иногда называют сортировкой "подсчётом".


 
Плохиш ©   (2006-01-11 16:17) [5]

Приятней всего будет реакция на число большее 9 ;-)



Страницы: 1 вся ветка

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
15-1136064024
begin...end
2006-01-01 00:20
2006.01.29
С днём рождения! 1 января


2-1136932291
emergency
2006-01-11 01:31
2006.01.29
TChart


15-1136757130
eLVik
2006-01-09 00:52
2006.01.29
SQL Server Management Studio Express CTP не запускается


15-1136819484
Yerlan Dossanov
2006-01-09 18:11
2006.01.29
SQL


6-1129620575
antoxa2005
2005-10-18 11:29
2006.01.29
http://www.delphimaster.ru/forum/add-4.html - Как сохранить файл?