вот тут она в самом конце:
for(Integer i := 1; i< := kol; i++)
begin
cout<<'Progon '<<i<<':'#10'';
cout<<'Vvedite vremya raboti sistemi: ';
cin>>time;
do
begin
if (S=0) then
begin
lyambda := (-1)*log(random(1000)/1000.0+0.001)/Ivh;
S := 1;
t+ := lyambda;
Cz++;
Cobsl++;
end;
if (S=1) then
begin
lyambda := (-1)*log(random(1000)/1000.0+0.001)/Ivh;
mu := (-1)*log(random(1000)/1000.0+0.001)/Iobsl;
if (lyambda<mu) then
begin
S := 2;
t+ := lyambda;
Cz++;
Cobsl++;
Tobsl+ := lyambda;
end
else
begin
S := 0;
t+ :=mu;
Tobsl+ := mu;
end;
end;
if (S=2) then
begin
lyambda := (-1)*log(random(1000)/1000.0+0.001)/Ivh;
mu := (-1)*log(random(1000)/1000.0+0.001)/Iobsl;
if (lyambda<mu) then
begin
S := 2;
t+ := lyambda;
Cz++;
Co++;
Tobsl+ := lyambda;
end
else
begin
S := 1;
t+ := mu;
Tobsl+ := mu;
end;
end;
end;
while (t<time) do ;
Po := (time -Tobsl)/2/time;
Potk := (Double)Co/(Double)Cz;
Q := (Double)Cobsl/(Double)Cz;
A := (Double)Cobsl/time;
KolKan := (time-Tobsl)/time;
cout<<'Kolichestvo zayavok: '<<Cz<<''#10'';
cout<<'Kolichestvo obsluzhennih zayavok: '<<Cobsl<<''#10'';
cout<<'Otkazano '<<Co<<' zayavke(am)'#10'';
cout<<'Veroyatnost prostoya: '<<Po<<''#10'';
cout<<'Veroyatnost otkaza: '<<Potk<<''#10'';
cout<<'Dolya obsluzhennih zayavok: '<<Q<<''#10'';
cout<<'Absolyutnaya propusknaya sposobnost: '<<A<<''#10'';
cout<<'Srednee chislo zanyatih kanalov: '<<KolKan<<''#10''#10'';
end;
getch();
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.