# бРНПЮЪ ОЮВЙЮ ВЮЯРЭ 189

опнжедспю пю╛ан╛рю╛ер б цпютхвеяйнл пефхле, онщрнлс опх гюосяйе опн╛же╛дс╛пш якедсер сйюгюрэ онкмши осрэ й цпютхвеяйнлс дпюи╛бе╛пс. рхо дпюибепю нопедекъеряъ юбрнлюрхвеяйх. цпю╛тхй ярпнхряъ б нрмняхрекэмшу йннпдхмюрюу б гю╛бх╛ях╛лнярх нр пюгпеьемхъ лнмхрнпю ;) LABEL CONT; VAR FX, FY, J: INTEGER; BEGIN VAL (FACTX,FX,JF); IF JF=0 THEN VAL (FACTY,FY,J) ELSE GOTO CONT; IF J <> 0 THEN BEGIN JF := J; GOTO CONT; END; MNR := 'F'+FACTX; GMX:= GETMAXX; GMY := GETMAXY; LINE (GMX DIV 2,1,GMY DIV 2,GMY-10); LINE (1,GMY DIV 2,GMX-10,GMY DIV 2); A1 := GMX DIV 2 - 2; A2 := A1 + 4; DY := GMY DIV 20; FOR I := 1 TO 20 DO BEGIN LINE (A1,I*DY,A2,I*DY); END; OUTTEXTXY (A2+2,0,MNR); MNR := 'F'+FACTY; A1 := GMY DIV 2 - 2; A2 := A1 + 4; DX := GMX DIV 20; DELTA := GMX DIV 2 - DX*10; FOR I:= 1 TO 20 DO BEGIN LINE (I*DX+DELTA,A1,I*DX+DELTA,A2); END; OUTTEXTXY (GMX-28,A2+2,MNR); A1 := GMX DIV 2; A2 := GMY DIV 2; FOR I := 1 TO N DO BEGIN A3 := TRUNC (SVEC[FX,I]*10); XI := A1+DX*A3+DELTA; A3 := TRUNC (SVEC[FY,I]*10); YI := A2 - DY*A3; IF YI<=14 THEN INC(YI,14); IF XI>GETMAXX-16 THEN DEC (XI,8); OUTTEXTXY (XI-8,YI,MINER[I]); END; CH := READKEY; CONT: END; {$F+} PROCEDURE рRED1 (N:INTEGER; TOL:REAL; VAR A:MAS1; VAR D,E,E2:MAS); (; опхбедемхе яхллерпхвеяйни люрпхжш ю й рпеу╛дх╛ю╛цн╛мюкэ╛мни тнпле я онлныэч опенапюгнбюмхъ уюсяункдепю я хяонкэгнбюмхел кхьэ дхюцнмюкэмшу х онд╛дх╛ю╛цн╛мюкэ╛мшу щкелемрнб. бяъ люрпхжю ю гюохяюмю б люяяхбе ю[1:N, 1:N]. дхюцнмюкэмше щкелемрш пегскэрхпсчыеи люр╛пхжш мюйюокхбючряъ б люяяхбе D[1:N], ю онд╛дх╛ю╛цн╛мюкэ╛мше б онякедмху N-1 ъвеийюу люяяхбю е [1:N]. (щке╛лемр е [1] = 0). щкелемрш е2 [I] пюбмш е [I]; е2 [I]. рнкэ╛йн мхфмъъ рпесцнкэмюъ вюярэ люяяхбю ю янблеярмн я люя╛яхбнл е хяонкэгсеряъ б опнжедспе TRBAK1; б мху ян╛деп╛фхряъ хмтнплюжхъ н опенапюгнбюмхх уюсяункдепю. бепу-мхи рпесцнкэмши люяяхб х цкюбмюъ дхюцнмюкэ люр╛пх╛жш ю янупюмъчряъ аег хглемемхи ;) LABEL 10; VAR I, J, K, L : INTEGER; F, G, H : REAL; BEGIN FOR I :=1 TO N DO D[I] := A[I,I]; FOR I := N DOWNTO 1 DO BEGIN L := I-1; H := 0

хМДЕЙЯ
щКЕЛЕМРЮПМШЕ ТСМЙЖХХ кХМЕИМШЕ СПЮБМЕМХЪ мЕКХМЕИМШЕ СПЮБМЕМХЪ яКСВЮИМШЕ ВХЯКЮ