What do the commas in a formula mean in Pascal?
What do these commas mean in the formula written in Pascal, since I'm learning Python, so I don't understand what it means
pn:=step(lam/muo,n)/step(2.718,lam/muo)
The code looks like this
program Model;
uses crt;
var
mx,lam,muo,lp,m,kd,gam,n,kv,i: longint;
ns,s,mui,ksi,k,pn,rr,rn,ir,d,g,l,tot,tob,t,ist,isg,Var1,per,x,y: real;
ch:char;
function step(a,b:real):real;
var x: real;
begin
x:=exp(ln(a)*b);
step:=x;
end;
begin
clrscr;
writeln('Интенсивность потока необработанных документов на входе');
write('системы обработки информации LAM =');
readln(lam);
writeln('Интенсивность обработки документов в каждом канале MUO =');
readln(muo);
writeln('Интенсивность изъятия документов из фонда MUI = ');
readln(mui);
write('Интенсивность обращения каждого внешнего пользователя с запросом LP =');
readln(lp);
write('Число внешних пользователей М =');
readln(m);
writeln('Среднее время задержки внешним пользователем документа при');
write('его получении GAM = ');
readln(gam);
write('06щее количество документов в фонде MX = ');
readln(mx);
write('Площадь фонда, необходимая для хранения одного документа S=');
readln(s);
writeln('Количество сотрудников, необходимое для подготовки и хранения');
write('одного документа NS =');
readln(ns);
writeln('Haжмите любую клавишу...');
repeat until keypressed;
ch:=readkey;
if ch=#0 then ch:=readkey;
clrscr;
writeln('LAM=',lam,'MUO=',muo);
ksi:=lam/muo;
n:=1;
while ksi>=l do
begin
n:=n+1;
ksi:=ksi/n;
end;
writeln('Число каналов обработки информации, необходимое для стационарного');
write('режима работы=');
writeln(n);
readln;
k:=lam/muo;
write('Cpeднee число занятых каналов обработки информации=');
writeln(k:10:4);
readln;
pn:=step(lam/muo,n)/step(2.718,lam/muo);
for kv:=2 to n do pn:=pn/kv;
rr:=1/step(2.718,lam/muo);
for kv:=1 to n do
begin rn:=step(lam/muo,kv)/step(2.718,lam/muo);
for i:=1 to kv do rn:=rn/i;
rr:=rr+rn;
end;
pn:=pn/(rr+pn*ksi/(1-ksi));
ir:=pn*ksi/step(1-ksi,2);
writeln('Cpeднee число необработанных документов, находящихся в');
write('"очереди" на обработку"');
writeln(ir:10:4);
readln;
d:=ir*(-ir+(1+ksi)/(1-Ksi));
write('Дисперсия числа документов в очереди=');
writeln(d:10:4);
readln;
g:=sqrt(d);
write('Среднee квадратическое отклонение числа документов в очереди=');
writeln(g:10:4);
readln;
l:=ir+k;
0
2 answers
Commas separate the arguments of the step
function.
2
Author: Igor, 2020-10-04 13:25:31
function step(a,b:real):real;
Step-function with two arguments
step(2.718, lam/muo)
Calling a function with two arguments
3
Author: vp_arth, 2020-10-04 13:26:46