DelphiFAQ.Info : Сам себе программист

Решение СЛАУ методом Гаусса.
Суть метода в приведении матрицы коофициентов к "треугольному" виду и послед.
вычисления корней. Проще Показать чем описать словами, так что вот ...

Шейкер-сортировка

Входные данные - массив и его длина.
Выходные данные - отсортированный массив.



Примеры использования:

begin
arr[5] := 13;
arr[8] := 28;
arr[9] := 35;
arr[3] := 56;
arr[7] := 62;
arr[0] := 98;
arr[6] := 123;
arr[4] := 748;
arr[1] := 834;
arr[2] := 933;

for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
shakerSort(arr, 10);
for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
end.

Результат работы:

98 834 933 56 748 13 123 62 28 35
13 28 35 56 62 98 123 748 834 933

Сортировка с помощью прямого выбора.

Входные данные - массив и его длина.
Выходные данные - отсортированный массив.

Примеры использования:

begin
arr[5] := 13;
arr[8] := 28;
arr[9] := 35;
arr[3] := 56;
arr[7] := 62;
arr[0] := 98;
arr[6] := 123;
arr[4] := 748;
arr[1] := 834;
arr[2] := 933;

for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
straightInsertionSort(arr, 10);
for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
end.

Результат работы:

98 834 933 56 748 13 123 62 28 35
13 28 35 56 62 98 123 748 834 933

Сортировка методом прямого включения.

Входные данные - массив и его длина.
Выходные данные - отсортированный массив.


Примеры использования:
begin
arr[5] := 13;
arr[8] := 28;
arr[9] := 35;
arr[3] := 56;
arr[7] := 62;
arr[0] := 98;
arr[6] := 123;
arr[4] := 748;
arr[1] := 834;
arr[2] := 933;

for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;

easySort(arr, 10);

for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
end.

Результат работы:

98 834 933 56 748 13 123 62 28 35
13 28 35 56 62 98 123 748 834 933

Сортировка методом двоичного включения.

Входные данные - массив и его длина.
Выходные данные - отсортированный массив.

Примеры использования:
begin
arr[5] := 13;
arr[8] := 28;
arr[9] := 35;
arr[3] := 56;
arr[7] := 62;
arr[0] := 98;
arr[6] := 123;
arr[4] := 748;
arr[1] := 834;
arr[2] := 933;

for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
binaryInsertionSort(arr, 10);
for i := 0 to 9 do begin
write(arr[i]); write(' ');
end;
writeln;
end.

Результат работы:

98 834 933 56 748 13 123 62 28 35
13 28 35 56 62 98 123 748 834 933

Линейный поиск.

Входные данные - массив, элемент, позицию которого мы ищем, и длина массива.
Выходные данные - позиция элемента, если он был найден и -1 если - нет.

Код: linear_Search.pas.

Примеры использования:
begin
arr[0] := 13; arr[1] := 28; arr[2] := 35;
arr[3] := 56; arr[4] := 62; arr[5] := 98;
arr[6] := 123; arr[7] := 748; arr[8] := 834;
arr[9] := 933;
element := 18;
writeln(linearSearch(arr, element, 10));
element := 62;
writeln(linearSearch(arr, element, 10));
end;

Результат работы:
-1
4.

Функция двоичного поиска ...

Стек.

Реализованные методы:

а) инициализация стека;
б) добавление/ извлечение элемента;
в) объединение 2-х стеков;
г) проверка на пустоту;
д) определение размера;
е) распечатка.

Закоментировано до нельзя, писалось в TP 7, здавал также исправно и на отлично!
Суть метода проста - есть отрезок содержащий корень, делим его в соотношении золотого сечения
и выясняем где корень далее переносим концы отрезка на вновь установленные и проверяем точность.
Если надо повторяем ... вот и всё ...
Если есть вопросы- пишите ...

Решение ур-й методом градиентного спуска.

Здесь приведен пример кубической интерполяции методом девидона, пример приведён на дельфи,
но легко переводится на паскаль. Основной рабочий код выделен шарпами, пример 100% рабочий
и сдавался мною лично. По всем вопросам обращайтесь, отвечу ...

Дек.

Реализованные методы:

а) инициализация;
б) счетчик элементов;
в) взятие первого/последнего элемента;
г) вставка первого/последнего элемента;
д) распечатка очереди;
е) объединение 2-х очередей.

Взятие подстроки.

Входные данные - строка, из которой берется подстрока, и позиции начала и конца подстроки.
Выходные данные - подстрока.

Примеры использования:

begin
writeln( substring('algoritm', 3, 5) );
writeln( substring('algoritm', 13, 2) );
writeln( substring('algoritm', 13, 35) );
readln( Result );
end.

Результат работы:

gor

first position must be < last position
last position must be < length(str)

Алгоритм последовательного поиска.

Входные данные - строка, в которой ищется фрагмент, и искомая подстрока.
Выходные данные - позиция первого символа подстроки для ее последнего вхождения
в строке или 0 если подстрока не найдена в строке.


Примеры использования:

begin
Result := Find( 'print this page', 'page' );
writeln( Result );
Result := Find( 'situation and solution', 'tion' );
writeln( Result );
Result := Find( 'algoritm', 'schema' );
writeln( Result );
end.

Результат работы:
12
19
0.

Алгоритм замены одной подстроки другой.

Входные данные - str - строка, в которой производятся замены, oldsubstr - подстрока,
которую заменяют, newsubstr - подстрока, на которую заменяют,.
Выходные данные - строка с учетом произведенных замен.

Примеры работы:

begin
writeln(replace('attention','ten','one'));
writeln(replace('kolokol','kol','tar'));
writeln(replace('frederix','jik','mop'));
readln;
end.

Результат работы:

atonetion
tarotar
frederix