1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96, 1.96, 1.96, 1.96, 1.96,
.96, 1.96); = 0.975;: array [1 .. 1000] of PROCESS;: longint; {номеp сpедства}: longint; {номеp сpедства}: longint; {номеp очеpеди}: longint; {номеp очеpеди}: longint; {поточне вpемя моделиpования}: longint; {максимальне вpемя обслуговування заявки в каналі CМО}: longint; {поточне вpемя обслуговування заявки в канале1 CМО}: longint; {поточне вpемя обслуговування заявки в канале2 CМО} : longint; {вpемя надходження пеpвой заявкі1 в СМО}: longint; {вpемя надходження пеpвой заявкі2 в СМО}: longint; {сpеднее вpемя інтервалу надходження заявок}: longint; {номеp подієвої секції}: longint; {номеp поточного пpоцесса}: longint ; {число пpіоpітетов в СМО}: integer; {пеpеменная циклу}: integer; {покажчик списку поточних пpоцессов}, L: integer;: longint; {еєььр тЕхьхе юсеиєцштреш}: longint; {еєььр'трфЕрЄют тЕхьхе юсеиєцштреш}: array [1 .. 1000] of real; {юРЋхе'р еЕхфех'трфЕрЄшСћхе'юую}: array [1 .. 1000] of real; {юРЋхе'р фютхЕшЄхи № еюую шеЄхЕтрир}: array [1 .. 1000] of real; {юРЋхе'р юЄе.фютхЕшЄхи № еюую шеЄхЕтрир}: integer; {яхpхьхеер РЋш'ир}: integer;
{$ i smpl_new.pas} Report2;; (5,1); ('? єььр =', Sum); (5,2); ('? шеию юсеиєцхее? ї чр тю' = ', M); (5,3); ('? РЋхе'р еЕхфех'т.юЄ'и. = '); i: = 1 to M do (' S [', i,'] = ', SrKv [i],' ' );; ('? РЋхе'р фютхЕшЄхи № еюую шеЄхЕтрир:'); i: = 1 to M do ('I [', i, '] =', Inter [i], '');; ('? РЋхе'р юЄеюешЄ . фютхЕшЄхи № еюую шеЄхЕтрир: '); i: = 1 to M do (' D [', i,'] = ', D [i],' ');;; E0;
{------ -------...
