Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 02.06.2011, 15:35   #1 (permalink)
NamYola
Member
 
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Матрица. Как записать матрицу, составленную из трёх единичных матриц?

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

Сформулировать матрицу размером 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.
NamYola вне форума   Ответить с цитированием

Старый 02.06.2011, 15:35
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно вам будет полезно обратить внимание на эти топики

Ничего не изменилось после трёх переустановок Windows виснет
Стек: правильность расстановки скобок трёх типов: круглых, квадратных и фигурных
Обработка матриц. Паскаль
Обработка матриц

Старый 02.06.2011, 16:00   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от NamYola Посмотреть сообщение
Помогите пжлуста
Пжлуста:
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Старый 02.06.2011, 16:29   #3 (permalink)
NamYola
Member
 
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post

Спасиб,большое)выручили)
NamYola вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.