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

END

END_LOOP

QuBu[J][I]:=k;

END_LOOP

END_LOOP

# Выбор покупателем наиболее подходящей фирмы

FOR I FROM 1 TO ss

REPEAT

# если итоговые показатели всех фирм одинаковы, то выбирается первая встречная, на которой есть необходимое количество товара.

IF (QuBu[1][I]=QuBu[2][I]) AND (QuBu[1][I]=QuBu[3][I])

AND (QuBu[1][I]<>0)

DO LOOP <ch>

FOR J FROM 1 TO g

REPEAT

# подсчет остатков и выявление упущенных клиентов

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

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

QuanBuy[J][I]:=1;

LOST_clients[J]:=FALSE;

EXIT <ch>;

END

END_LOOP <ch>

END

ELSIF (QuBu[1][I]<>QuBu[2][I]) OR (QuBu[1][I]<>QuBu[3][I])

DO

maxim:=0;

FOR J FROM 1 TO g

REPEAT

IF QuBu[J][I]>maxim DO