Перебор записей в БД

[Sanakan]

Есть бд в которой хранится записи мероприятий. У каждого мероприятия есть свой приоретет и его цена. Нужно выбрать набор мероприятий с высоким приорететом и сумма которых укладывается в заданную сумму.Нужна ваша помощь. Заранее спасибо!

[maLoy*508]

sql-запрос вам в помощь...
на форуме полно подобных тем, пользуйтесь поиском, в противном случае хотя бы укажите испльзуемую СУБД

[Sanakan]

СУБД - MS Access. SQL'ем умею пользоваться.. Вот только сам алгоритм перебора мне в голову не лезет\

[maLoy*508]

Вот только сам алгоритм перебора мне в голову не лезет\

какой алгоритм??

sql-запрос будет наподобие этого...

Select ИмяТаблицы.ИмяНужногоПоля1, ИмяТаблицы.ИмяНужногоПоля2
From ИмяТаблицыИзКоторойВыбираемДанные
Where ИмяТаблицы.ИмяНужногоПоля1 = 2 {тут условие}

я думаю логика ясна

[Sanakan]

Вообщем есть 4 мероприятия:

1 - 20000 руб, Приоритет = 0.3

2 - 1000 руб, Приоритет = 0.3

3 - 1000 руб, Приоритет = 0.2

4 - 1000 руб, Приоритет = 0.2

Заданная сумма = 21000 руб

По моему алгоритму программа скажет мол оптимально 1 и 2 мероприятие, а самом деле 2,3 и 4... Т.к сумма приоритетов будет больше и сумма затрат не больше 21000 руб..
Нужно исправить... подскажите алгоритм)

procedure TMainForm.RaschetButtonClick(Sender: TObject);
var
I , J , max , Res : integer;
Buf , itog: real;
begin
if sEdit26.Text='' then 
 begin
  Res:=Application.MessageBox( 'Вы не ввели сумму !' ,
      'АИУС Гефест',MB_OK + MB_ICONERROR);
        if Res=IDOK then
          exit;
 end
   else
  begin
    SetLength(ID_Array,Dm.Mer.RecordCount);
    SetLength(Ves_Array,Dm.Mer.RecordCount);
    SetLength(Cen_Array,Dm.Mer.RecordCount);
      Dm.Mer.First;
      for I:=0 to Dm.Mer.RecordCount-1 do
        begin
          ID_Array[i]:=Dm.Mer.FieldByName('ID').AsInteger;
          Ves_Array[i]:=Dm.Mer.FieldByName('Ves').AsFloat;
          Cen_Array[i]:=Dm.Mer.FieldByName('Cen').AsFloat;
          Dm.Mer.Next;
        end;
      for i:=0 to Dm.Mer.RecordCount - 2 do
        begin
           max:=i;
           for j:=i+1 to Dm.Mer.RecordCount-1 do
            if Ves_Array[j] > Ves_Array[max] then max:=j;

             buf:=ID_Array[i];
             ID_Array[i]:=ID_Array[max];
             ID_Array[max]:=buf;

             buf:=Ves_Array[i];
             Ves_Array[i]:=Ves_Array[max];
             Ves_Array[max]:=buf;

             buf:=Cen_Array[i];
             Cen_Array[i]:=Cen_Array[max];
             Cen_Array[max]:=buf;
         end;

      sRichEdit1.Lines.Clear;
      sRichEdit1.Lines.Add('Оптимальный набор мероприятий:');
      sRichEdit1.Lines.Add('');
      buf:=0;
      itog:=0;
        for I:=0 to Dm.Mer.RecordCount-1 do
         begin
          if Cen_Array[i]<=StrToFloat(sEdit26.Text) then
           begin
             buf:=buf+Cen_Array[i];
               if buf<=StrToFloat(sEdit26.Text) then
                 begin
                    Dm.Mer.Locate('ID',ID_Array[i],[]);
                    sRichEdit1.Lines.Add('- '+Dm.Mer.FieldByName('Naz').AsString+' '+FloatToStr(Cen_Array[i])+' руб');
                    itog:=itog+Cen_Array[i];
                end;
           end;
         end;
      sRichEdit1.Lines.Add('');
      sRichEdit1.Lines.Add('Общая сумма затрат на мероприятия = '+FloatToStr(itog)+' руб');
  end;
end;

[Serge_Bliznykov]

и сумма затрат не больше

у... и в сумму может входить одно мероприятие, а может два, а может 50 ?
Тогда эта задача через SQL не решается... поищите, здесь на форуме был реализован алгоритм (если не ошибаюсь (с) LeBron ), который подбирал наиболее подходящую сумму, не превосходящую заданную величину. но, поверьте мне, задачка совсем не из простых (особенно, если учитывать ещё приоритет)... ;(

[Stilet]

Ну вообще запрос может выглядеть так:

select * 
from [Мероприятия]
order by [приоритет],[цена]

а теперь проходи по записям пока общая стоимость не привысит нужную.

[Serge_Bliznykov]

а теперь проходи по записям пока общая стоимость не привысит нужную.

к сожалению, не всё так просто. Порой набор малых величин может дать более оптимальное решение.

допустим нужно набрать на сумму 10 (приоритет для простоты считаем одинаковый для всех мероприятий)
цена мероприятий:
9
7
5
2
2
2
2
2

очевидно, что 5 двоек дадут оптимальное решение...
это, как Вы понимаете, пример навскидку...

[Stilet]

Ну разве что если автору нужно найоптимально...

[Sanakan]

Сообщение от Serge_Bliznykov

поищите, здесь на форуме был реализован алгоритм (если не ошибаюсь (с) LeBron )\

Спасибо, попробую поискать.. Но это еще пол беды) У мероприятий так же есть разногласия. Например, 1 мер. не может быть без 2, а если делать 3е то 1 и 2 не нужно)
Я думаю сделать список всевозможных наборов мер. которые < заданной суммы и выбрать с наивысоким приоритетом..