Разработка программ для решения задач линейного программирования

• среднее время ожидания требования в очереди.
• среднее время нахождения покупателей в магазине.

     Исходные  данные для решения задачи приведены  в следующей таблице:

 

     Λ=12чел/ч

     t_обс=19 ч

     µ=1/19=0,053 чел/ч

     р₀=0,053/(0,053+12)=0.004

     q=12/0.053=226.415

     L_сист=226.415/(1-226.415)=-(226.415/225.415)=-1,004*(-1)=1,004

     L_обсл=1-0.004=0,996

     L_оч=1.004-0.996=0.008

     Т_оч=(1/12)*0.008=0.0007

     Т_сист=(1/12)*1.004=0.083

     Ответ: в среднем в магазине находится  1.004 покупателей, из них 0.008 покупателя в очереди

 

     Программныйкодзадачи

     Задача №1 

     unit Unit1; 

     interface 

     uses

       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

       Dialogs, StdCtrls; 

     type

       TForm1 = class(TForm)

         GroupBox1: TGroupBox;

         Label1: TLabel;

         Edit1: TEdit;

         Label2: TLabel;

         Edit2: TEdit;

         Label3: TLabel;

         Edit3: TEdit;

         Label4: TLabel;

         Edit4: TEdit;

         GroupBox2: TGroupBox;

         Label5: TLabel;

         Edit5: TEdit;

         Label6: TLabel;

         Edit6: TEdit;

         Label7: TLabel;

         Edit7: TEdit;

         Label8: TLabel;

         Edit8: TEdit;

         Label9: TLabel;

         Label10: TLabel;

         Edit9: TEdit;

         Edit10: TEdit;

         Button1: TButton;

         Button2: TButton;

         Button3: TButton;

         Label11: TLabel;

         Edit11: TEdit;

         Label12: TLabel;

         Edit12: TEdit;

         procedure Button2Click(Sender: TObject);

         procedure Button3Click(Sender: TObject);

         procedure Button1Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       Form1: TForm1; 

     implementation 

     {$R *.dfm} 

     procedure TForm1.Button2Click(Sender: TObject);

     begin

     Edit1.Clear;

     Edit2.Clear;

     Edit3.Clear;

     Edit4.Clear;

     Edit5.Clear;

     Edit6.Clear;

     Edit7.Clear;

     Edit8.Clear;

     Edit9.Clear;

     Edit10.Clear;

     Edit11.Clear;

     Edit12.Clear;

     end; 

     procedure TForm1.Button3Click(Sender: TObject);

     begin

     Form1.Hide

     end; 

     procedure TForm1.Button1Click(Sender: TObject);

     var

     n,m,lmbd,och,mf,ku,alf,ochp,kuf,srst,sroch,voch,vst,vrpr,w:real;

     l,x:integer;

     begin

     n:=StrToFloat(Edit1.Text);

     m:=StrToFloat(Edit2.Text);

     lmbd:=StrToFloat(Edit3.Text);

     och:=StrToFloat(Edit4.Text);

     mf:=1/och;

     ku:=mf/(lmbd+mf);

       Edit6.Text:=floattostr(ku); //относительнаяпропускнаяспособность

     alf:=lmbd*ku;

       Edit11.Text:=floattostr(alf); //Абсолютнаяпропускнаяспособность

     ochp:=lmbd/(lmbd+mf);

       Edit5.Text:=floattostr(ochp); //вероятностьотказа

     kuf:=lmbd/mf; //пределная интенсивность

     n:=x;

     for l:=2 to x do

     w:=1;

     w:=w*l;

     vrpr:=1/(1+kuf+Exp(ku*ln(w))/w);

     Edit7.Text:=floattostr(vrpr); //вероятность простоя

     srst:=kuf/(1-kuf);

       Edit12.Text:=floattostr(abs(srst)); //средее число машин на станции

     sroch:=kuf*kuf/(1-kuf);

       Edit8.text:=floattostr(abs(sroch)); //среднее число машин в очереди

     voch:=(1/lmbd)*sroch;

       Edit9.text:=floattostr(abs(voch)); //среднее время нахождения в очереди

     vst:=(1/lmbd)*srst;

       Edit10.text:=floattostr(abs(vst)); //среднее время нахождения на станции

     end;

     end. 

     

 
 

 

     Задача №2 

     Private Sub Command1_Click()

     p = Val(Text1.Text) / Val(Text2.Text)

     ls = p / (1 - p)

     loh = p * p / (1 - p)

     ts = 1 / Val(Text1.Text) * ls

     toh = 1 / Val(Text1.Text) * loh

     Text3.Text = FormatNumber(Abs(ts), 3)

     Text4.Text = FormatNumber(Abs(toh), 3)

     End Sub 
 

     Private Sub Command2_Click()

     Text1.Text = ""

     Text2.Text = ""

     Text3.Text = ""

     Text4.Text = ""

     End Sub

       

Задача №3 

     #include <vcl.h>

     #pragma hdrstop 

     #include "SIM.h"

     #pragma package(smart_init)

     #pragma resource "*.dfm"

     TForm1 *Form1;

     long double A[7][11];

     long double Fx[10]; 

     __fastcall TForm1::TForm1(TComponent* Owner)

         : TForm(Owner)

     {

     }

     void Calcul()

     {

         int i,j,k,l;

         for(i=3;i<10;i++)

             {

                 for(j=0;j<11;j++)

                     {

                         if (i==j) j++;

                         A[i-3][j]=A[i-3][j]/=A[i-3][i];

                     }

                 A[i-3][i]=1;

                 for(k=0;k<7;k++)

                     {

                         if(k==i-3)

                             {

                                 k++;

                                 if(k==7) break;

                             }

                         for(l=0;l<11;l++)

                             {

                                 if(l==i) l++;

                                 A[k][l]-=A[i-3][l]*A[k][i];

                             }

                         A[k][i]=0;

                     }

             }

     } 
 

     void __fastcall TForm1::BitBtn1Click(TObject *Sender)

     {

         A[0][0]=StrToFloat(Edit1->Text);

         A[1][0]=StrToFloat(Edit2->Text);

         A[2][0]=StrToFloat(Edit3->Text);

         A[3][0]=StrToFloat(Edit4->Text);

         A[4][0]=StrToFloat(Edit5->Text);

         A[5][0]=StrToFloat(Edit6->Text);

         A[6][0]=StrToFloat(Edit7->Text);

         A[0][1]=StrToFloat(Edit8->Text);

         A[1][1]=StrToFloat(Edit9->Text);

         A[2][1]=StrToFloat(Edit10->Text);

         A[3][1]=StrToFloat(Edit11->Text);

         A[4][1]=StrToFloat(Edit12->Text);

         A[5][1]=StrToFloat(Edit13->Text);

         A[6][1]=StrToFloat(Edit14->Text);

         A[0][2]=StrToFloat(Edit15->Text);

         A[1][2]=StrToFloat(Edit16->Text);

         A[2][2]=StrToFloat(Edit17->Text);

         A[3][2]=StrToFloat(Edit18->Text);

         A[4][2]=StrToFloat(Edit19->Text);

         A[5][2]=StrToFloat(Edit20->Text);

         A[6][2]=StrToFloat(Edit21->Text);

         A[0][3]=StrToFloat(Edit22->Text);

         A[1][3]=StrToFloat(Edit23->Text);

         A[2][3]=StrToFloat(Edit24->Text);

         A[3][3]=StrToFloat(Edit25->Text);

         A[4][3]=StrToFloat(Edit26->Text);

         A[5][3]=StrToFloat(Edit27->Text);

         A[6][3]=StrToFloat(Edit28->Text);

         A[0][4]=StrToFloat(Edit29->Text);

         A[1][4]=StrToFloat(Edit30->Text);

         A[2][4]=StrToFloat(Edit31->Text);

         A[3][4]=StrToFloat(Edit32->Text);

         A[4][4]=StrToFloat(Edit33->Text);

         A[5][4]=StrToFloat(Edit34->Text);

         A[6][4]=StrToFloat(Edit35->Text);

         A[0][5]=StrToFloat(Edit36->Text);

         A[1][5]=StrToFloat(Edit37->Text);

         A[2][5]=StrToFloat(Edit38->Text);

         A[3][5]=StrToFloat(Edit39->Text);

         A[4][5]=StrToFloat(Edit40->Text);

         A[5][5]=StrToFloat(Edit41->Text);

         A[6][5]=StrToFloat(Edit42->Text);

         A[0][6]=StrToFloat(Edit43->Text);

         A[1][6]=StrToFloat(Edit44->Text);

         A[2][6]=StrToFloat(Edit45->Text);

         A[3][6]=StrToFloat(Edit46->Text);

         A[4][6]=StrToFloat(Edit47->Text);

         A[5][6]=StrToFloat(Edit48->Text);

         A[6][6]=StrToFloat(Edit49->Text);

         A[0][7]=StrToFloat(Edit50->Text);

         A[1][7]=StrToFloat(Edit51->Text);

         A[2][7]=StrToFloat(Edit52->Text);

         A[3][7]=StrToFloat(Edit53->Text);

         A[4][7]=StrToFloat(Edit54->Text);

         A[5][7]=StrToFloat(Edit55->Text);

         A[6][7]=StrToFloat(Edit56->Text);