Создание матрицы

[dukesoteg]

Народ помогите тут задачка по двумерным массивам вродь и я их не оч понимаю кк решить =(

Получить квадратную матрицу порядка n:
1 0 0 ... 0 1
0 1 0 ... 1 0
. . . ... . .
0 1 0 ... 1 0
1 0 0 ... 0 1

[alex_8]

Не понял вопрос.
Напиши что тебе нужно сделать с этой матрицей?

[savva]

ну судя по всему ему нужно построить матрицу у которой везде нули,кроме диагоналей.ну значит.

для главной диагонали все просто

два цикла for i=0 to n do for j to n do и потом if i=j then a[i][j]=1 else a[i][j]=0;

а для второй диагонали судя по всему
for i=n downto 0 do for j=n downto 0 do if i=j then a[i][j]=1 else a[i][j]=0;

как мне кажется,если не прав то поправьте

[dukesoteg]

нужно создать ее т.е вывести на экран

[dukesoteg]

ну спасибо =)

[Grag]

dukesoteg, вот заполнение главной диагонали матрицы "1"...

FillChar(Mass,SizeOf(Mass),0);
for i:=1 to N do
  A[i,i]:=1;

Ну, а побочную диагональ уж постарайся сам заполнить...

[Grag]

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

два цикла for i=0 to n do for j to n do и потом if i=j then a[i][j]=1 else a[i][j]=0;

а для второй диагонали судя по всему
for i=n downto 0 do for j=n downto 0 do if i=j then a[i][j]=1 else a[i][j]=0;

А чем отличаются эти два цикла??? Только направлением счета...
Как говорится те же ...., только в профиль...

[savva]

точно.блин.тупое тоэ.(( крыша совсем поехала.

тогда не придумать

[Grag]

Побочную диагональ можешь так заполнить

for i:=N downto 1 do
  A[i,N-(i-1)]:=1;

Вот и все...

[savva]

как поднять репутацию тебе?