End;
End;
End;
3) Алгоритм сортування масиву:
Існує безліч способів сортування масиву:
В· Метод min або max елемента;
В· Метод бульбашки;
В· Метод Шелла;
В· Метод бінарного пошуку;
В· ...
Метод min або max елементи:
Const = 100: array [1 .. n] of integer;, max, nmax, i, j: integer;: = 100 (a, n), i: = +1 to n-1 do
a [i]: = random (101);;
max: = a [1], nmax: = 1; i: = 1 to n-1 do begin
For j: = 2 to n do max a [i] then begin: = a [ i]; [i]: = max; [nmax]: = temp;;: = a [i +1];: = i +1;
End;; ;
4) Алгоритм виключення елементів з відсортованого масиву:
Var: array of byte;, n1, p, x, i: integer;: = 100 (a, n); i = 1 to n-1 do
a [i]: = random (101);;
max: = a [1], nmax: = 1; i: = 1 to n-1 do begin
For j: = 2 to n do max a [i] then begin: = a [ i]; [i]: = max; [nmax]: = temp;;: = a [i +1];: = i +1;
End;
End;
d: = 7; [виключений елемент]
p: = -1; i: = 0 to n-1 dox = a [i] then p: = i; p = -1 then begin ( такий елемент відсутній );;; i: = p to n-1 do [i]: = a [i +1]; (a, n-1);;
End;
5) Додавання елемента у відсортований масив:
Var: array of integer;, p, x, i: integer;: = 100 (a, n); i = 1 to n-1 do
a [i]: = random (101);;
max: = a [1], nmax: = 1; i: = 1 to n-1 do begin
For j: = 2 to n do max a [i] then begin: = a [ i]; [i]: = max; [nmax]: = temp;;: = a [i +1];: = i +1;
End;; : = StrToInt (Edit1. text); x <= a [0] then (a, n +1); i: = n-1 down to 0 do
a [i +1]: = a [i]; [0]: = x; x> a [n-1] then begin (a, n +1); [n]: = x;; (x> = a [0]) and (x <= a [n-1]) then begini: = 0 to n-2 do
if (x> = a [i]) and (x <= a [i +1]) then
p: = i +1; i: = n-1 down to p do a [i +1]: = a [i]
a [p]: = x
End;
End;
) Приклад алгоритму роботи з множинами:
Програма виділяє з 1 сотні натуральних чисел (всі прості числа). Алгоритм запозичений з прийому Решето Ератосфена .
Const
N = 100;
Type
SetOfNamber = set of 1 .. n;
Var, next, i: word;, PrimSet: SetOfNamber;: = [1 .. n];: = [1];: = 2; begin set <> [] do begin : = next; n1 <= n do begin: = BeginSet - [n1];: = n1 + next;;: = PrimSet + [next]; (next); (next in BeginSet) or (next> n);;
) Заповнення випадковим чином двовимірного масиву (матриці):
Var: array [1 .. n; 1 .. m] of bytei: = 1 to n doj: = 1 to m do
a [i, j]: = random (11);
Сумісність і перетворення типів.
Два типу є спільними якщо:
В· Обидва однакові;
В· Один тип є типом-діапазоном іншого;
В· Обидва речовинні;
В· Обидва цілі;
В· Обидва є типами-діапазонами одного й того самого базового типу;
В· Обидва є множинами, складеними з елементів одного і того ж базового типу.
Нехай t1 - тип змінної, а t2 - тип виразу. Операція t1: = t2 можлива, якщо виконуються перераховані 6 правил і t1, t2 - не є файлами, масивами файлів і записами, що містять поля файлів. А так же діапазон t2 лежить всередині діапазону t1. Або існує функція перетворення типів. br/>
t1: = t2, [де t1: integer; а t2: real]
...
