В информационной базе программы должна храниться информация о покупках.

[On_Dimon]

Убил на задачу целую неделю, а завтра уже нужно показывать, иначе за полугодие будет 0
Надо написать на Delphi;

Вот условие:

В информационной базе программы должна храниться информация о покупках. Каждая покупка содержит от 1 до 7 наименований товаров. необходимо разработать программу позволяющую выявлять наиболее часто встречающиеся сочетания товаров приобретаемые покупателями в рамках одной покупки, то есть, выявить наиболее популярные комбинации из 2,3,4,5,6,7 товаров.
В одной покупке каждий товар может встречаться однократно. В программе необходимо предусмотреть диалог, в котором задается период, за который производится анализ, а также число указывающее максимальное число товаров в иследуемых комбинациях. При анализе встречаемости комбинаций количество отпущенного товара никак ни учитывается. При наличии нескольких комбинаций товаров с одинаковой частотой встречаемости достаточно найти и указать в отчете только одну из них. результатная информация должна содержать для каждой количественной комбинации перечень наименований входящих в неё товаров и частоту ее встречаемости, например в следующем виде:

самая популярная комбинация из 2-х товаров:
1. хлеб
2. пиво
Встречается 23 раз.

самая популярная комбинация из 3-х товаров:
1. сигареты
2. пиво
3. сухарики
Встречается 100 раз.

Это моя наработка Прог.rar

[On_Dimon]

Воттак я её ещё далал. Это сама функция. для двух видов товара она еще чёта рубит:

type
 tut=record
      n:array [1..7] of string;
      i:word;
     end;
var
 r:array [1..100] of tut;
 x,d:Pok;
 ij,i,j,p,y,k,max,t:word;
begin
 Reset(F); k:=0;
 For t:=2 to 7 do
  begin
 y:=0;
   while not Eof(F) do
     begin
      read(F,x);
       if x.Kolvo_tov=t then
         while not Eof(F) do
           begin p:=0;
            read(F,d);
             if d.Kolvo_tov=t then
              for j:=1 to x.Kolvo_tov do
               for i:=1 to x.Kolvo_tov do
                begin
                  if d.Name_tov[i]=x.Name_tov[j] then p:=p+1;
                   if p=x.Kolvo_tov then
                    begin
                      k:=k+1;
                      y:=y+1;
                      r[k].i:=y;
                       for ij:=1 to x.Kolvo_tov do
                         r[k].n[ij]:=d.Name_tov[ij];
                    end;
                end;
           end;
     end;
    max:=0;
    for i:=1 to 2 do
     if max<r[i].i then max:=r[i].i;
      memo1.Lines.Add('Naiue iiioey?iay eiiaeiaoey ec'+inttostr(t)+'oiaa?ia');
       for j:=1 to 2 do
        memo1.Lines.Add(IntToStr(j)+'.  ' + r[max].n[j]);
        memo1.Lines.Add('Ano?a?aaony '+ IntToStr(max)+' ?ac');
  end;


end;

[Serge_Bliznykov]

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

[On_Dimon]

Я студент 2 курса. Базы данных мы ещё не учили