Silnia nie rekurencyjnie
Function Silnia (n : integer) : longint
Var I : integer Wynik : longint
Begin
Wynik : =1
For I : 1 to n do
Wynik : = wynik - i
Return (wynik)
End
Silnia Rekurencyjnie
Function Silnia (n : integer) : (long )intrger
Begin
If n = 1 then
Silnia : = 1
Else
Silnia = n *(silnia (n-1))
End
Ciąg Finaczego
Var N : integer
Fibb : integer
Begin
If n =1 or n= 2 then
Fibb : = 1
Else
Fibb : = Fibb(n - 1) + Fibb(n - 2)
End
KOPIEC - Tworze nie
BulidHeap (A)
Var licznik : integer
Begin
Heapsize(A) := Length(A)
Licznik := hespsize (A) Div 2
Repeat
Heapify (A , licznik)
Licznik := licznik -1
Until (Licznik =1)
End
Lub
Var i : integer
Begin
For i : length (A) div 2 down to 1 do
Heapify (a,i)
End
Przywracanie w-ci kopca
Headify (A, i)
Var pomoc ,l ,r, naj : intrger
Begin
L:= left (i)
R:= right(i)
If A(i)< A(l) then
Najw := l
Else najw:= I
If A(r)>A (najw) then
Najw : = r
If najw <> I then
Begin
Pomoc: = A(najw)
A(najw): = A(i)
A(i):= pomoc
Heapify(A, pomoc)
End
End
Sortowanie tablicy za pomocą Kopca
Heapsort(A)
Var pomoc: integer
Begin
Bulidheap
For I := length(A) down to 2 do
Begin
Pomoc:= A(1)
A(1):A(i)
A(i):= Pomoc
Dec(heapsize(A))
Heapify(A,1)
End
End
Usun dow ele z kopca
HeapExtract(A,i)
Var pomoc : integer
Begin
Pomoc := A(i)
A(i):= A (length (A))
A(length(A) ):= pomoc
Dec(heapsize(A))
Heapiy(A , i)
End
Dodanie elementu do kopca
HeapInsert(A, wartość)
Var i : integer
Begin
Heapsize (A):= Heapsize (A)+1
I:= heapsize (A)
While (A[parent(i)]<wartość (i>1 ) do
Begin
A[i]:= parent (i)
I:= parent (i)
End
A(i):= wartość
end