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

            { Private declarations }
          public
            { Public declarations }
          end;
        var
          Form1: TForm1;
           lamm,mmu:real;
          j,i,mm:integer;
          P: array[0..20] of real;
          Ro,W,Nq,Nsr,u,buf:real;
         procedure SMO(lam,mu:real;m,k:integer; var Ro,w,Nq,N:real; var P: array of real); ex-
ternal 'SMO.dll';
        implementation
        {$R *.dfm}
        function strtoval(st:string):real;
        var
        rl:real;
        j:integer;
        begin
        i:=1;
        rl:=0;
        while i<=length(st) do
         begin
        if (st[i]<>'.')and(st[i]<>',') then begin
         rl:=rl*10+strtoint(st[i]);
         i:=i+1
                                 end
        else
          begin
          j:=i;
          i:=i+1;
          while i<=length(st) do begin
          rl:=rl+strtoint(st[i])/power(10,i-j);
          i:=i+1
                             end
          end
         end;
         strtoval:=rl
        end;
        procedure TForm1.Button1Click(Sender: TObject);
        var
        k,m:integer;
        begin
        LPn.Text:='';
        for i:=1 to 20 do P[i]:=0;
        if (Edit1.Text<>'')and(Edit2.Text<>'')and(Edit3.Text<>'')and(Edit4.Text<>'') then
         begin
         k:=strtoint(Edit4.Text);
         m:=strtoint(Edit3.Text);
         if (k<>0)and(k<>m) then



                                                                                           10