Получить квадратную матрицу по правилу

31.03.2014, 13:57. **Показов** 1212. **Ответов** 2

Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка n:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}a_1 & a_2 & a_3 &\ldots & a_{n-2} & a_{n-1} & a_n\\a_2 & a_3 & a_4 &\ldots & a_{n-1}& a_n & a_1\\a_3 & a_4 & a_5 &\ldots & a_n & a_1 & a_2\\\vdots & \vdots & \vdots & \ddots & \vdots & \vdots & \vdots\\a_{n-1} & a_n & a_1 &\ldots & a_{n-4}& a_{n-3} & a_{n-2}\\a_{n} & a_1 & a_2 &\ldots & a_{n-3}& a_{n-2} & a_{n-1}\\\end{pmatrix}$

Заранее спасибо.

@Puporev · 31.03.2014, 14:18

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    b:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i])
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then b[i,j]:=a[j+i-1]
    else b[i,j]:=a[i+j-n-1];
    write(b[i,j]:3);
   end;
  writeln;
 end;
end.

@Cyborg Drone · 31.03.2014, 14:22

Вариант:

Pascal

const m = 10;
var a: array [1..m] of integer;
    b: array [1..m, 1..m] of integer;
    i, j, n: integer;
begin
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  writeln('Enter numbers:');
  for i := 1 to n do
    begin
      write(i:2, ': ');
      readln(a[i])
    end;
  writeln('Result:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          b[i, j] := a[(i + j - 2) mod n + 1];
          write(b[i, j]:8)
        end;
      writeln
    end;
  readln
end.

Получить квадратную матрицу по правилу

Решение

Решение

Psihikos
		1
	Получить квадратную матрицу по правилу 31.03.2014, 13:57. Показов 1212. Ответов 2 Метки нет (Все метки) Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка n: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}a_1 & a_2 & a_3 &\ldots & a_{n-2} & a_{n-1} & a_n\\a_2 & a_3 & a_4 &\ldots & a_{n-1}& a_n & a_1\\a_3 & a_4 & a_5 &\ldots & a_n & a_1 & a_2\\\vdots & \vdots & \vdots & \ddots & \vdots & \vdots & \vdots\\a_{n-1} & a_n & a_1 &\ldots & a_{n-4}& a_{n-3} & a_{n-2}\\a_{n} & a_1 & a_2 &\ldots & a_{n-3}& a_{n-2} & a_{n-1}\\\end{pmatrix}$ Заранее спасибо.

Опции темы