Реферат: Моделирование 2-х канальной системы массового обслуживания с отказами

VAR

CHANNAL1, CHANNAL2 : CHANNAL;{Каналы }

_T_, t, tc1, tc2 : TIME; {Время}

l1, l2, n1, n2 : INTENSITY; {Интенсивности }

served1, not_served1,

served2, not_served2,

S : STATISTICS; {Статистика}

M,N:INTEGER;{число реализаций}

FUNCTION W(t : TIME; l : INTENSITY) : boolean;{Определяет появилась ли заявка}

Begin {по интенсивности потока l}

if random < l/60 then W := TRUE else W := FALSE;

End;

FUNCTION F(t : TIME; n : INTENSITY) : TIME;{Определяет сколько будет обрабатываться заявка}

Begin {по интенсивности обслуживания заявок n}

F := t +round(60/(n));

End;

BEGIN

M:=0;

WRITELN('ВВЕДИТЕ ЧИСЛО РЕАЛИЗАЦИЙ РАБОТЫ СМО');

READLN(N);

REPEAT

M:=M+1;

writeln(M, '-ая реализация');

randomize;

CHANNAL1 := FREE; CHANNAL2 := FREE;

l1 := 3; l2 := 1; n1 := 2; n2 := 1;

served1 := 0; not_served1 := 0;

served2 := 0; not_served2 := 0;

write('Введите время исследования СМО - Т: '); readln(_T_);