Вики проекта PascalABC.NET - Вклад [ru]

Стандартные задачи на одномерные массивы

2010-12-03T18:15:08Z

Vikvez:

= Стандартные задачи на одномерные массивы =

== Простейшие алгоритмы ==

=== №1. Вывод массива ===
<source lang="pascal">procedure Println<T>(a: array of T);
begin
foreach x: T in a do
write(x, ' ');
writeln;
end;
</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/01_Print.pas Ссылка на алгоритм в среде WDE]

=== №2. Заполнение массива случайными числами ===
<source lang="pascal">procedure CreateRandomArray(var a: array of integer; n: integer);
begin
a := new integer[n];
for var i:=0 to n-1 do
a[i] := random(100);
end;</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/02_CreateRandomArray.pas Ссылка на алгоритм в среде WDE]

=== №3. Инвертирование массива ===
<source lang="pascal">procedure Invert<T>(a: array of T);
begin
var n := a.Length;
for var i:=0 to n div 2 - 1 do
Swap(a[i],a[n-i-1]);
end; </source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/03_Invert.pas Ссылка на алгоритм в среде WDE]

=== №4. Поиск элемента по заданному значению ===
<source lang="pascal">// С помощью for
function Find<T>(a: array of T; x: T): integer;
begin
Result := -1;
for var i := 0 to a.Length - 1 do
if a[i] = x then
begin
Result := i;
break;
end;
end;

// С помощью while
function FindWhile<T>(a: array of T; x: T): integer;
begin
var n := a.Length;
var i := 0;
while (i<n) and (a[i]<>x) do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/04_Find.pas Ссылка на алгоритм в среде WDE]

=== №4a. Поиск с барьером ===
<source lang="pascal">function FindWithBarrier<T>(a: array of T; n: integer; x: T): integer;
begin
Assert((0 < n) and (n < a.Length));
a[n] := x; // барьерный элемент равен разыскиваему
var i := 0;
while a[i]<>x do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/04_FindWithBarrier.pas Ссылка на алгоритм в среде WDE]

=== №5. Минимальный элемент и его индекс ===
<source lang="pascal">procedure MinElem(a: array of integer; var min: integer; var minind: integer);
begin
min := a[0];
minind := 0;
for var i:=1 to a.Length-1 do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
end;</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/05_MinElem.pas Ссылка на алгоритм в среде WDE]

==Сдвиги, вставка, удаление==
=== №6. Сдвиг влево ===
<source lang="pascal">procedure ShiftLeft<T>(a: array of T);
begin
for var i:=0 to a.Length-2 do
a[i] := a[i+1];
a[a.Length-1] := default(T);
end;</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/06_ShiftLeft.pas Ссылка на алгоритм в среде WDE]

=== №7. Сдвиг вправо ===
<source lang="pascal">
procedure ShiftRight<T>(a: array of T);
begin
for var i := a.Length-1 downto 1 do
a[i] := a[i-1];
a[0] := default(T);
end;
</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/07_ShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №8. Циклический сдвиг вправо ===
<source lang="pascal">
procedure CycleShiftRight<T>(a: array of T);
begin
var v := a[a.Length-1];
for var i := a.Length downto 1 do
a[i] := a[i-1];
a[0] := v;
end;
</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/08_CycleShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №9. Удаление k-того ===
<source lang="pascal">
procedure Delete<T>(a: array of T; var n: integer; k: integer);
begin
Assert((0<=k) and (k<n))
Assert((0<=n) and (n<=a.Length));
for var i := k to n-2 do
a[i] := a[i+1];
a[n-1] := default(T);
n -= 1;
end;
</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/09_Delete.pas Ссылка на алгоритм в среде WDE]

=== №10. Вставка на k-тое место ===
<source lang="pascal">
procedure Insert<T>(a: array of T; var n: integer; k: integer; value: T);
begin
Assert((0<=k) and (k<=n) and (n<a.Length));
for var i := n-1 downto k do
a[i+1] := a[i];
a[k] := value;
n += 1;
end;
</source>

[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/10_Insert.pas Ссылка на алгоритм в среде WDE]

== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==
=== №11. Слияние двух упорядоченных в один упорядоченный ===
<source lang="pascal">
// a,b упорядочены по возрастанию
function Merge(a,b: array of real; na,nb: integer): array of real;
begin
Assert((0 < na) and (na < a.Length));
Assert((0 < nb) and (nb < b.Length));
a[na] := real.MaxValue;
b[nb] := real.MaxValue;
var c := new real[na + nb];
var ia := 0;
var ib := 0;
for var ic := 0 to na + nb - 1 do
if a[ia]<b[ib] then
begin
c[ic] := a[ia];
ia += 1;
end
else
begin
c[ic] := b[ib];
ib += 1;
end;
Result := c;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/11_Merge.pas Ссылка на алгоритм в среде WDE]

=== №12. Поиск в упорядоченном массиве ===
<source lang="pascal">
function BinarySearch(a: array of integer; x: integer): integer;
begin
var k: integer;
var i := 0;
var j := a.Length-1;
repeat
k := (i+j) div 2;
if x>a[k] then
i := k + 1
else j := k - 1;
until (a[k]=x) or (i>j);
if a[k]=x then
Result := k
else Result := -1;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/12_BinarySearch.pas Ссылка на алгоритм в среде WDE]

== Сортировка массивов ==

=== №13. Сортировка выбором ===
<source lang="pascal">
procedure SortByChoice(a: array of integer);
begin
for var i := 0 to a.Length - 2 do
begin
var min := a[i];
var imin := i;
for var j := i + 1 to a.Length - 1 do
if a[j] < min then
begin
min := a[i];
imin := j;
end;
a[imin] := a[i];
a[i] := min;
end;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/13_SortByChoice.pas Ссылка на алгоритм в среде WDE]

