Вторая пачка часть 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 ЭКРАНЕ, ТО НАДО УБРАТЬ ЗНАКИ КОММЕНТАРИЯ В СЛЕДУЮЩЕЙ ВЫПОЛНЯЕМОЙ СТРОКЕ
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
