Презентация, доклад по информатике на тему: Сортировка массивов в Pascal

веке. К 1890 году для ускорения обработки данных переписи населенияПервые прототипы современных методов сортировки появились уже в XIX веке. К 1890 году для ускорения обработки данных переписи населения в СШАПервые прототипы современных методов сортировки появились уже в XIX веке. К 1890 году для ускорения обработки данных переписи населения в США американец Герман ХоллеритПервые прототипы современных методов сортировки появились уже в XIX веке. К 1890 году для ускорения обработки данных переписи населения в США американец Герман Холлерит создал первый статистический табуляторПервые прототипы современных методов сортировки появились уже в XIX веке. К 1890 году для ускорения обработки данных переписи населения в США американец Герман Холлерит создал первый статистический табулятор — электромеханическую машину, предназначенную для автоматической обработки информации, записанной на перфокартах[1]. У машины Холлерита имелся специальный «сортировальный ящик» из 26 внутренних отделений. При работе с машиной от оператора требовалось вставить перфокарту и опустить рукоятку. Благодаря пробитым на перфокарте отверстиям замыкалась определённая электрическая цепь. У машины Холлерита имелся специальный «сортировальный ящик» из 26 внутренних отделений. При работе с машиной от оператора требовалось вставить перфокарту и опустить рукоятку. Благодаря пробитым на перфокарте отверстиям замыкалась определённая электрическая цепь, и на единицу увеличивалось показание связанного с ней циферблата. Одновременно с этим открывалась одна из 26 крышек сортировального ящика, и в соответствующее отделение перемещалась перфокарта, после чего крышка закрывалась. Данная машина позволила обрабатывать около 50 карт в минуту, что ускорило обработку данных в 3 раза. К переписи населения 1900 года Холлерит усовершенствовал машину, автоматизировав подачу карт Работа сортировальной машины Холлерита основывалась на методах поразрядной сортировки. В патенте на машину обозначена сортировка «по отдельности для каждого столбца», но не определён порядок. В другой аналогичной машине, запатентованной в 1894 году Джоном Гором, упоминается сортировка со столбца десятков Метод сортировки, начиная со столбца единиц, впервые появляется в литературе в конце 1930-х годов. К этому времени сортировальные машины уже позволяли обрабатывать до 400 карт в минуту.

for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=1 to N-1 do
begin
var min := a[i];
var ind := i;
for var j:=i+1 to N do
if a[j] begin
min := a[j];
ind := j;
end;
a[ind] := a[i];
a[i] := min;
end;
writeln('После сортировки выбором: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
end.

array[1..n] of integer; i, j, temp: integer; begin randomize; writeln('Исходный массив: '); for i := 1 to n do begin a[i] := random(10); write(a[i]:3); end; writeln; for i := 1 to n - 1 do for j := i + 1 to n do if a[i] > a[j] then begin temp := a[i]; a[i] := a[j]; a[j] := temp; end; writeln('Отсортированный массив: '); for i := 1 to n do write(a[i]:3); end.

');
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
begin
for j:=1 to 9 do
for i:=1 to 10-j do
if a[i] > a[i+1] then
swap(a[i],a[i+1])
end;
writeln('Отсортированный массив: ');
for i := 1 to 10 do
write(a[i]:3);
end.