=== №14. Пузырьковая сортировка ===
====Способ №1====
<source lang="pascal">
procedure BubbleSort(a: array of integer);
begin
var n := a.Length;
for var i := 0 to n - 2 do
for var j := n - 1 downto i + 1 do
if a[j] < a[j - 1] then
Swap(a[j], a[j - 1]);
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/14_BubbleSort.pas Ссылка на алгоритм в среде WDE]

====Способ №2(оптимизация)====
<source lang="pascal">
procedure BubbleSort2(a: array of integer);
begin
var i := a.Length - 1;
var q: boolean;
repeat
q := true;
for var j := 0 to i - 1 do
if a[j + 1] < a[j] then
begin
Swap(a[j + 1], a[j]);
q := false;
end;
i -= 1;
until q;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/14(2)_BubbleSort2.pas Ссылка на алгоритм в среде WDE]

=== №15. Сортировка вставками ===
<source lang="pascal">
procedure SortByInsert(a: array of integer);
begin
for var i := 1 to a.Length - 1 do
begin
var x := a[i];
var j := i - 1;
while (j >= 0) and (x < a[j]) do
begin
a[j + 1] := a[j];
j -= 1;
end;
a[j + 1] := x;
end;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/15_SortByInsert.pas Ссылка на алгоритм в среде WDE]

== Использование процедурных типов в задачах на массивы ==
Пусть сделаны следующие описания:
<source lang="pascal">
type IPredicate = function(x: integer): boolean;

// Примеры предикатов
function Even(x: integer): boolean;
begin
result := not odd(x);
end;

function IsPositive(x: integer): boolean;
begin
Result := x > 0;
end;
</source>

=== №16. Поиск по условию ===
<source lang="pascal">
function FindPred(a: array of integer; pred: IPredicate): integer;
begin
var n := a.Length;
var i := 0;
while (i < n) and not pred(a[i]) do
i += 1;
if i = n then
Result := -1
else Result := i;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/16_FindPred.pas Ссылка на алгоритм в среде WDE]

=== №17. Количество по условию ===
<source lang="pascal">
function CountPred(a: array of integer; pred: IPredicate): integer;
begin
Result := 0;
for var i := 0 to a.Length - 1 do
if pred(a[i]) then
Result += 1;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/17_CountPred.pas Ссылка на алгоритм в среде WDE]

=== №18. Условный минимум ===
<source lang="pascal">
procedure MinElemPred(a: array of integer; pred: IPredicate; var min, imin: integer);
begin
min := Integer.MaxValue;
imin := -1;
for var i := 1 to a.length - 1 do
if pred(a[i]) and (a[i] < min) then
begin
min := a[i];
imin := i;
end;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/18_MinElemPred.pas Ссылка на алгоритм в среде WDE]

=== №19. Удаление по условию ===
<source lang="pascal">
procedure DeleteAll(a: array of integer; var n: integer; pred: IPredicate);
begin
Assert((0 < n) and (n <= a.Length));
var j := 0;
for var i := 0 to n - 1 do
if not pred(a[i]) then
begin
a[j] := a[i];
j += 1;
end;
n := j;
end;
</source>
[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/19_DeleteAll.pas Ссылка на алгоритм в среде WDE]

----

© Буцев Виктор, Белоусько Тихон, Зуев Семен, Гончаров Владислав, Батраков Михаил, Гаджиев Казанфар, Пак Владислав

Стандартные задачи на одномерные массивы

2010-12-03T17:45:05Z

Vikvez: /* №4. Поиск элемента по заданному значению */

= Стандартные задачи на одномерные массивы =

== Простейшие алгоритмы ==

=== №1. Вывод массива ===
<source lang="pascal">procedure Println<T>(a: array of T);
begin
foreach x: T in a do
write(x, ' ');
writeln;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/01_Print.pas Ссылка на алгоритм в среде WDE]

=== №2. Заполнение массива случайными числами ===
<source lang="pascal">procedure CreateRandomArray(var a: array of integer; n: integer);
begin
a := new integer[n];
for var i:=0 to n-1 do
a[i] := random(100);
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/02_CreateRandomArray.pas Ссылка на алгоритм в среде WDE]

=== №3. Инвертирование массива ===
<source lang="pascal">procedure Invert<T>(a: array of T);
begin
var n := a.Length;
for var i:=0 to n div 2 - 1 do
Swap(a[i],a[n-i-1]);
end; </source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/03_Invert.pas Ссылка на алгоритм в среде WDE]

=== №4. Поиск элемента по заданному значению ===
<source lang="pascal">// С помощью for
function Find<T>(a: array of T; x: T): integer;
begin
Result := -1;
for var i := 0 to a.Length - 1 do
if a[i] = x then
begin
Result := i;
break;
end;
end;

// С помощью while
function FindWhile<T>(a: array of T; x: T): integer;
begin
var n := a.Length;
var i := 0;
while (i<n) and (a[i]<>x) do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/04_Find.pas Ссылка на алгоритм в среде WDE]

=== №4a. Поиск с барьером ===
<source lang="pascal">function FindWithBarrier<T>(a: array of T; n: integer; x: T): integer;
begin
Assert((0 < n) and (n < a.Length));
a[n] := x; // барьерный элемент равен разыскиваему
var i := 0;
while a[i]<>x do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/04_FindWithBarrier.pas Ссылка на алгоритм в среде WDE]

