Стандартные задачи на одномерные массивы - История изменений

Mikst: /* №1. Вывод массива */

2019-11-22T07:44:26Z

№1. Вывод массива

← Предыдущая версия		Версия от 10:44, 22 ноября 2019
Строка 6:		Строка 6:
	<source lang="pascal">procedure Println<T>(a: array of T);		<source lang="pascal">procedure Println<T>(a: array of T);
	begin		begin
	foreach x~~: T~~ in a do		foreach var x in a do
	~~write~~(x~~, ' '~~);		Print(x);
	~~writeln~~;		Println;
	end;		end;
	</source>		</source>

Mikst: /* №13. Сортировка выбором */

2019-11-22T04:47:54Z

№13. Сортировка выбором

← Предыдущая версия		Версия от 07:47, 22 ноября 2019
Строка 194:		Строка 194:
	if a[j] < min then		if a[j] < min then
	begin		begin
	min := a[i];		min := a[j];
	imin := j;		imin := j;
	end;		end;

Mikst: /* №17. Количество по условию */

2019-11-22T04:46:29Z

№17. Количество по условию

← Предыдущая версия		Версия от 07:46, 22 ноября 2019
Строка 286:		Строка 286:
	=== №17. Количество по условию ===		=== №17. Количество по условию ===
	<source lang="pascal">		<source lang="pascal">
	function CountPred(a: array of ~~integer~~; pred: ~~IPredicate~~): integer;		function CountPred<T>(a: array of T; pred: T -> boolean): integer;
	begin		begin
	Result := 0;		Result := 0;

Mikst в 19:04, 29 октября 2017

2017-10-29T19:04:53Z

← Предыдущая версия		Версия от 22:04, 29 октября 2017
Строка 11:		Строка 11:
	end;		end;
	</source>		</source>

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

	=== №2. Заполнение массива случайными числами ===		=== №2. Заполнение массива случайными числами ===
Строка 21:		Строка 19:
	Result[i] := random(100);		Result[i] := random(100);
	end;</source>		end;</source>

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

	=== №3. Инвертирование массива ===		=== №3. Инвертирование массива ===
Строка 31:		Строка 27:
	Swap(a[i],a[n-i-1]);		Swap(a[i],a[n-i-1]);
	end; </source>		end; </source>

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

	=== №4. Поиск элемента по заданному значению ===		=== №4. Поиск элемента по заданному значению ===
Строка 58:		Строка 52:
	else Result := i;		else Result := i;
	end;</source>		end;</source>

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

	=== №4a. Поиск с барьером ===		=== №4a. Поиск с барьером ===
Строка 73:		Строка 65:
	else Result := i;		else Result := i;
	end;</source>		end;</source>

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

	=== №5. Минимальный элемент и его индекс ===		=== №5. Минимальный элемент и его индекс ===
Строка 88:		Строка 78:
	end;		end;
	end;</source>		end;</source>

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

	==Сдвиги, вставка, удаление==		==Сдвиги, вставка, удаление==
Строка 99:		Строка 87:
	a[a.Length-1] := default(T);		a[a.Length-1] := default(T);
	end;</source>		end;</source>

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

	=== №7. Сдвиг вправо ===		=== №7. Сдвиг вправо ===
Строка 111:		Строка 97:
	end;		end;
	</source>		</source>

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

	=== №8. Циклический сдвиг вправо ===		=== №8. Циклический сдвиг вправо ===
Строка 124:		Строка 108:
	end;		end;
	</source>		</source>

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

	=== №9. Удаление k-того ===		=== №9. Удаление k-того ===
Строка 139:		Строка 121:
	end;		end;
	</source>		</source>

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

	=== №10. Вставка на k-тое место ===		=== №10. Вставка на k-тое место ===
Строка 153:		Строка 133:
	end;		end;
	</source>		</source>

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

	== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==		== Слияние упорядоченных и бинарный поиск в упорядоченном массиве==
