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

write(win_one[a,i]:4); { вывод на экран }

end;

st1:=igr_one; {определение ответной стратегии 2 игр.}

gotoxy(32,wherey);

write ( st 1:10,' '); {вывод на экран}

for i:=1 to m do begin

win_two[a,i]:=matr[i,st1]+win_two[a-1,i]; { формирование матрицы выигрышей 2 игр .}

write(win_two[a,i]:4); { вывод на экран }

end;

gotoxy(64,wherey);

write ( win _ one [ a , st 1]:4); {вывод наибольшего суммарного выигрыша 1 игр.}

st:=igr_two; {определение ответной стратегии 1 игр.}

write(win_two[a,st]:4); {вывод наибольшего суммарного выигрыша 2 игр.}

write((win_one[a,st1]+win_two[a,st])/(a*2):6:2); { приближенное значение цены игры }

end

else

begin

for i:=1 to m do begin

win_one[a,i]:=matr[i,st]+win_one[a-1,i]; { формирование матрицы выигрышей 1 игр .}

write(win_one[a,i]:4);

end;

st1:=igr_one; {определение ответной стратегии 2 игр.}

gotoxy(32,wherey);

write(st1:10,' ');

for i:=1 to n do begin

win_two[a,i]:=matr[st1,i]+win_two[a-1,i]; { формирование матрицы выигрышей 2 игр .}

write(win_two[a,i]:4);

end;

gotoxy(64,wherey);