Стохастические игры

o:=abs(i+z);[i,j,k]:=matis[j,k]+ver[1]*v[o];

end;;;;;;TForm1.Button1Click(Sender: TObject);.Cells[0,0]:='A/B';.Cells[0,1]:='A1';.Cells[0,2]:='A2';.Cells[1,0]:='B1';.Cells[2,0]:='B2';[1]:=strtofloat(stringgrid1.Cells[0,0]);[2]:=1-ver[1];:=strtoint(edit1.Text);:=strtoint(edit2.text);.RowCount:=kol;.RowCount:=kol;.RowCount:=kol;i:=1 to kol do begin.Cells[0,i-1]:='x'+inttostr(i);.Cells[0,i-1]:='y'+inttostr(i);.Cells[0,i-1]:='v'+inttostr(i);;i:=1 to kol do begin[i]:=0;;i:=1 to 2 do beginj:=1 to 2 do[i,j]:=strtoint(stringgrid2.Cells[i,j]);;i:=1 to kol do begin(kol,c,{v});j:=1 to kol do begin[j]:=(g[j,1,1]*g[j,2,2]-g[j,2,1]*g[j,1,2])/(g[j,1,1]+g[j,2,2]-g[j,2,1]-g[j,1,2]);;;(kol,c,{v});:=1; j:=0;(j<=3) and (i<=4) do begin.Cells[1,j]:=floattostr((g[i,2,2]-g[i,1,2])/(g[i,1,1]+g[i,2,2]-g[i,2,1]-g[i,1,2]));.Cells[2,j]:=floattostr((g[i,1,1]-g[i,2,1])/(g[i,2,2]+g[i,1,1]-g[i,2,1]-g[i,1,2]));.Cells[1,j]:=floattostr((g[i,2,2]-g[i,2,1])/(g[i,1,1]+g[i,2,2]-g[i,2,1]-g[i,1,2]));.Cells[2,j]:=floattostr((g[i,1,1]-g[i,1,2])/(g[i,2,2]+g[i,1,1]-g[i,2,1]-g[i,1,2]));(i);(j);;i:=1 to kol do.Cells[1,i-1]:=floattostr(v[i]);

end;.