Сформировать квадратную матрицу порядка n по заданному образцу

@Nemo2007 · Регистрация: 08.01.2014

Author24 — интернет-сервис помощи студентам

Приветствую всех.
Помогите пожалуйста решить задачку.

Задание: Сформировать квадратную матрицу порядка 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

Заранее огромное спасибо!

@ermolay · 08.01.2014, 10:12

Pascal

  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=i else
        a[i,j]:=n-i+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;

@Nemo2007 · 08.01.2014, 10:15 **[ТС]**

Огромное спасибо.
Не сочтите за наглость, но не могли бы вы написать полностью код программы?

@ermolay · 08.01.2014, 11:47

Pascal

var
  a: array[1..20,1..20] of integer;
  n,i,j: integer;
begin
  repeat
    write('Enter N: ');
    readln(n);
  until n in [1..20];
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=i else
        a[i,j]:=n-i+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

@Nemo2007 · 09.01.2014, 06:29 **[ТС]**

Низкий поклон вам ) Спасибо =)

@Nemo2007 0 / 0 / 0 Регистрация: 08.01.2014 Сообщений: 8
		1
	Сформировать квадратную матрицу порядка n по заданному образцу 08.01.2014, 09:43. Показов 4585. Ответов 4 Метки нет (Все метки) Приветствую всех. Помогите пожалуйста решить задачку. Задание: Сформировать квадратную матрицу порядка 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 Заранее огромное спасибо! 0

@Nemo2007 0 / 0 / 0 Регистрация: 08.01.2014 Сообщений: 8
	08.01.2014, 10:15 [ТС]	3
	Огромное спасибо. Не сочтите за наглость, но не могли бы вы написать полностью код программы? 0

@Nemo2007 0 / 0 / 0 Регистрация: 08.01.2014 Сообщений: 8
	09.01.2014, 06:29 [ТС]	5
	Низкий поклон вам ) Спасибо =) 0

Опции темы