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

НАЙДЕННЫЕ ВЕКТОРЫ ЗАПИСЫВАЮТСЯ НА МЕСТО СТА¬РЫХ. ПОДДИАГОНАЛЬНЫЕ ЭЛЕМЕНТЫ ТРЕХДИАГОНАЛЬНОЙ МАТ¬РИЦЫ НАХОДЯТСЯ В МАССИВЕ Е [1:N], А ЭЛЕМЕНТЫ МАТРИЦЫ ПРЕ¬ОБРАЗОВАНИЯ ОБРАЗУЮТ НИЖНИЙ ТРЕУГОЛЬНИК МАССИВА А [1:N, 1:N]. ТАКОЕ РАЗМЕЩЕНИЕ ГАРАНТИРУЕТСЯ ПРОЦЕДУРОЙ TRED1. ЕСЛИ ВЕКТОРОМ Z ОБОЗНАЧИТЬ ПРОИЗВОЛЬНЫЙ СТОЛБЕЦ РЕ¬ЗУЛЬТИРУЮЩЕЙ МАТРИЦЫ Z, ТО ОН ОБЯЗАТЕЛЬНО БУДЕТ УДОВЛЕТВОРЯТЬ УСЛОВИЮ ZХZ=Z(INPUT)ХZ(INPUT) ;) VAR I,J,K,L : INTEGER; H,S : REAL; BEGIN FOR I := 2 TO N DO IF E[I]<>0 THEN BEGIN L := I-1; H := E[I]*AZ[I,I-1]; FOR J := M1 TO M2 DO BEGIN S := 0.0; FOR K := 1 TO L DO S := S + AZ[I,K]*ZA[K,J]; S := S/H; FOR K := 1 TO L DO ZA[K,J] := ZA[K,J] + S*AZ[I,K]; END; END; END; {$F+} PROCEDURE PRNGRAF (FACTX,FACTY:CHAR; VAR JF: INTEGER); (; ПРОЦЕДУРА, ОРГАНИЗУЮЩАЯ ВЫВОД НА ПЕЧАТЬ ИЛИ НА ДРУГОЕ ПРЕДУСМОТРЕННОЕ ВЫВОДНОЕ УСТРОЙСТВО (ФАЙЛ, ЭКРАН) ГРАФИКА РАСПОЛОЖЕНИЯ ПАРАМЕТРОВ В ФАКТОРНЫХ ОСЯХ. В ГЛАВНОМ МОДУЛЕ ДАННАЯ СТРОКА СТОИТ ПОД КОММЕНТАРИЕМ. ДЛЯ ВКЛЮЧЕНИЯ ЕЕ В РАБОТУ СЛЕДУЕТ ТОЛЬКО УБРАТЬ КОММЕНТАРИЙ. НИКАКИХ ДОПОЛНИТЕЛЬНЫХ ИЗМЕНЕНИЙ НЕ ТРЕБУЕТСЯ. СТРОКА ВЫВОДА ФОРМИРУЕТСЯ ИЗ УСЛОВИЯ НАЛИЧИЯ ШИРОКОЙ ПЕЧАТИ, Т.Е. 132 ЗНАКА В СТРОКЕ. ЕСЛИ ПЕЧАТАЮЩЕЕ УСТРОЙСТВО ИМЕЕТ 90 ЗНАКОВ, ТО ДАННАЯ ПРОЦЕДУРА НЕ МОЖЕТ БЫТЬ ИСПОЛЬЗОВАНА ;) CONST A1 = 'I'; A2 = ' '; A3 = '-'; A4 = '/'; A5 = '\'; A6 = '>'; A7 = '.'; A8 = '*'; S1 = ' '; LABEL CONT; VAR SX,SY :ARRAY[1..N] OF REAL; X :ARRAY[1..102] OF REAL; Y: ARRAY [1..52] OF REAL; STX:ARRAY[1..102]OF STRING [1]; I,J,FX,FY,K,K1,KX,KM,KK,KMN,IND:INTEGER; MNR : STRING [1]; MIN : ARRAY [1..30] OF STRING [1]; BEGIN VAL (FACTX,FX,JF); IND := 0; IF JF=0 THEN VAL (FACTY,FY,J) ELSE GOTO CONT; IF J <> 0 THEN BEGIN JF := J; GOTO CONT; END; FOR I :=1 TO N DO BEGIN SX[I] := SVEC [FX,I]; SY[I] := SVEC [FY,I]; END; FOR I := 1 TO 101 DO X[I] := I / 50.0 - 1.0; FOR I := 1 TO 51 DO Y[I] := 1

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