Сформировать квадратную матрицу

nastia18 · 22.01.2011, 21:30

сформировать квадратную матрицу порядка N по заданному образцу:
1 2 3 . . . n
n n-1 n-2 . . . 1
1 2 3 . . . n
n n-1 n-2 . . . 1
. . . . .
. . . . .
. . . . .
n n-1 n-2 . . . 1
http://cs10661.vkontakte.ru/u1273235...y_09fcef45.jpg

Vladimir_S · 24.01.2011, 14:24

Цитата:

Сообщение от nastia18

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

Код:

CONST
 Nmax=9;
VAR
 A:Array[1..2*Nmax,1..2*Nmax] of Byte;
 i,j:Integer;
 N:Byte;
BEGIN
 Write('N/2 (1..9) = ');
 ReadLn(N);
 for i:=1 to N do
  for j:=1 to 2*N do
   begin
    A[2*i-1,j]:=j;
    A[2*i,j]:=2*N-j+1;
   end;
 for i:=1 to 2*N do
  begin
   for j:=1 to 2*N do
    Write(A[i,j]:4);
   writeln;
  end;
 readln;
END.

22.01.2011, 21:30	#1 (permalink)
nastia18 Новичок Регистрация: 22.01.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	сформировать квадратную матрицу порядка N по заданному образцу: 1 2 3 . . . n n n-1 n-2 . . . 1 1 2 3 . . . n n n-1 n-2 . . . 1 . . . . . . . . . . . . . . . n n-1 n-2 . . . 1 http://cs10661.vkontakte.ru/u1273235...y_09fcef45.jpg

22.01.2011, 21:30
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Зачастую на форуме создаются много аналогичных тем Где купить матрицу для ноутбука? ASUS F3T: нет изображения на матрицу Купить матрицу для ноутбука

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070