VPF::[Pascal] сформировать квадратную матрицу порядка n

Shiroshimo

Дата 13.12.2010, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.12.2010

Репутация: нет
Всего: нет

Cформировать квадратную матрицу порядка n по заданному образцу:
1        n         1          n        ...      n
2       n-1       2         n-1      ...     n-1
3       n-2       3         n-2      ...     n-2
...       ...        ...         ...        ...      ...
n-1     2        n-1        2         ...      2
n        1          n         1         ...       1

помогите,пожалуйста!

darkart

Дата 13.12.2010, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Код


program MatrixGen;

const
  N = 8;{размерность матрицы}

type
  TMatrix = array[ 1..N, 1..N ] of integer;{тип матрица}

{процедура печати матрицы}
procedure PrintMatrix( var matrix : TMatrix );
var
  i, j : integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N - 1 do
      write( matrix[ i, j ], ' ' );
    writeln( matrix[ i, N ] );
  end;
end;

{процедура генерации матрицы}
procedure GenerateMatrix( var matrix : TMatrix );
var
  i, j : integer;
begin
  for j := 1 to N div 2 do{ N div 2 - парных столбцов, от 1 до N и от N до 1}
    for i := 1 to N do{для каждого элемента столбца}
    begin
      {нечетные столбцы - от 1 до N}
      {четные - от N до 1}
      matrix[ i, 2 * j - 1 ] := i;{заполняем элементы столбцов от 1 до N}
      matrix[ i, 2 * j ] := N - i + 1;{заполняем элементы столбцов от N до 1}
    end;
  if N mod 2 = 1 then{если остался незаполненный столбец}
    {заполняем его}
    for i := 1 to N do
      matrix[ i, N ] := i;
end;

var
  matrix : TMatrix;

begin
  GenerateMatrix( matrix );{генерация матрицы}
  writeln( 'Result matrix:' );
  PrintMatrix( matrix );{печать матрицы-результата}
  readln;{ожидание ввода}
end.

Elerond

Дата 13.12.2010, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 18.6.2007

Репутация: 2
Всего: 3

Или так:

Код


uses
  crt;
const
  n=10;
var
  i, j: word;
  x: array [1..n, 1..n] of word;
begin
  clrscr;
  for j:=1 to n do
    for i:=1 to n do
      if odd(j) then x[i, j]:=i else x[i, j]:=n-i+1;
  for i:=1 to n do begin
    for j:=1 to n do
      write(x[i, j]:3);
    writeln;
  end;
  readln;
end.

--------------------

Мой блог

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »