Технический форум - Паскаль. Получить квадратную матрицу порядка N

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Паскаль. Получить квадратную матрицу порядка N (http://www.tehnari.ru/f43/t106696/)

игорек36

03.02.2016 18:55

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

получить квадратную матрицу порядка n по заданному образцу
1 2 n-1 n
n+1 n+2 ... 2n-1 2n
2n+1 2n+2 ... 3n-1 3n
. . . . .
. . . .
. . . . .
(n-1)n+1 . n2-1 n2

:star2: на паскале нужно написать, экзамен не поставят без этого, помогите друзья

игорек36

03.02.2016 19:03

Вложений: 1

Вложение 263335 1111

Vladimir_S

03.02.2016 19:19

Да ладно, живите, сейчас нарисую. Папиросу только выкурю.

Vladimir_S

03.02.2016 19:31

Пожалуйста. Делов-то на три минуты...

Код:

Const

 Nmax=10;



Var

 i,j,n:Byte;

 A:Array[1..Nmax,1..Nmax] of Byte;



Begin

 Write(' n (<=',Nmax,') = ');

 Readln(n);

 for i:=1 to n do

  begin

   for j:=1 to n do

    begin

     A[i,j]:=(i-1)*n+j;

     write(A[i,j]:4);

    end;

   writeln;

  end;

 Readln

End.

игорек36

03.02.2016 19:55

спасибо огромное век не забуду)))))))))

Часовой пояс GMT +4, время: 19:57.