Матрица

[Лапуська]

Даны действительные числа a1, a2..., an, квадратная матрица A порядка n (n>=6). Получить матрицу B порядка n*(n+1), вставив в исходную матрицу между пятым и шестым столбцами новый столбец с элементами a1, a2,..., an

[Stilet]

Предлагаю так:

MODULE Matr;
IMPORT StdLog,ObxRandom;
CONST n=6;
VAR  
A:ARRAY(n) OF REAL;
a:ARRAY(n) OF ARRAY(n) OF REAL;
b:ARRAY(n+1) OF ARRAY(n) OF REAL;

PROCEDURE mas;
VAR i,j,e:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO e:=0;
  FOR j:=0 TO LEN(a[i])-1 DO
    a[i,j]:=50-ObxRandom.Uniform();
    StdLog.RealForm(a[i,j],5,2,0,' ');
    StdLog.Tab;
  END;
  A[i]:=50-ObxRandom.Uniform();
  StdLog.Ln;
 END;StdLog.Ln;
  FOR j:=0 TO LEN(A)-1 DO
    StdLog.RealForm(A[j],5,2,0,' ');
    StdLog.Tab;
  END;StdLog.Ln;
END mas;

PROCEDURE mas2;
VAR i,j,e:INTEGER;
BEGIN
 FOR i:=0 TO LEN(b)-1 DO 
  FOR j:=0 TO LEN(b[i])-1 DO
    IF i=5 THEN   b[i,j]:=A[j] ELSE 
      IF i<5 THEN  b[i,j]:=a[i,j] ELSE b[i,j]:=a[i-1,j]; END;
    END;
    StdLog.RealForm(b[i,j],5,2,0,' ');
    StdLog.Tab;
  END;
  StdLog.Ln;
 END;
END mas2;

PROCEDURE do*;
BEGIN
 StdLog.Clear;
 mas;StdLog.Ln;StdLog.Ln;mas2;
END do;

END Matr.
Matr.do;

Результ:

49.12 49.628 49.331 49.992 49.765 49.406
49.707 49.255 49.836 49.656 49.667 49.985
49.401 49.317 49.575 49.136 49.281 49.312
49.65 49.628 49.579 49.867 49.176 49.15
49.807 49.19 49.87 49.089 49.889 49.078
49.093 49.453 49.697 49.12 49.262 49.722

49.632 49.872 49.535 49.404 49.514 49.42


49.12 49.628 49.331 49.992 49.765 49.406
49.707 49.255 49.836 49.656 49.667 49.985
49.401 49.317 49.575 49.136 49.281 49.312
49.65 49.628 49.579 49.867 49.176 49.15
49.807 49.19 49.87 49.089 49.889 49.078
49.632 49.872 49.535 49.404 49.514 49.42
49.093 49.453 49.697 49.12 49.262 49.722

[Настька 123]

Спасибо за программу :-*