=== №5. Минимальный элемент и его индекс ===
<source lang="pascal">procedure MinElem(a: array of integer; var min: integer; var minind: integer);
begin
min := a[0];
minind := 0;
for var i:=1 to a.Length-1 do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/05_MinElem.pas Ссылка на алгоритм в среде WDE]

==Сдвиги, вставка, удаление==
=== №6. Сдвиг влево ===
<source lang="pascal">procedure ShiftLeft<T>(a: array of T);
begin
for var i:=0 to a.Length-2 do
a[i] := a[i+1];
a[a.Length-1] := default(T);
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/06_ShiftLeft.pas Ссылка на алгоритм в среде WDE]

=== №7. Сдвиг вправо ===
<source lang="pascal">
procedure ShiftRight<T>(a: array of T);
begin
for var i := a.Length-1 downto 1 do
a[i] := a[i-1];
a[0] := default(T);
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/07_ShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №8. Циклический сдвиг вправо ===
<source lang="pascal">
procedure CycleShiftRight<T>(a: array of T);
begin
var v := a[a.Length-1];
for var i := a.Length downto 1 do
a[i] := a[i-1];
a[0] := v;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/08_CycleShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №9. Удаление k-того ===
<source lang="pascal">
procedure Delete<T>(a: array of T; var n: integer; k: integer);
begin
Assert((0<=k) and (k<n))
Assert((0<=n) and (n<=a.Length));
for var i := k to n-2 do
a[i] := a[i+1];
a[n-1] := default(T);
n -= 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/09_Delete.pas Ссылка на алгоритм в среде WDE]

=== №10. Вставка на k-тое место ===
<source lang="pascal">
procedure Insert<T>(a: array of T; var n: integer; k: integer; value: T);
begin
Assert((0<=k) and (k<=n) and (n<a.Length));
for var i := n-1 downto k do
a[i+1] := a[i];
a[k] := value;
n += 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/10_Insert.pas Ссылка на алгоритм в среде WDE]

== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==
=== №11. Слияние двух упорядоченных в один упорядоченный ===
<source lang="pascal">
// a,b упорядочены по возрастанию
function Merge(a,b: array of real; na,nb: integer): array of real;
begin
Assert((0 < na) and (na < a.Length));
Assert((0 < nb) and (nb < b.Length));
a[na] := real.MaxValue;
b[nb] := real.MaxValue;
var c := new real[na + nb];
var ia := 0;
var ib := 0;
for var ic := 0 to na + nb - 1 do
if a[ia]<b[ib] then
begin
c[ic] := a[ia];
ia += 1;
end
else
begin
c[ic] := b[ib];
ib += 1;
end;
Result := c;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/11_Merge.pas Ссылка на алгоритм в среде WDE]

=== №12. Поиск в упорядоченном массиве ===
<source lang="pascal">
function BinarySearch(a: array of integer; x: integer): integer;
begin
var k: integer;
var i := 0;
var j := a.Length-1;
repeat
k := (i+j) div 2;
if x>a[k] then
i := k + 1
else j := k - 1;
until (a[k]=x) or (i>j);
if a[k]=x then
Result := k
else Result := -1;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/12_BinarySearch.pas Ссылка на алгоритм в среде WDE]

== Сортировка массивов ==

=== №13. Сортировка выбором ===
<source lang="pascal">
procedure SortByChoice(a: array of integer);
begin
for var i := 0 to a.Length - 2 do
begin
var min := a[i];
var imin := i;
for var j := i + 1 to a.Length - 1 do
if a[j] < min then
begin
min := a[i];
imin := j;
end;
a[imin] := a[i];
a[i] := min;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/13_SortByChoice.pas Ссылка на алгоритм в среде WDE]

=== №14. Пузырьковая сортировка ===
====Способ №1====
<source lang="pascal">
procedure BubbleSort(a: array of integer);
begin
var n := a.Length;
for var i := 0 to n - 2 do
for var j := n - 1 downto i + 1 do
if a[j] < a[j - 1] then
Swap(a[j], a[j - 1]);
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/14_BubbleSort.pas Ссылка на алгоритм в среде WDE]

====Способ №2(оптимизация)====
<source lang="pascal">
procedure BubbleSort2(a: array of integer);
begin
var i := a.Length - 1;
var q: boolean;
repeat
q := true;
for var j := 0 to i - 1 do
if a[j + 1] < a[j] then
begin
Swap(a[j + 1], a[j]);
q := false;
end;
i -= 1;
until q;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/14(2)_BubbleSort2.pas Ссылка на алгоритм в среде WDE]

=== №15. Сортировка вставками ===
<source lang="pascal">
procedure SortByInsert(a: array of integer);
begin
for var i := 1 to a.Length - 1 do
begin
var x := a[i];
var j := i - 1;
while (j >= 0) and (x < a[j]) do
begin
a[j + 1] := a[j];
j -= 1;
end;
a[j + 1] := x;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_15.pas Ссылка на алгоритм в среде WDE]

== Использование процедурных типов в задачах на массивы ==
Пусть сделаны следующие описания:
<source lang="pascal">
type IPredicate = function(x: integer): boolean;

// Примеры предикатов
function Even(x: integer): boolean;
begin
result := not odd(x);
end;

function IsPositive(x: integer): boolean;
begin
Result := x > 0;
end;
</source>

=== №16. Поиск по условию ===
<source lang="pascal">
function FindPred(a: array of integer; pred: IPredicate): integer;
begin
var n := a.Length;
var i := 0;
while (i < n) and not pred(a[i]) do
i += 1;
if i = n then
Result := -1
else Result := i;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/15_SortByInsert.pas Ссылка на алгоритм в среде WDE]

