Компьютерное моделирование. Тарасов В.Н - 122 стр.

     procedure TForm1.FormActivate(Sender: TObject);
     begin
     TabSheet1.Caption:='Вычисления';
     TabSheet2.Caption:='График';
     end;

     end.

      В программе используется библиотечный модуль, содержащий процедуру SMO.
Текст модуля приведен далее:

     library SMO;

     uses
      SysUtils,
      Classes;
     {$R *.res}

     function fuct(n:integer):integer;
     var
     rez,i:integer;
     begin
     rez:=1;
     for i:=1 to n do rez:=rez*i;
     fuct:=rez;
     end;

     function step(x:real;y:integer):real;
     var rezult:real;
     begin
     rezult:=exp(y*ln(x));
     step:=rezult;
     end;

     procedure MySMO(lam,mu:real;m,k:integer; var Ro,w,Nq,N:real; var P: array of real);
     var i:integer;
        u:real;
     begin
      ro:=lam/(m*mu);
     {____________________M/M/m/...__________________}
     if k=0 then                     begin
      p[0]:=0;
     for i:=0 to m-1 do begin
      p[0]:=p[0]+(step(m*Ro,i)/fuct(i));
      p[0]:=p[0]+(step(m*Ro,m)/(fuct(m)*(1-Ro)));
                  end;
      p[0]:=1/p[0];
      i:=0;
      repeat
      i:=i+1;



                                                                                           12