Таким образом, актуальным является вопрос
Таким образом, актуальным является вопрос об отыскании оптимального решения при наличии противоречивых требований, т.е. налицо оптимизационная многокритериальная модель.
Визуально проиллюстрировать формирование очереди поможет следующая программа.
Рис. 7.58. w1 = 10, w2 = 8 (кризис приближается)
Рис. 7.59. wl = 10, w2 = 10 (кризис наступил)
Программа 153.
Имитационное моделирование очереди
Program Bank;
Uses Graph, Crt;
Var Gm, Gd, P, X, Qq, I, T, V : Integer; St : String[1O];
Begin
Qq := 0; P := 6; V := 2; Randomize; DetectGraph(Gd, Gm);
InitGraph(Gd, Gm, ' ');
SetColor(2); RectAngle(300, 100, 500, 300); Т
:- 0;
Repeat
Т
:= Т + 1; Str(T, St); SetTextStyle(0, 0, 1) ;
SetColor(4); OutTextXY(600, 50, St); X := Random(ll) ;
If X < P Then Qq := Qq + 1; SetColor(15) ;
For I := 0 To Qq Do Circle(490 - I * 30, 200, 15);
Delay(1000); SetColor(0);
For I := 0 To Qq Do Circle(490 - I * 30, 200, 15);
If T Mod V = О
Then Begin
Qq := Qq - 1; If Qq < 0 Then Qq :- 0; Setcolor(15) ;
For I := 0 To Qq Do Circle(490 - I * 30, 200, 15);
End;
SetColor(O); OutTextXY(600, 50, St)
Until KeyPressed Or (Qq > 15); ReadLn;
End.
Содержание Назад Вперед
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий