бРНПЮЪ ОЮВЙЮ ВЮЯРЭ 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
хМДЕЙЯ
щКЕЛЕМРЮПМШЕ ТСМЙЖХХ
кХМЕИМШЕ СПЮБМЕМХЪ
мЕКХМЕИМШЕ СПЮБМЕМХЪ
яКСВЮИМШЕ ВХЯКЮ
