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

  begin
   m:=1;
   Edit3.Text:='1';
  end;
   SMO(strtoval(Edit1.Text),strtoval(Edit2.Text),m,k,Ro,W,Nq,Nsr,P);
 LRo.Caption:=Currtostr(Ro);
 LW.Caption:=Currtostr(W);
 LNq.Caption:=Currtostr(Nq);
 LNsr.Caption:=Currtostr(Nsr);
 i:=0;
 while i<=20 do begin
 if P[i]<>0 then
 LPn.Text:=LPn.Text+'P['+inttostr(i)+']='+Currtostr(P[i])+'; ';
 i:=i+1
            end
 end
else ShowMessage('Недостаточно параметров!');
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
if not((Edit1.Text<>'')and(Edit2.Text<>'')and(Edit3.Text<>'')and(Edit4.Text<>'')) then
  begin
ShowMessage('Недостаточно параметров для построения графика');
  end
else
  begin
 Chart1.Title.Text.Clear;
 Chart1.Title.Text.Add('График зависимости времени ожидания в очереди');
 Chart1.Title.Text.Add('      от коэффициента использования          ');
 Chart1.Series[0].Clear;
 Chart1.Series[1].Clear;
 label12.Caption:=Edit4.Text;
 j:=1;
 while Ro<0.9 do begin
 SMO(0.01*j,strtoval(Edit2.Text),strtoint(Edit3.Text),strtoint(Edit4.Text),Ro,W,Nq,Nsr,P);
 Chart1.Series[0].AddXY(Ro,W);
 j:=j+1;
            end;
 j:=1;
 Ro:=0;
 while Ro<0.9 do begin
 SMO(0.01*j,strtoval(Edit2.Text),strtoint(Edit3.Text),0,Ro,W,Nq,Nsr,P);
 Chart1.Series[1].AddXY(Ro,W);
 j:=j+1;
              end;
  end
end;




                                                                                       11