=== №17. Количество по условию ===
<source lang="pascal">
function CountPred(a: array of integer; pred: IPredicate): integer;
begin
Result := 0;
for var i := 0 to a.Length - 1 do
if pred(a[i]) then
Result += 1;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/17_CountPred.pas Ссылка на алгоритм в среде WDE]

=== №18. Условный минимум ===
<source lang="pascal">
procedure MinElemPred(a: array of integer; pred: IPredicate; var min, imin: integer);
begin
min := Integer.MaxValue;
imin := -1;
for var i := 1 to a.length - 1 do
if pred(a[i]) and (a[i] < min) then
begin
min := a[i];
imin := i;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/18_MinElemPred.pas Ссылка на алгоритм в среде WDE]

=== №19. Удаление по условию ===
<source lang="pascal">
procedure DeleteAll(a: array of integer; var n: integer; pred: IPredicate);
begin
Assert((0 < n) and (n <= a.Length));
var j := 0;
for var i := 0 to n - 1 do
if not pred(a[i]) then
begin
a[j] := a[i];
j += 1;
end;
n := j;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/19_DeleteAll.pas Ссылка на алгоритм в среде WDE]

----

© Буцев Виктор, Белоусько Тихон, Зуев Семен, Гончаров Владислав, Батраков Михаил, Гаджиев Казанфар, Пак Владислав

Стандартные задачи на одномерные массивы

2010-12-03T15:50:44Z

Vikvez:

= Стандартные задачи на одномерные массивы =

== Простейшие алгоритмы ==

=== №1. Вывод массива ===
<source lang="pascal">procedure Println<T>(a: array of T);
begin
foreach x: T in a do
write(x, ' ');
writeln;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/01_Print.pas Ссылка на алгоритм в среде WDE]

=== №2. Заполнение массива случайными числами ===
<source lang="pascal">procedure CreateRandomArray(var a: array of integer; n: integer);
begin
a := new integer[n];
for var i:=0 to n-1 do
a[i] := random(100);
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/02_CreateRandomArray.pas Ссылка на алгоритм в среде WDE]

=== №3. Инвертирование массива ===
<source lang="pascal">procedure Invert<T>(a: array of T);
begin
var n := a.Length;
for var i:=0 to n div 2 - 1 do
Swap(a[i],a[n-i-1]);
end; </source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/03_Invert.pas Ссылка на алгоритм в среде WDE]

=== №4. Поиск элемента по заданному значению ===
<source lang="pascal">// С помощью for
function Find<T>(a: array of T; x: T): integer;
begin
Result := -1;
for var i := 0 to a.Length - 1 do
if a[i] = x then
begin
Result := i;
break;
end;
end;

// С помощью while
function FindWhile<T>(a: array of T; x: T): integer;
begin
var n := a.Length;
var i := 0;
while (i<n) and (a[i]<>x) do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[ http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/04_Find.pas Ссылка на алгоритм в среде WDE]

=== №4a. Поиск с барьером ===
<source lang="pascal">function FindWithBarrier<T>(a: array of T; n: integer; x: T): integer;
begin
Assert((0 < n) and (n < a.Length));
a[n] := x; // барьерный элемент равен разыскиваему
var i := 0;
while a[i]<>x do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/04_FindWithBarrier.pas Ссылка на алгоритм в среде WDE]

=== №5. Минимальный элемент и его индекс ===
<source lang="pascal">procedure MinElem(a: array of integer; var min: integer; var minind: integer);
begin
min := a[0];
minind := 0;
for var i:=1 to a.Length-1 do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/05_MinElem.pas Ссылка на алгоритм в среде WDE]

==Сдвиги, вставка, удаление==
=== №6. Сдвиг влево ===
<source lang="pascal">procedure ShiftLeft<T>(a: array of T);
begin
for var i:=0 to a.Length-2 do
a[i] := a[i+1];
a[a.Length-1] := default(T);
end;</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/06_ShiftLeft.pas Ссылка на алгоритм в среде WDE]

=== №7. Сдвиг вправо ===
<source lang="pascal">
procedure ShiftRight<T>(a: array of T);
begin
for var i := a.Length-1 downto 1 do
a[i] := a[i-1];
a[0] := default(T);
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/07_ShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №8. Циклический сдвиг вправо ===
<source lang="pascal">
procedure CycleShiftRight<T>(a: array of T);
begin
var v := a[a.Length-1];
for var i := a.Length downto 1 do
a[i] := a[i-1];
a[0] := v;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/08_CycleShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №9. Удаление k-того ===
<source lang="pascal">
procedure Delete<T>(a: array of T; var n: integer; k: integer);
begin
Assert((0<=k) and (k<n))
Assert((0<=n) and (n<=a.Length));
for var i := k to n-2 do
a[i] := a[i+1];
a[n-1] := default(T);
n -= 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/09_Delete.pas Ссылка на алгоритм в среде WDE]

=== №10. Вставка на k-тое место ===
<source lang="pascal">
procedure Insert<T>(a: array of T; var n: integer; k: integer; value: T);
begin
Assert((0<=k) and (k<=n) and (n<a.Length));
for var i := n-1 downto k do
a[i+1] := a[i];
a[k] := value;
n += 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/10_Insert.pas Ссылка на алгоритм в среде WDE]

== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==
=== №11. Слияние двух упорядоченных в один упорядоченный ===
<source lang="pascal">
// a,b упорядочены по возрастанию
function Merge(a,b: array of real; na,nb: integer): array of real;
begin
Assert((0 < na) and (na < a.Length));
Assert((0 < nb) and (nb < b.Length));
a[na] := real.MaxValue;
b[nb] := real.MaxValue;
var c := new real[na + nb];
var ia := 0;
var ib := 0;
for var ic := 0 to na + nb - 1 do
if a[ia]<b[ib] then
begin
c[ic] := a[ia];
ia += 1;
end
else
begin
c[ic] := b[ib];
ib += 1;
end;
Result := c;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/11_Merge.pas Ссылка на алгоритм в среде WDE]

=== №12. Поиск в упорядоченном массиве ===
<source lang="pascal">
function BinarySearch(a: array of integer; x: integer): integer;
begin
var k: integer;
var i := 0;
var j := a.Length-1;
repeat
k := (i+j) div 2;
if x>a[k] then
i := k + 1
else j := k - 1;
until (a[k]=x) or (i>j);
if a[k]=x then
Result := k
else Result := -1;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/12_BinarySearch.pas Ссылка на алгоритм в среде WDE]

== Сортировка массивов ==

=== №13. Сортировка выбором ===
<source lang="pascal">
procedure SortByChoice(a: array of integer);
begin
for var i := 0 to a.Length - 2 do
begin
var min := a[i];
var imin := i;
for var j := i + 1 to a.Length - 1 do
if a[j] < min then
begin
min := a[i];
imin := j;
end;
a[imin] := a[i];
a[i] := min;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/13_SortByChoice.pas Ссылка на алгоритм в среде WDE]

=== №14. Пузырьковая сортировка ===
====Способ №1====
<source lang="pascal">
procedure BubbleSort(a: array of integer);
begin
var n := a.Length;
for var i := 0 to n - 2 do
for var j := n - 1 downto i + 1 do
if a[j] < a[j - 1] then
Swap(a[j], a[j - 1]);
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/14_BubbleSort.pas Ссылка на алгоритм в среде WDE]

====Способ №2(оптимизация)====
<source lang="pascal">
procedure BubbleSort2(a: array of integer);
begin
var i := a.Length - 1;
var q: boolean;
repeat
q := true;
for var j := 0 to i - 1 do
if a[j + 1] < a[j] then
begin
Swap(a[j + 1], a[j]);
q := false;
end;
i -= 1;
until q;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/14(2)_BubbleSort2.pas Ссылка на алгоритм в среде WDE]

=== №15. Сортировка вставками ===
<source lang="pascal">
procedure SortByInsert(a: array of integer);
begin
for var i := 1 to a.Length - 1 do
begin
var x := a[i];
var j := i - 1;
while (j >= 0) and (x < a[j]) do
begin
a[j + 1] := a[j];
j -= 1;
end;
a[j + 1] := x;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_15.pas Ссылка на алгоритм в среде WDE]

== Использование процедурных типов в задачах на массивы ==
Пусть сделаны следующие описания:
<source lang="pascal">
type IPredicate = function(x: integer): boolean;

// Примеры предикатов
function Even(x: integer): boolean;
begin
result := not odd(x);
end;

function IsPositive(x: integer): boolean;
begin
Result := x > 0;
end;
</source>

=== №16. Поиск по условию ===
<source lang="pascal">
function FindPred(a: array of integer; pred: IPredicate): integer;
begin
var n := a.Length;
var i := 0;
while (i < n) and not pred(a[i]) do
i += 1;
if i = n then
Result := -1
else Result := i;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/15_SortByInsert.pas Ссылка на алгоритм в среде WDE]

=== №17. Количество по условию ===
<source lang="pascal">
function CountPred(a: array of integer; pred: IPredicate): integer;
begin
Result := 0;
for var i := 0 to a.Length - 1 do
if pred(a[i]) then
Result += 1;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/17_CountPred.pas Ссылка на алгоритм в среде WDE]

=== №18. Условный минимум ===
<source lang="pascal">
procedure MinElemPred(a: array of integer; pred: IPredicate; var min, imin: integer);
begin
min := Integer.MaxValue;
imin := -1;
for var i := 1 to a.length - 1 do
if pred(a[i]) and (a[i] < min) then
begin
min := a[i];
imin := i;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/18_MinElemPred.pas Ссылка на алгоритм в среде WDE]

=== №19. Удаление по условию ===
<source lang="pascal">
procedure DeleteAll(a: array of integer; var n: integer; pred: IPredicate);
begin
Assert((0 < n) and (n <= a.Length));
var j := 0;
for var i := 0 to n - 1 do
if not pred(a[i]) then
begin
a[j] := a[i];
j += 1;
end;
n := j;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/19_DeleteAll.pas Ссылка на алгоритм в среде WDE]

----

© Буцев Виктор, Белоусько Тихон, Зуев Семен, Гончаров Владислав, Батраков Михаил, Гаджиев Казанфар, Пак Владислав

Стандартные задачи на одномерные массивы

2010-12-02T17:51:59Z

Vikvez: /* Способ №2 */

= Стандартные задачи на одномерные массивы =

== Простейшие алгоритмы ==

=== №1. Вывод массива ===
<source lang="pascal">procedure Println<T>(a: array of T);
begin
foreach x: T in a do
write(x, ' ');
writeln;
end;
</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/1.pas Ссылка на алгоритм в среде WDE]

=== №2. Заполнение массива случайными числами ===
<source lang="pascal">procedure CreateRandomArray(var a: array of integer; n: integer);
begin
a := new integer[n];
for var i:=0 to n-1 do
a[i] := random(100);
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/2.pas Ссылка на алгоритм в среде WDE]

=== №3. Инвертирование массива ===
<source lang="pascal">procedure Invert<T>(a: array of T);
begin
var n := a.Length;
for var i:=0 to n div 2 - 1 do
Swap(a[i],a[n-i-1]);
end; </source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/3.pas Ссылка на алгоритм в среде WDE]

