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

0; WRITELN (LST,' '); WRITELN (LST,' *** СОБСТВЕННЫЕ ВЕКТОРЫ ***'); FOR I :=1 TO N DO SUM := SUM+X[I]; FOR I:=1 TO N DO SC[I]:= X[I]/SUM*100; PRINTR (N,SC); XMIN:=0.0; WRITELN (LST,' '); WRITELN(LST,'***СУММА ВКЛАДОВ В ОБРАТНОМ ПОРЯДКЕ **'); FOR I:=N DOWNTO 1 DO BEGIN XMIN:= XMIN + X[I]/SUM*100; SC[N+1-I] := XMIN; IF XMIN<90 THEN IMAX:=N+2-I; END; PRINTR (IMAX,SC); WRITELN (LST,' '); { РАСЧЕТ ЗНАЧЕНИЙ ФАКТОРОВ И СОБСТВЕННЫХ ВЕКТОРОВ } FOR I := 1 TO N DO BEGIN J := N+1-I; SC[J] := X[I]; FOR K := 1 TO N DO A[K,J] := AA[K,I]; END; X:= SC; AA:= A; FOR I := 1 TO N DO FOR J :=1 TO N DO BEGIN AA[J,I] := AA[J,I] * SQRT (X[I]); SVEC[I,J]:=AA[J,I]; END; WRITELN (LST,'*** СОБСТВЕННЫЕ ВЕКТОРА ***'); PRINTR2 (IMAX,AA,XCOL); WRITELN (LST,' '); {**** ОПРЕДЕЛЕНИЕ МАТРИЦЫ, ОБРАТНОЙ ДАННОЙ ******} GAUSS (N,AA,A); {********* ГРАФИКА *********** В ПРОЦЕДУРЕ INITGRAPH (GRAPHDRIVER,GRAPHMODE,'…') СЛЕ¬ДУ¬ЕТ УКАЗАТЬ ПОЛНЫЙ ПУТЬ ДЛЯ ГРАФИЧЕСКОГО ДРАЙВЕРА } GRAPHDRIVER:=DETECT; INITGRAPH(GRAPHDRIVER,GRAPHMODE,'...’); IF GRAPHRESULT <> GROK THEN HALT (1); SETBKCOLOR (WHITE); SETCOLOR (BLUE); SETLINESTYLE (SOLIDLN,0,NORMWIDTH); {*********** ВЫВОД ГРАФИКА **********} SETFILLSTYLE (0,1); DN := FALSE; CHX:=' '; CHY:=' '; REPEAT BAR (0,0,GETMAXX-1,GETMAXY-1); OUTTEXTXY (GETMAXX DIV 2,GETMAXY DIV 2, 'ДЛЯ ВЫХОДА НАЖМИТЕ ПРОБЕЛ ...'); OUTTEXTXY (GETMAXX DIV 2,GETMAXY -20, ' BВЕДИТЕ НОМЕР ФАКТОРА ПО X:'); CHX:=READKEY; IF CHX<>' ' THEN BEGIN OUTTEXTXY(GETMAXX-30,GETMAXY - 20,CHX); OUTTEXTXY (GETMAXX DIV 2+22*8, GETMAXY -10,'PO Y:'); CHY:=READKEY; IF CHY<>' ' THEN OUTTEXTXY (GETMAXX-30,GETMAXY - 10,CHY); BAR (0,0,GETMAXX-1,GETMAXY-1); IF CHY<> ' ' THEN GRAFIK (CHY,CHX,J); IF J<>0 THEN BEGIN OUTTEXTXY (GETMAXX DIV 3, GETMAXY DIV 2, 'ВЫ ОШИБЛИСЬ ПРИ ВВОДЕ!'); OUTTEXTXY (GETMAXX DIV 3,GETMAXY DIV 2 + 10, 'ПОВТОРИТЕ ЗАНОВО ВВОД ФАКТОРОВ ! '); CHX := READKEY; END ; {FACTOR} (; ЕСЛИ НАДО РАСПЕЧАТАТЬ НА ПРИНТЕРЕ ГРАФИКУ, КОТОРУЮ ВЫ ВИДИТЕ НA ЭКРАНЕ, ТО НАДО УБРАТЬ ЗНАКИ КОММЕНТАРИЯ В СЛЕДУЮЩЕЙ ВЫПОЛНЯЕМОЙ СТРОКЕ

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