unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    StringGrid1: TStringGrid;
    Label4: TLabel;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Edit2: TEdit;
    Label8: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Solution(min, max, numOfWeeks: integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

var     priceA:array[1..700] of integer;
        devA:array[1..700] of integer;
        probOfDemand:array[4..16] of integer;
        probOfWeek:array[0..7] of integer;
        probOfSun:array[0..7] of integer;
        S:integer;
        C1, C2, C3:integer;
implementation

{$R *.dfm}

procedure TForm1.Solution(min, max, numOfWeeks: integer);
var i, j, numS, gid: integer;
    p: integer;
    demand: integer;
    price:integer;
    other:integer;
    summa:longint;
     minn: real;
//    midI, devI:integer;
begin
  randomize;
  minn:=100000000;
  for numS:=min to max do
  begin
    ListBox1.Items.Add('   Кол-во гидов: '+IntToStr(numS));
    summa:=0;
    for i:=1 to numOfWeeks*7 do
    begin
      p:=random(100);
      //  Вычисляется спрос
      for j:=4 to 16 do
        if (p<probOfDemand[j]) then
        begin
          demand:=j;
          break;
        end else p:=p-probOfDemand[j];
      //  Вычисляется спрос конец
      if demand<=numS then price:=C1*numS {если хватает сотрудников}
      else  {если не хватает сотрудников}
      begin
        if (i mod 7<>0) then {если будний день}
        begin
          p:=random(100);
          for j:=0 to 7 do   {вычисл. предлож-я в будние}
            if (p<probOfWeek[j]) then
            begin
              other:=j;
              break;
            end else p:=p-probOfWeek[j];
        end
          else      {если выходной день}
        begin
          p:=random(100);
          for j:=0 to 7 do   {вычисл. предлож-я в выходные}
            if (p<probOfSun[j]) then
              begin
              other:=j;
              break;
            end else p:=p-probOfSun[j];
        end;
        if (demand-numS<=other) then price:=C1*numS+C2*(demand-numS) {если хватает доп. сотрудников}
        else price:=C1*numS+C2*(demand-numS)+C3*(demand-numS-other); {если не хватает доп. сотрудников}
      end;
      priceA[i]:=price;
      summa:=summa+priceA[i];
      if (CheckBox1.Checked) then
      begin
        ListBox1.Items.Add(IntToStr(numS)+'-гидов '+IntToStr(demand)+'-спрос '+IntToStr(other)+'-доп.гиды ');
        ListBox1.Items.Add('Цена в день №'+IntToStr(i)+': '+IntToStr(priceA[i]));
      end;
    end;
    if (summa/numOfWeeks) < minn then
     begin
      minn := summa/numOfWeeks;
      gid := numS;
     end;
    ListBox1.Items.Add('  Итого в неделю в среднем: '+': '+FloatToStr(summa/numOfWeeks));
  end;
  ListBox1.Items.Add('*********************');
  ListBox1.Items.Add('Ответ: сумма = '+FloatToStr(minn)+' гидов:'+IntToStr(gid));

end;

procedure TForm1.Button1Click(Sender: TObject);
var     i:integer;
begin
  ListBox1.Items.Clear;
  i:=4;
  try
  begin
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]);  i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]);  i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]);  i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;
  probOfDemand[i]:=StrToInt(StringGrid1.Cells[i-3,1]); i:=i+1;;
  i:=0;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  probOfWeek[i]:=StrToInt(StringGrid2.Cells[i+1,1]); i:=i+1;
  i:=0;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  probOfSun[i]:=StrToInt(StringGrid3.Cells[i+1,1]); i:=i+1;
  C1:=StrToInt(Edit1.Text);
  C2:=StrToInt(Edit2.Text);
  C3:=StrToInt(Edit3.Text);
  end
  except
    on Exception do
    begin
      ShowMessage('Данные не верны!!!');
      exit;
    end;
  end;
  solution(spinEdit1.Value, spinEdit2.Value, spinEdit3.Value);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  StringGrid1.Cells[0,0]:='Кол.';
  StringGrid1.Cells[0,1]:='%';
  StringGrid2.Cells[0,0]:='Кол.';
  StringGrid2.Cells[0,1]:='%';
  StringGrid3.Cells[0,0]:='Кол.';
  StringGrid3.Cells[0,1]:='%';
  for i:=4 to 16 do StringGrid1.Cells[i-3,0]:=IntToStr(i);
  i:=1;
  StringGrid1.Cells[i,1]:='2'; i:=i+1;
  StringGrid1.Cells[i,1]:='4'; i:=i+1;
  StringGrid1.Cells[i,1]:='4'; i:=i+1;
  StringGrid1.Cells[i,1]:='8'; i:=i+1;
  StringGrid1.Cells[i,1]:='10';  i:=i+1;
  StringGrid1.Cells[i,1]:='12'; i:=i+1;
  StringGrid1.Cells[i,1]:='12'; i:=i+1;
  StringGrid1.Cells[i,1]:='12'; i:=i+1;
  StringGrid1.Cells[i,1]:='10';  i:=i+1;
  StringGrid1.Cells[i,1]:='10';  i:=i+1;
  StringGrid1.Cells[i,1]:='8'; i:=i+1;
  StringGrid1.Cells[i,1]:='6'; i:=i+1;
  StringGrid1.Cells[i,1]:='2';
  for i:=0 to 7 do StringGrid2.Cells[i,0]:=IntToStr(i);
  for i:=0 to 7 do StringGrid3.Cells[i,0]:=IntToStr(i);
  i:=1;
  StringGrid2.Cells[i,1]:='3'; i:=i+1;
  StringGrid2.Cells[i,1]:='9'; i:=i+1;
  StringGrid2.Cells[i,1]:='15'; i:=i+1;
  StringGrid2.Cells[i,1]:='20'; i:=i+1;
  StringGrid2.Cells[i,1]:='22';  i:=i+1;
  StringGrid2.Cells[i,1]:='14'; i:=i+1;
  StringGrid2.Cells[i,1]:='10'; i:=i+1;
  StringGrid2.Cells[i,1]:='7'; i:=i+1;
  i:=1;
  StringGrid3.Cells[i,1]:='14'; i:=i+1;
  StringGrid3.Cells[i,1]:='26'; i:=i+1;
  StringGrid3.Cells[i,1]:='28'; i:=i+1;
  StringGrid3.Cells[i,1]:='18'; i:=i+1;
  StringGrid3.Cells[i,1]:='8';  i:=i+1;
  StringGrid3.Cells[i,1]:='4'; i:=i+1;
  StringGrid3.Cells[i,1]:='2'; i:=i+1;
  StringGrid3.Cells[i,1]:='0'; i:=i+1;
end;

end.