=== №4. Поиск элемента по заданному значению ===
<source lang="pascal">// С помощью for
function Find<T>(a: array of T; x: T): integer;
begin
Result := -1;
for var i := 0 to a.Length - 1 do
if a[i] = x then
begin
Result := i;
break;
end;
end;

// С помощью while
function FindWhile<T>(a: array of T; x: T): integer;
begin
var n := a.Length;
var i := 0;
while (i<n) and (a[i]<>x) do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/4.pas Ссылка на алгоритм в среде WDE]

=== №4a. Поиск с барьером ===
<source lang="pascal">function FindWithBarrier<T>(a: array of T; n: integer; x: T): integer;
begin
Assert((0 < n) and (n < a.Length));
a[n] := x; // барьерный элемент равен разыскиваему
var i := 0;
while a[i]<>x do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/4a.pas Ссылка на алгоритм в среде WDE]

=== №5. Минимальный элемент и его индекс ===
<source lang="pascal">procedure MinElem(a: array of integer; var min: integer; var minind: integer);
begin
min := a[0];
minind := 0;
for var i:=1 to a.Length-1 do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/5.pas Ссылка на алгоритм в среде WDE]

==Сдвиги, вставка, удаление==
=== №6. Сдвиг влево ===
<source lang="pascal">procedure ShiftLeft<T>(a: array of T);
begin
for var i:=0 to a.Length-2 do
a[i] := a[i+1];
a[a.Length-1] := default(T);
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/6.pas Ссылка на алгоритм в среде WDE]

=== №7. Сдвиг вправо ===
<source lang="pascal">
procedure ShiftRight<T>(a: array of T);
begin
for var i := a.Length-1 downto 1 do
a[i] := a[i-1];
a[0] := default(T);
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/ShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №8. Циклический сдвиг вправо ===
<source lang="pascal">
procedure CycleShiftRight<T>(a: array of T);
begin
var v := a[a.Length-1];
for var i := a.Length downto 1 do
a[i] := a[i-1];
a[0] := v;
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/CycleShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №9. Удаление k-того ===
<source lang="pascal">
procedure Delete<T>(a: array of T; var n: integer; k: integer);
begin
Assert((0<=k) and (k<n))
Assert((0<=n) and (n<=a.Length));
for var i := k to n-2 do
a[i] := a[i+1];
a[n-1] := default(T);
n -= 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/Delete.pas Ссылка на алгоритм в среде WDE]

=== №10. Вставка на k-тое место ===
<source lang="pascal">
procedure Insert<T>(a: array of T; var n: integer; k: integer; value: T);
begin
Assert((0<=k) and (k<=n) and (n<a.Length));
for var i := n-1 downto k do
a[i+1] := a[i];
a[k] := value;
n += 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/Insert.pas Ссылка на алгоритм в среде WDE]

== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==
=== №11. Слияние двух упорядоченных в один упорядоченный ===
<source lang="pascal">
// a,b упорядочены по возрастанию
function Merge(a,b: array of real; na,nb: integer): array of real;
begin
Assert((0 < na) and (na < a.Length));
Assert((0 < nb) and (nb < b.Length));
a[na] := real.MaxValue;
b[nb] := real.MaxValue;
var c := new real[na + nb];
var ia := 0;
var ib := 0;
for var ic := 0 to na + nb - 1 do
if a[ia]<b[ib] then
begin
c[ic] := a[ia];
ia += 1;
end
else
begin
c[ic] := b[ib];
ib += 1;
end;
Result := c;
end;
</source>

=== №12. Поиск в упорядоченном массиве ===
<source lang="pascal">
function BinarySearch(a: array of integer; x: integer): integer;
begin
var k: integer;
var i := 0;
var j := a.Length-1;
repeat
k := (i+j) div 2;
if x>a[k] then
i := k + 1
else j := k - 1;
until (a[k]=x) or (i>j);
if a[k]=x then
Result := k
else Result := -1;
end;
</source>

== Сортировка массивов ==

=== №13. Сортировка выбором ===
<source lang="pascal">
procedure SortByChoice(a: array of integer);
begin
for var i := 0 to a.Length - 2 do
begin
var min := a[i];
var imin := i;
for var j := i + 1 to a.Length - 1 do
if a[j] < min then
begin
min := a[i];
imin := j;
end;
a[imin] := a[i];
a[i] := min;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_13.pas Ссылка на алгоритм в среде WDE]

=== №14. Пузырьковая сортировка ===
====Способ №1====
<source lang="pascal">
procedure BubbleSort(a: array of integer);
begin
var n := a.Length;
for var i := 0 to n - 2 do
for var j := n - 1 downto i + 1 do
if a[j] < a[j - 1] then
Swap(a[j], a[j - 1]);
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_14.pas Ссылка на алгоритм в среде WDE]

====Способ №2(оптимизация)====
<source lang="pascal">
procedure BubbleSort2(a: array of integer);
begin
var i := a.Length - 1;
var q: boolean;
repeat
q := true;
for var j := 0 to i - 1 do
if a[j + 1] < a[j] then
begin
Swap(a[j + 1], a[j]);
q := false;
end;
i -= 1;
until q;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_14_2.pas Ссылка на алгоритм в среде WDE]

=== №15. Сортировка вставками ===
<source lang="pascal">
procedure SortByInsert(a: array of integer);
begin
for var i := 1 to a.Length - 1 do
begin
var x := a[i];
var j := i - 1;
while (j >= 0) and (x < a[j]) do
begin
a[j + 1] := a[j];
j -= 1;
end;
a[j + 1] := x;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_15.pas Ссылка на алгоритм в среде WDE]

