ПОТРІБНО ВИКОНАТИ ПРОГРАМУ ТА ВІДПОВСТИ НА ЗАПИТАННЯ

Tpr Table Q$OchC 0,10,50

Puass Fvariable 50#Fn$Expon

Gauss Fvariable 8+2#Fn$Norma

Expon Function Rn1 C24

0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915

.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52

.94,2.81/.95,2.99/.96,3.2/.97,3.5/.98,3.9/.99,4.6

.995,5.3/.998,6.2/.999,7/1,8

Ravnm Function Rn1,C2

0,5/1,8

Norma Function Rn1 C25

0,-5/.00003,-4/.00135,-3/.00621,-2.5/.02275,-2

.06681,-1.5/.11507,-1.2/.15866,-1/.21186,-.8/.2725,-.6

.34458,-.4/.42074,-.2/.5,0/.57296,.2/.65542,.4

.72575,.6/.78814,.8/.84134,1/.88493,1.2/.93319,1.5

.97725,2/.99379,2.5/.99865,3/.99997,4/1,5

Generate V$Gauss

Och1 Queue OchA,1

Seize KanA 

Depart OchA,1

Advance 20,6

Release KanA 

Transfer .2,,Och1 

Split 1,Och3 

Och2 Queue OchB,1 

Seize KanB 

Depart OchB,1 

Advance V$Gauss

Release KanB 

Transfer .25,Kontr,Och2 

Och3 Queue OchC,1 

Seize KanC 

Depart OchC,1 

Advance V$Puass

Release KanC 

Transfer .25,Kontr,Och3 

Kontr Assemble 2 

Och4 Queue OchD,1 

Seize KanD 

Depart OchD,1 

Advance Fn$Ravnm

Release KanD

Tabulate Tpr,1

Terminate 

Generate 1440

Terminate 1