|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
02.06.2011, 15:35 | #1 (permalink) |
Member
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Матрица. Как записать матрицу, составленную из трёх единичных матриц?
Сформулировать матрицу размером 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. |
02.06.2011, 15:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно вам будет полезно обратить внимание на эти топики Ничего не изменилось после трёх переустановок Windows виснет Стек: правильность расстановки скобок трёх типов: круглых, квадратных и фигурных Обработка матриц. Паскаль Обработка матриц |
02.06.2011, 16:00 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пжлуста:
Код:
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. |
02.06.2011, 16:29 | #3 (permalink) |
Member
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасиб,большое)выручили)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|