== Использование процедурных типов в задачах на массивы ==
Пусть сделаны следующие описания:
<source lang="pascal">
type IPredicate = function(x: integer): boolean;

// Примеры предикатов
function Even(x: integer): boolean;
begin
result := not odd(x);
end;

function IsPositive(x: integer): boolean;
begin
Result := x > 0;
end;
</source>

=== №16. Поиск по условию ===
<source lang="pascal">
function FindPred(a: array of integer; pred: IPredicate): integer;
begin
var n := a.Length;
var i := 0;
while (i < n) and not pred(a[i]) do
i += 1;
if i = n then
Result := -1
else Result := i;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_16.pas Ссылка на алгоритм в среде WDE]

=== №17. Количество по условию ===
<source lang="pascal">
function CountPred(a: array of integer; pred: IPredicate): integer;
begin
Result := 0;
for var i := 0 to a.Length - 1 do
if pred(a[i]) then
Result += 1;
end;
</source>
[http://pascalabc.net/WDE/?shared=Miklus/ArraysWithPredicate/17_CountWithCond.pas Ссылка на алгоритм в среде WDE]

=== №18. Условный минимум ===
<source lang="pascal">
procedure MinElemPred(a: array of integer; pred: IPredicate; var min, imin: integer);
begin
min := Integer.MaxValue;
imin := -1;
for var i := 1 to a.length - 1 do
if pred(a[i]) and (a[i] < min) then
begin
min := a[i];
imin := i;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=Miklus/ArraysWithPredicate/18_CondMin.pas Ссылка на алгоритм в среде WDE]

=== №19. Удаление по условию ===
<source lang="pascal">
procedure DeleteAll(a: array of integer; var n: integer; pred: IPredicate);
begin
Assert((0 < n) and (n <= a.Length));
var j := 0;
for var i := 0 to n - 1 do
if not pred(a[i]) then
begin
a[j] := a[i];
j += 1;
end;
n := j;
end;
</source>
[http://pascalabc.net/WDE/?shared=Miklus/ArraysWithPredicate/19_DeleteWithCond.pas Ссылка на алгоритм в среде WDE]

----

© Буцев Виктор, Белоусько Тихон, Зуев Семен, Гончаров Владислав, Батраков Михаил, Гаджиев Казанфар, Пак Владислав

Стандартные задачи на одномерные массивы

2010-11-29T22:54:33Z

Vikvez:

= Стандартные задачи на одномерные массивы =

== Простейшие алгоритмы ==

=== №1. Вывод массива ===
<source lang="pascal">procedure Println<T>(a: array of T; delim: string := ' ');
begin
foreach x: T in a do
write(x, delim);
writeln;
end;
</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/1.pas Ссылка на алгоритм в среде WDE]

=== №2. Заполнение массива случайными числами ===
<source lang="pascal">procedure CreateRandomArray(var a: array of integer; n: integer);
begin
SetLength(a,n);
for var i:=0 to n-1 do
a[i] := random(100);
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/2.pas Ссылка на алгоритм в среде WDE]

=== №3. Инвертирование массива ===
<source lang="pascal">procedure Invert<T>(a: array of T);
begin
var n := a.Length;
for var i:=0 to n div 2 - 1 do
Swap(a[i],a[n-i-1]);
end; </source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/3.pas Ссылка на алгоритм в среде WDE]

=== №4. Поиск элемента по заданному значению ===
<source lang="pascal">// С помощью for
function Find<T>(a: array of T; x: T): integer;
begin
Result := -1;
for var i := 0 to a.Length - 1 do
if a[i] = x then
begin
Result := i;
break;
end;
end;

// С помощью while
function FindWhile<T>(a: array of T; x: T): integer;
begin
var n := a.Length;
var i := 0;
while (i<n) and (a[i]<>x) do
i += 1;
if i=n then
Result := -1
else Result := i;
end;

// №4a. Поиск с барьером
function FindWithBarrier<T>(a: array of T; n: integer; x: T): integer;
begin
Assert((0 < n) and (n < a.Length));
a[n] := x; // барьерный элемент равен разыскиваему
var i := 0;
while a[i]<>x do
i += 1;
if i=n then
Result := -1
else Result := i;
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/4.pas Ссылка на алгоритм в среде WDE]

=== №5. Минимальный элемент и его индекс ===
<source lang="pascal">procedure MinElem(a: array of integer; var min: integer; var minind: integer);
begin
min := a[0];
minind := 0;
for var i:=1 to a.Length-1 do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/5.pas Ссылка на алгоритм в среде WDE]

==Сдвиги, вставка, удаление==
=== №6. Сдвиг влево ===
<source lang="pascal">procedure ShiftLeft<T>(a: array of T);
begin
for var i:=0 to a.Length-2 do
a[i] := a[i+1];
a[a.Length-1] := default(T);
end;</source>

[http://pascalabc.net/WDE/?shared=DaZzz/Arrays/6.pas Ссылка на алгоритм в среде WDE]

=== №7. Сдвиг вправо ===
<source lang="pascal">
procedure ShiftRight<T>(a: array of T);
begin
for var i := a.Length-1 downto 1 do
a[i] := a[i-1];
a[0] := default(T);
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/ShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №8. Циклический сдвиг вправо ===
<source lang="pascal">
procedure CycleShiftRight<T>(a: array of T);
begin
var v := a[a.Length-1];
for var i := a.Length downto 1 do
a[i] := a[i-1];
a[0] := v;
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/CycleShiftRight.pas Ссылка на алгоритм в среде WDE]

