# Вторая пачка часть 191

ВСЕ СТОЛБЦЫ ПОДПИСЫВАЮТСЯ ПРИ ПОМОЩИ МАССИВА MINER. НА КАЖДЫЙ СТОЛБЕЦ ДЛЯ ПОДПИСИ ОТВОДИТСЯ 3 ПО¬ЗИ¬ЦИИ В ЭТОМ МАССИВЕ. ;) VAR J,K1,Z,I:INTEGER; BEGIN J := 1; IF N1 > 13 THEN K1 := N1 DIV 2 ELSE K1 := N1; WRITELN (LST); WRITE (LST,' '); REPEAT FOR I:=J TO K1 DO WRITE (LST,MINER[I]:8); WRITELN(LST,' '); FOR I := 1 TO N DO BEGIN WRITE (LST,MINER[I]:4); FOR Z:=J TO K1-1 DO WRITE (LST,A[I,Z]:8:2); WRITELN (LST,A[I,K1]:8:2); END; J := K1+1; K1:= K1*2+1; IF K1>N1 THEN K1 := N1; WRITELN (LST,' ****** '); WRITE (LST,' '); UNTIL J>K1; END; (;** ТЕКСТ ОСНОВНОЙ ПРОГРАММЫ**;) BEGIN LON := 0; IF PR=1 THEN ASSIGN (LST,'LPT1') ELSE ASSIGN (LST,'C:\BURCOV'); REWRITE (LST); ASSIGN (FF,START); RESET (FF); {ЧТЕНИЕ ПОЯСНЕНИЙ К ПРИМЕРУ} FOR I := 1 TO 3 DO BEGIN STRNG := ' '; READLN (FF,STRNG); WRITELN (LST,STRNG); END; STRNG := ' '; READLN (FF,STRNG); K := 1; I := 1; REPEAT MNR := ''; MNR := COPY(STRNG,K,3); STR(I:3,XCOL[I]); MINER[I] := MNR; INC (I); INC(K,3); UNTIL I>N; WRITELN(LST,' '); WRITELN(LST,' **** ****'); WRITELN(LST,' '); FOR I := 1 TO N DO WRITE (LST,MINER[I]); WRITELN(LST,' '); WRITELN(LST,' '); 50: TEXTCOLOR (14); TEXTBACKGROUND (10); CLRSCR; WRITELN (LST); WRITELN (LST, ' *****************'); WRITELN (LST,' N= ',N:4,'; M= ',M:4); WRITELN (LST, ' **********'); IF LON=0 THEN BEGIN WRITE (' ВВЕДИТЕ ДЛИНУ СТРОКИ '); READLN (A1); FOR J :=1 TO N DO SI[J] :=0; SX := SI; SC := SI; FOR I := 1 TO M DO BEGIN FOR J :=1 TO A1 DO IF J<=N THEN READ (FF,SX[J]) ELSE READ (FF,SUM); FOR J :=1 TO N DO BEGIN IF ABS(SX[J])<EPS THEN SX[J]:= 0.001; IF ABS(1.0-SX[J])<EPS THEN SX[J] := 1.001; SI[J]:= SX[J] + SI[J]; RRC[I,J] := SX[J]; END; END; (; РАСЧЕТ КОРРЕЛЯЦИОННОЙ ФУНКЦИИ ;) FOR I := 1 TO N DO SS[I] := SI[I] / (M-1); WRITE(LST,'****** КОРРЕЛЯЦИОННАЯ ФУНКЦИЯ ****'); PRINTR (N,SS); CORR(N,M,RRC,RRCC); РRINTR2 (N,RRCC,MINER); CLOSE (FF); IF LON=0 THEN INC (LON); END ELSE INC (LON); IF LON >1 THEN BEGIN FOR I:= 1 TO N DO FOR J := 1 TO N DO RRC[I,J] := RRCC[I,J]; CORR (N,N,RRC,RRCC); END; A := RRCC; AA:= RRCC; {**** РАСЧЕТ СОБСТВЕННЫХ ВЕКТОРОВ И СОБСТВЕННЫХ ЗНА¬ЧЕ¬НИЙ МАТРИЦЫ А ПО МЕТОДУ ХАУСХОЛДЕРА С ИС¬ПОЛЬ¬ЗО¬ВА¬НИ¬ЕМ АЛГОРИТМОВ ИЗ СПРАВОЧНИКА ****} TRED1 (N,EPS,A,SI,SC,SX); Y := SC; TQL1 (N,EPS,SI,SC,AA); SC:=Y; TRBAK (N,1,N,A,SC,AA); WRITELN (LST,'*** СОБСТВЕННЫЕ ЗНАЧЕНИЯ***'); PRINTR (N,SI); X := SI; SUM := 0

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа