Реферат: Механизм бектрекинга

b,s: array [1. .100] of word;

a: array [1. .100] of record

cost,ves: word;

end; {Массив магазин}

sum_ves,sum_cost,max,money,level, i,n: integer;

function add_element (d: integer): integer;

var

i: integer;

q: boolean;

begin

repeat

{Ищем пока не найдём}

q: =true;

{проверка есть такой товар или нет}

for i: =1 to level do

if s [i] >=d then q: =false;

if q then add_element: =d

else

begin

d: =d+1;

{проверка, не вышли ли мы за допустимые границы}

if d>n then

begin

add_element: =0;

q: =true;

end;

end;

until q

end;