Дипломная работа: Методы приближённого решения матричных игр

if matr [ i , j ]<>0 then nol := false ; {Установка флага, что не все элементы равны 0}

if matr [ i , j ]<0 then otr := true ; {Установка флага наличия отрицательных элементов}

if matr [ i , j ]< min then min := matr [ i , j ]; {Определение минимального элемента}

end

end else begin {Иначе берем матрицу из константы}

n:=3;m:=3;

for i:=1 to m do for j:=1 to n do matr[i,j]:=matr1[i,j];

end;

clrscr;

writeln ('Итеративный метод Брауна-Робинсона.');

if nol then writeln ('Все элементы матрицы равны 0!') else begin {если установлен флаг нуля, то алгоритм не работает}

if otr then for j:=1 to n do for i:=1 to m do matr[i,j]:=matr[i,j]-min; { если есть отрицательные элементы ,}

writeln('Начальная матрица:'); {Вывод окончательной матрицы}

for j:=1 to n do begin

for i:=1 to m do write(matr[i,j]:4);

writeln;

end;

write ('Какой игрок начнет игру? '); {Вод стартовых значений}

readln(pl);

write ('Какую стратегию выберет ',pl,' игрок? ');

readln(st);

write ('Количество итераций? ');

readln(kl);

a:=1; {заглавие таблицы}

writeln (' № стр. выигрыш 1-го игр. стр. выигрыш 2-го игр. V W Y');

repeat

write(a:2,st:6,' '); {формирование таблицы: номер итерации, стратегия 1игр.}

if pl=2 then begin

for i:=1 to n do begin