Многоканальная система массового обслуживания

Program lol;
uses crt;
var l,n,k:integer;
out:text;
a,b,c,e,w,p,j,o,q,v,z,x,d,t:real;
function f(k:real):real;
begin if (k=0) or (k=1)
then f:=1
else f:=f(k-1)*k;
end;
Function stepen(A, B: Real): Real;
{Возведение А в степень В}
begin
if A > 0 then
stepen:= Exp(B*Ln(A)) else if A<0 then
stepen:= Exp(B*Ln(Abs(A))) else if B=0 then
stepen:= 1 else
stepen:= 0;
end;
begin
clrscr;
{Создадим и откроем файл}
assign(out,'Shahbanov.txt'); rewrite(out);
write(out, '| n | c | e | w | P | b | o | v ');
write(out,'| Q | A | K | Z | X |');
{Введем входящие данные}
writeln('Число каналов');
read(n);
writeln('Ввод входящего потока');
read(c);
writeln('Ввод обслуживания');
read(e);
writeln('Ввод потоков выходов');
read(w);
{Идет расчет}
{Коэффициент нагрузки системы}
p:=c/e;
{Приведенный поток уходов}
b:=w/e;
{Вероятность того что все каналы свободны}
t:=stepen(p,n) / f(n);
o:=stepen(t,-1);
{Вероятность в отказе обслуживания}
v:=o+stepen(p,n)/f(n);
{Относительная пропускная способность}
q:=1-0;
{Абсолютная пропускная способность}
a:=c*q;
{Среднее число заявок в очереди}
j:=c/e;
x:=(c-j)/w;
{Среднее число занятых потоков}
z:=p-b;
{Выходные данные в файл}
writeln(out,'');
write(out,n,c:8:0,e:8:0,w:8:0,p:8:3,b:8:3);
write(out,o:8:3,v:8:3,q:8:3,a:8:3,j:8:3);
write(out,z:8:3,x:8:3);
{Закрытие файла}
close(out);
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, System, Windows, Crt32;
 var l,n,k:integer;
 out:text;
 a,b,c,e,w,p,j,o,q,v,z,x,d,t:real;
 function f(k:real):real;
 begin if (k=0) or (k=1)
 then f:=1
 else f:=f(k-1)*k;
 end;
 Function stepen(A, B: Real): Real;
 {Âîçâåäåíèå À â ñòåïåíü Â}
 begin
 if A > 0 then
 stepen:= Exp(B*Ln(A)) else if A<0 then
 stepen:= Exp(B*Ln(Abs(A))) else if B=0 then
 stepen:= 1 else
 stepen:= 0;
 end;
 
 { Ôóíêöèÿ ïåðåêîäèðîâêè ANSI-ñòðîêè â ASCII-ñòðîêó,
  ïîçâîëÿåò âûäàâàòü ñîîáùåíèÿ â êîíñîëüíîì ïðèëîæåíèè íà ðóññêîì ÿçûêå }
function Rus(mes: string): string;
var
  i: byte;
begin
  for i := 1 to length(mes) do
  case mes[i] of
    'À' .. 'ï': mes[i] := Chr(Ord(mes[i]) - 64);
    'ð' .. 'ÿ': mes[i] := Chr(Ord(mes[i]) - 16);
           '¨': mes[i] := #240;
           '¸': mes[i] := #241;
           '¹': mes[i] := #252;
  end;
  Rus := mes;
end;
 
begin
  // Ïåðåêëþ÷åíèå îêíà êîíñîëè íà êîäîâóþ ñòðàíèöó CP1251 (Win-1251).
  // Åñëè ïîñëå ïåðåêëþ÷åíèÿ ðóññêèå áóêâû ïîêàçûâàþòñÿ íåâåðíî,
  // ñëåäóåò îòêðûòü ñèñòåìíîå ìåíþ êîíñîëüíîãî îêíà - ùåë÷êîì ìûøè â ëåâîì
  // âåðõíåì óãëó îêíà êîíñîëè è âûáðàòü: Ñâîéñòâà -> çàêëàäêà "Øðèôò" ->
  // âûáðàòü øðèôò "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
 
 clrscr;
 {Ñîçäàäèì è îòêðîåì ôàéë}
 assign(out,'Shahbanov.txt'); rewrite(out);
 write(out, '| n | c | e | w | P | b | o | v ');
 write(out,'| Q | A | K | Z | X |');
 {Ââåäåì âõîäÿùèå äàííûå}
 writeln(Rus('×èñëî êàíàëîâ'));
 read(n);
 writeln(Rus('Ââîä âõîäÿùåãî ïîòîêà'));
 read(c);
 writeln(Rus('Ââîä îáñëóæèâàíèÿ'));
 read(e);
 writeln(Rus('Ââîä ïîòîêîâ âûõîäîâ'));
 read(w);
 {Èäåò ðàñ÷åò}
 {Êîýôôèöèåíò íàãðóçêè ñèñòåìû}
 p:=c/e;
 {Ïðèâåäåííûé ïîòîê óõîäîâ}
 b:=w/e;
 {Âåðîÿòíîñòü òîãî ÷òî âñå êàíàëû ñâîáîäíû}
 t:=stepen(p,n) / f(n);
 o:=stepen(t,-1);
 {Âåðîÿòíîñòü â îòêàçå îáñëóæèâàíèÿ}
 v:=o+stepen(p,n)/f(n);
 {Îòíîñèòåëüíàÿ ïðîïóñêíàÿ ñïîñîáíîñòü}
 q:=1-0;
 {Àáñîëþòíàÿ ïðîïóñêíàÿ ñïîñîáíîñòü}
 a:=c*q;
 {Ñðåäíåå ÷èñëî çàÿâîê â î÷åðåäè}
 j:=c/e;
 x:=(c-j)/w;
 {Ñðåäíåå ÷èñëî çàíÿòûõ ïîòîêîâ}
 z:=p-b;
 {Âûõîäíûå äàííûå â ôàéë}
 writeln(out,'');
 write(out,n,c:8:0,e:8:0,w:8:0,p:8:3,b:8:3);
 write(out,o:8:3,v:8:3,q:8:3,a:8:3,j:8:3);
 write(out,z:8:3,x:8:3);
 {Çàêðûòèå ôàéëà}
 close(out);
 end.