Вторая пачка часть 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
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