=== №9. Удаление k-того ===
<source lang="pascal">
procedure Delete<T>(a: array of T; var n: integer; k: integer);
begin
Assert((0<=k) and (k<n))
Assert((0<=n) and (n<=a.Length));
for var i := k to n-2 do
a[i] := a[i+1];
a[n-1] := default(T);
n -= 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/Delete.pas Ссылка на алгоритм в среде WDE]

=== №10. Вставка на k-тое место ===
<source lang="pascal">
procedure Insert<T>(a: array of T; var n: integer; k: integer; value: T);
begin
Assert((0<=k) and (k<=n) and (n<a.Length));
for var i := n-1 downto k do
a[i+1] := a[i];
a[k] := value;
n += 1;
end;
</source>

[http://pascalabc.net/WDE/?shared=PacVlad/Insert.pas Ссылка на алгоритм в среде WDE]

== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==
=== №11. Слияние двух упорядоченных в один упорядоченный ===
<source lang="pascal">
// a,b упорядочены по возрастанию
function Merge(a,b: array of real; na,nb: integer): array of real;
begin
Assert((0 < na) and (na < a.Length));
Assert((0 < nb) and (nb < b.Length));
a[na] := real.MaxValue;
b[nb] := real.MaxValue;
var c := new integer[na + nb];
var ia := 0;
var ib := 0;
for var ic := 0 to na + nb - 1 do
if a[ia]<b[ib] then
begin
c[ic] := a[ia];
ia += 1;
end
else
begin
c[ic] := b[ib];
ib += 1;
end;
Result := c;
end;
</source>

=== №12. Поиск в упорядоченном массиве ===
<source lang="pascal">
function BinarySearch(a: array of integer; x: integer): integer;
begin
var k: integer;
var i := 0;
var j := a.Length-1;
repeat
k := (i+j) div 2;
if x>a[k] then
i := k + 1
else j := k - 1;
until (a[k]=x) or (i>j);
if a[k]=x then
Result := k
else Result := -1;
end;
</source>

== Сортировка массивов ==

=== №13. Сортировка выбором ===
<source lang="pascal">
procedure SortByChoice(a: array of integer);
begin
for var i := 0 to a.Length - 2 do
begin
var min := a[i];
var imin := i;
for var j := i + 1 to a.Length - 1 do
if a[j] < min then
begin
min := a[i];
imin := j;
end;
a[imin] := a[i];
a[i] := min;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_13.pas Ссылка на алгоритм в среде WDE]

=== №14. Пузырьковая сортировка ===
====Способ №1====
<source lang="pascal">
procedure BubbleSort(a: array of integer);
begin
var n := a.Length;
for var i := 0 to n - 2 do
for var j := n - 1 downto i + 1 do
if a[j] < a[j - 1] then
Swap(a[j], a[j - 1]);
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_14.pas Ссылка на алгоритм в среде WDE]

====Способ №2====
<source lang="pascal">
procedure BubbleSort2(a: array of integer);
begin
var i := a.Length - 1;
var q: boolean;
repeat
q := true;
for var j := 0 to i - 1 do
if a[j + 1] < a[j] then
begin
Swap(a[j + 1], a[j]);
q := false;
end;
i -= 1;
until q;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_14_2.pas Ссылка на алгоритм в среде WDE]

=== №15. Сортировка вставками ===
<source lang="pascal">
procedure SortByInsert(a: array of integer);
begin
for var i := 1 to a.Length - 1 do
begin
var x := a[i];
var j := i - 1;
while (j >= 0) and (x < a[j]) do
begin
a[j + 1] := a[j];
j -= 1;
end;
a[j + 1] := x;
end;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_15.pas Ссылка на алгоритм в среде WDE]

== Использование процедурных типов в задачах на массивы ==
Пусть сделаны следующие описания:
<source lang="pascal">
type IPredicate = function(x: integer): boolean;

// Примеры предикатов
function Even(x: integer): boolean;
begin
result := not odd(x);
end;

function IsPositive(x: integer): boolean;
begin
Result := x > 0;
end;
</source>

=== №16. Поиск по условию ===
<source lang="pascal">
function FindPred(a: array of integer; pred: IPredicate): integer;
begin
var n := a.Length;
var i := 0;
while (i < n) and not pred(a[i]) do
i += 1;
if i = n then
Result := -1
else Result := i;
end;
</source>
[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_16.pas Ссылка на алгоритм в среде WDE]

=== №17. Количество по условию ===
<source lang="pascal">
function CountPred(a: array of integer; pred: IPredicate): integer;
begin
Result := 0;
for var i := 0 to a.Length - 1 do
if pred(a[i]) then
Result += 1;
end;
</source>

=== №18. Условный минимум ===
<source lang="pascal">
procedure MinElemPred(a: array of integer; pred: IPredicate; var min, imin: integer);
begin
min := Integer.MaxValue;
imin := -1;
for var i := 1 to a.length - 1 do
if pred(a[i]) and (a[i] < min) then
begin
min := a[i];
imin := i;
end;
end;
</source>

=== №19. Удаление по условию ===
<source lang="pascal">
procedure DeleteAll(a: array of integer; var n: integer; pred: IPredicate);
begin
Assert((0 < n) and (n <= a.Length));
var j := 0;
for var i := 0 to n - 1 do
if not pred(a[i]) then
begin
a[j] := a[i];
j += 1;
end;
n := j;
end;
</source>

----

© Буцев Виктор, Белоусько Тихон, Зуев Семен, Гончаров Владислав, Батраков Михаил, Гаджиев Казанфар, Пак Владислав