Реферат: Имитационная модель интеллектуального агента в условиях конкуренции

imaxim:=J;

JMAX:=I;

END

END_LOOP

Подсчет остатков и объема упущенных продаж

IF balance[imaxim]>=CRITER[2][I] DO

balance[imaxim]:=balance[imaxim]-CRITER[2][I];

QuanBuy[imaxim][JMAX]:=1;

LOST_clients[imaxim]:=FALSE;

END

ELSIF balance[imaxim]<CRITER[2][I] DO

DISPLAY("Товара НЕТ на %d !!!\n",imaxim);

LOST_clients[imaxim]:=TRUE;

dem[imaxim]:=dem[imaxim]+CRITER[2][I];

END

END

END_LOOP

FOR J FROM 1 TO ss

REPEAT

f := f + QuanBuy[1][J];# подсчет количества покупателей 1 фирмы

END_LOOP

FOR J FROM 1 TO ss

REPEAT

f2 := f2 + QuanBuy[2][J];# подсчет количества покупателей 2 фирмы

END_LOOP

FOR J FROM 1 TO ss

REPEAT

f3 := f3 + QuanBuy[3][J];# подсчет количества покупателей 3 фирмы

END_LOOP