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_);