Реферат Комп'ютерне моделювання графічного рішення матричних ігор

Integer;: array [1 .. 10,1 .. 10] of integer;, y, k1, k2, z0, z1: ​​array [1 .. 10] of '; St [11]: = '1'; st [12]: = '2 '; [13]: = '3'; st [14]: = '4 ';; (',> Рѓ € А € ... С’Р‚ ‡ РЉ ... С’РЊР‹ Сљ ‡ А "А-€: 1 - 2xN, 2 - Mx2 '); ('1 -> 2 x N '); ('2 -> M x 2'); (c);; c = 1 then (',, € "€ ... N:' ); read (n); clrscr; (',, € "€ ... Я <А ... †" С› РЉР‚ А € - : '); i: = 1 to 2 doj: = 1 to n do ('a [', i, ',', j, '] ='); readln (Mat [i, j]);;; j: = 1 to n do [j]: = mat [1, j]-mat [2, j]; [j]: = mat [2, j];; ('€ ѓђЋЉ B | € ѓђЋЉ A'); ('---------- ------------------------- '); j: = 1 to n do (' ', j,' | ', k1 [j], 'X1 + (', k2 [j], ')');; j: = 1 to n do [j]: = k2 [j]; [j]: = k1 [j] + k2 [j];; : = z0 [1]; zj0: = 1; j: = 2 to n dominZ0> z0 [j] then begin minZ0: = z0 [j]; zj0: = j; end;;: = z1 [1]; zj1 : = 1; j: = 2 to n dominZ1> z1 [j] then begin minZ1: = z1 [j]; zj1: = j; end;; (k2 [zj0] <> k2 [zj1]) or ( k1 [zj0] <> k1 [zj1]) then: = ((k2 [zj1]) - (k2 [zj0]))/((k1 [zj0]) - (k1 [zj1]));: = k1 [zj1] * XXX + k2 [zj1]; minz1> minz0 then xxx: = 1xxx: = 0;;: = k1 [zj1] * XXX + k2 [zj1]; yyy ЕР€ал:', YYY: 2:2); (''); ('РЊ | В¬ Е⥠«оРЋго Є В® ЇЄг В¤ В«п Їа В® В¤ ®« | Г Еп '); readkey;: = Detect; (Gd, Gm,''); GraphResult < ;> grOk Then Halt (1), (2); (168,305, 'X1 = 0'); (352,305, 'X1 = 1'); (200,100,200,400); (350,100,350,400); (190,300,360,300);: = 120; i: = 1 to 14 do (345, yy, 355, yy); (195, yy, 205, yy); yy> 300 then OutTextXY (358, yy-3, '-'); (366, yy-3 , st [i]); yy> 300 then OutTextXY (180, yy-3, '-'); (187, yy-3, st [i]);: = yy +20;;: = abs (trunc ( 150 * xxx));: = abs (trunc (20 * yyy)); (5); j: = 1 to n do: = 20 * z0 [j];: = 20 * z1 [j]; (200,300 - q0 ,350,300-q1); (5 + j);; (2); i: = 1 to 3 do (200 + wx ,300-wy, i); n> = 1 then begin setcolor (5); OutTextXY ( 10,100, 'line - 1'); end; n> = 2 then begin setcolor (6); OutTextXY (10,110, 'line - 2'); end; n> = 3 then begin setcolor (7); OutTextXY (10,120, 'line - 3'); end; n> = 4 then begin setcolor (8); OutTextXY (10,130, 'line - 4'); end; n> = 5 then begin setcolor (9); OutTextXY (10,140, ​​'line - 5 '); end; n> = 6 then begin setcolor (10); OutTextXY (10,150,' line - 6 '); end; n> = 7 then begin setcolor (1...