Строка 183:		Строка 161:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/11_Merge.pas Ссылка на алгоритм в среде WDE]~~

	=== №12. Поиск в упорядоченном массиве ===		=== №12. Поиск в упорядоченном массиве ===
Строка 203:		Строка 180:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/12_BinarySearch.pas Ссылка на алгоритм в среде WDE]~~

	== Сортировка массивов ==		== Сортировка массивов ==
Строка 226:		Строка 202:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/13_SortByChoice.pas Ссылка на алгоритм в среде WDE]~~

	=== №14. Пузырьковая сортировка ===		=== №14. Пузырьковая сортировка ===
Строка 240:		Строка 215:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/14_BubbleSort.pas Ссылка на алгоритм в среде WDE]~~

	====Способ №2(оптимизация)====		====Способ №2(оптимизация)====
Строка 260:		Строка 234:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/14(2)_BubbleSort2.pas Ссылка на алгоритм в среде WDE]~~

	=== №15. Сортировка вставками ===		=== №15. Сортировка вставками ===
Строка 279:		Строка 252:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/15_SortByInsert.pas Ссылка на алгоритм в среде WDE]~~

	== Использование процедурных типов в задачах на массивы ==		== Использование процедурных типов в задачах на массивы ==
Строка 311:		Строка 283:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/16_FindPred.pas Ссылка на алгоритм в среде WDE]~~

	=== №17. Количество по условию ===		=== №17. Количество по условию ===
Строка 323:		Строка 294:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/17_CountPred.pas Ссылка на алгоритм в среде WDE]~~

	=== №18. Условный минимум ===		=== №18. Условный минимум ===
Строка 339:		Строка 309:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/18_MinElemPred.pas Ссылка на алгоритм в среде WDE]~~

	=== №19. Удаление по условию ===		=== №19. Удаление по условию ===
Строка 356:		Строка 325:
	end;		end;
	</source>		</source>
	~~[http://pascalabc.net/WDE/?file=AlgStudents/Arrays/19_DeleteAll.pas Ссылка на алгоритм в среде WDE]~~

	----		----

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

Mikst: /* №2. Заполнение массива случайными числами */

2011-04-02T08:36:50Z

№2. Заполнение массива случайными числами

← Предыдущая версия		Версия от 11:36, 2 апреля 2011
Строка 15:		Строка 15:

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

UnREAL: /* №18. Условный минимум */

2011-01-17T09:54:08Z

№18. Условный минимум

← Предыдущая версия		Версия от 12:54, 17 января 2011
Строка 331:		Строка 331:
	min := Integer.MaxValue;		min := Integer.MaxValue;
	imin := -1;		imin := -1;
	for var i := 1 to a.length - 1 do		for var i := 0 to a.length - 1 do
	if pred(a[i]) and (a[i] < min) then		if pred(a[i]) and (a[i] < min) then
	begin		begin

Vikvez в 18:15, 3 декабря 2010

2010-12-03T18:15:08Z

Внесённые изменения

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

2010-12-03T17:45:05Z

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

← Предыдущая версия		Версия от 20:45, 3 декабря 2010
Строка 59:		Строка 59:
	end;</source>		end;</source>

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

	=== №4a. Поиск с барьером ===		=== №4a. Поиск с барьером ===

Vikvez в 15:50, 3 декабря 2010

2010-12-03T15:50:44Z

Внесённые изменения

Mikst: /* №15. Сортировка вставками */

2010-12-03T06:56:22Z

№15. Сортировка вставками

← Предыдущая версия		Версия от 09:56, 3 декабря 2010
Строка 278:		Строка 278:
	</source>		</source>
	[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_15.pas Ссылка на алгоритм в среде WDE]		[http://pascalabc.net/WDE/?shared=vikvez/alg_for_students/alg_15.pas Ссылка на алгоритм в среде WDE]


	== Использование процедурных типов в задачах на массивы ==		== Использование процедурных типов в задачах на массивы ==