Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата



{ Поиск g } for i := 0 to N do begin

T[0, i].y := 0;

T[0, i].g := 0; end;

for j := 1 to S do for i := 0 to N do begin

T[j, i].y := 0;

T[j, i].g := rr[j, 0] + T[j-1, i].g; for y := 1 to min(L[j], i) do if rr[j, y] + T[j-1, i-y].g > T[j, i].g then begin

T[j, i].y := y;

T[j, i].g := rr[j, y] + T[j-1, i-y].g; end; end;

{ Распределение средств по отделам } nn := N; for j := S downto 1 do begin

Income[j, 0] := T[j, nn].y; nn := nn - Income[j, 0]; end;

{ Распределение средств в каждом отделе } for k := 1 to S do begin for i := 0 to Income[k, 0] do begin

T2[0, i].y := 0;

T2[0, i].g := 0; end;

for j := 1 to 3 do for i := 0 to Income[k, 0] do begin

T2[j, i].y := 0; case j of

1 : T2[j, i].g := P[k, 0] + T2[j-1, i].g;

2 : T2[j, i].g := Q[k, 0] + T2[j-1, i].g;

3 : T2[j, i].g := R[k, 0] + T2[j-1, i].g; end;

for y := 1 to i do begin case j of

1 : f := P[k, y];

2 : f := Q[k, y];

3 : f := R[k, y]; end;

if f + T2[j-1, i-y].g > T2[j, i].g then begin

T2[j, i].y := y;

T2[j, i].g := f + T2[j-1, i-y].g; end; end; end;

Рекомендуем скачать другие рефераты по теме: сочинения по картинам, изложение на тему.

Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата