Технический форум - Матрица. Как записать матрицу, составленную из трёх единичных матриц?

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

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

- - Матрица. Как записать матрицу, составленную из трёх единичных матриц? (http://www.tehnari.ru/f43/t52586/)

NamYola

02.06.2011 15:35

Матрица. Как записать матрицу, составленную из трёх единичных матриц?

Здравие,всем)

Сформулировать матрицу размером Nx3N, составленную из трех единичных квадратных матриц размером NxN.

Вот,единичную матрицу вывел,а дальше не могу записать её в матрицу n*3n.Помогите пжлуста

const
n=3;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if i=j then a[i,j]:=1
else a[i,j]:=0;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln;
end.

Vladimir_S

02.06.2011 16:00

Цитата:

Сообщение от NamYola (Сообщение 531039)

Помогите пжлуста

Пжлуста:

Код:

const

 n=5;

var

 a:array[1..n,1..n] of integer;

 b:array[1..n,1..n*3] of integer;

 i,j,k:integer;

begin

 for i:=1 to n do

  for j:=1 to n do

   if i=j then a[i,j]:=1

   else a[i,j]:=0;

 for i:=1 to n do

  begin

   for j:=1 to n do

    write(a[i,j]:3);

   writeln;

  end;

 writeln;

 for i:=1 to n do

  for j:=1 to n do

   for k:=0 to 2 do

    b[i,j+k*n]:=a[i,j];

 for i:=1 to n do

  begin

   for j:=1 to n*3 do

    write(b[i,j]:3);

   writeln;

  end;

 readln;

end.

NamYola

02.06.2011 16:29

Спасиб,большое)выручили)

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