1); OutTextXY (10,160,' line - 7 '); end; (3); OutTextXY (10,30,' Exit-[Esc] '); (255,50, '2 x N'); readkey;;; c = 2 then; (',, ... "€ ... M: '); read (n); clrscr; (',, €" € ... Я <А ... †Ќ С› РЉР‚ А € - : '); clrscr; i: = 1 to n doj: = 1 to 2 do (' a [', i,', ', j,'] = '); readln (Mat [i , j]);;; i: = 1 to n do [i]: = mat [i, 1]-mat [i, 2]; [i]: = mat [i, 2];; ('€ ѓђЋЉ B | € ѓђЋЉ A '); (' ----------------------------------- '); i: = 1 to n do ('', i, '|', k1 [i], 'Y1 + (', k2 [i], ')');; i: = 1 to n do [i]: = k2 [i]; [i]: = k1 [i] + k2 [i];; ('РЊ | В¬ Е⥠«оРЋго Є В® ЇЄг ¤« п Їа В® В¤ В® В«| Г Еп ');;: = z0 [1]; zj0: = 1; j: = 2 to n dominZ0 k2 [zj1]) or (k1 [zj0] <> k1 [zj1]) then: = ((k2 [zj1]) - (k2 [zj0]) )/((k1 [zj0]) - (k1 [zj1]));: = k1 [zj1] * XXX + k2 [zj1]; minz1 minz0 then: = 0;: = minz0;; yyy> minz1 then: = 1;: = minZ1;; (''); ('y1 * =', XXX: 2 : 2); ('y2 * =', (1-xxx): 2:2); ('-Г ЕР€ал:', YYY: 2:2); ( ''); ('РЊ | В¬ Е⥠«оРЋго Є В® ЇЄг ¤« п Їа В® В¤ В® В«| Г Еп '); readkey;: = Detect; (Gd, Gm,''); GraphResult <> grOk Then Halt (1), (2); (168,305,' Y1 = 0 '); (352,305,' Y1 = 1 '); (200,100,200,400); (350,100,350,400); (190,300,360,300);: = 120, (2); 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;; (5); i: = 1 to n 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 (11); OutTextXY (10,160, 'line - 7'); end; (3); OutTextXY (10,30, 'Exit-[Esc]' ); OutTextXY (255,50, 'M x 2'); readkey;
End;;.
6. РЕЗУЛЬТАТ ТЕСТУВАННЯ ПРОГРАМИ