Дана квадратная матрица A(m на m) . Получить новую матрицу B

@Sabrinasever · Регистрация: 26.01.2010

Author24 — интернет-сервис помощи студентам

. Дана квадратная матрица . Получить новую матрицу B по правилу
A(i,j)/S если i>j
B(i,j)= 0 если i=j
S/A(i,j) если i<j
где S – произведение диагональных элементов матрицы A.

@кот Бегемот · 03.02.2010, 19:27

диагональных элементов

Всех? или главной диагонали?

@Sabrinasever · 03.02.2010, 19:36 **[ТС]**

там не указано в задании каких именно ,наверное всех

Добавлено через 3 минуты
если только главной диагонали то произведение элементов вроде так находится??????

Pascal

1	if i=j then S:=S*A[i,j]

@кот Бегемот · 03.02.2010, 19:40

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

там не указано в задании каких именно ,наверное всех

Добавлено через 3 минуты
если только главной диагонали то произведение элементов вроде так находится??????

Pascal

1	if i=j then S:=S*A[i,j]

нет, ещё проще:

Pascal

1
2
3

p:=1;
for i:=1 to 5 do
p:=p*a(i,i);

@Sabrinasever · 03.02.2010, 19:54 **[ТС]**

это произведение всех диагоналей?
или только главной?

@кот Бегемот · 03.02.2010, 19:58

это главной, а для обеих (главной и побочной):

Pascal

1
2
3

p:=1;
for i:=1 to 5 do
p:=p*a(i,i)*a(i,6-i);

@Sabrinasever · 03.02.2010, 20:02 **[ТС]**

а сдесь через процедуру или функцию находит матрицу В надо?

Добавлено через 1 минуту
или так можно сделать?

@кот Бегемот · 03.02.2010, 20:07

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

. Дана квадратная матрица . Получить новую матрицу B по правилу
A(i,j)/S если i>j
B(i,j)= 0 если i=j
S/A(i,j) если i<j
где S – произведение диагональных элементов матрицы A.

Pascal

var
a:array[1..30,1..30]of integer;
b:array[1..30,1..30]of real;
i,j,n:integer;
s:longint;
begin
randomize;
writeln('vvedite razmer matricy');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10)+1;
writeln('matrica a');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
s:=1;
for i:=1 to n do
s:=s*a[i,i]*a[i,n+1-i];
for i:=1 to n do
for j:=1 to n do
if i>j then b[i,j]:=a[i,j]/s else if i=j then b[i,j]:=0 else b[i,j]:=s/a[i,j];
writeln('matrica b');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:5:2,' ');
writeln;
end;
readln;
end.

@Sabrinasever · 03.02.2010, 20:12 **[ТС]**

Добавлено через 1 минуту
alexevt, ОГОРМНОЕ СПАСИБО ТЕБЕ)))

Добавлено через 2 минуты

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

a[i,j]:=random(10)+1;

а что обозначает эта запись?

@кот Бегемот · 03.02.2010, 20:19

так точнее:

Pascal

var
a:array[1..30,1..30]of integer;
b:array[1..30,1..30]of real;
i,j,n:integer;
s:longint;
begin
randomize;
writeln('vvedite razmer matricy');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10)+1;
writeln('matrica a');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
s:=1;
for i:=1 to n do
s:=s*a[i,i]*a[i,n+1-i];
for i:=1 to n do
for j:=1 to n do
if i>j then b[i,j]:=a[i,j]/s else if i=j then b[i,j]:=0 else b[i,j]:=s/a[i,j];
writeln('matrica b');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:8:6,' ');
writeln;
end;
readln;
end.

a[i,j]:=random(10)+1;

это значит, что матрица заполняется сама, случайными числами от 1 до 10

@Sabrinasever 0 / 0 / 0 Регистрация: 26.01.2010 Сообщений: 36
		1
	Дана квадратная матрица A(m на m) . Получить новую матрицу B 03.02.2010, 19:22. Показов 2003. Ответов 9 Метки нет (Все метки) . Дана квадратная матрица . Получить новую матрицу B по правилу A(i,j)/S если i>j B(i,j)= 0 если i=j S/A(i,j) если i<j где S – произведение диагональных элементов матрицы A. 0

@кот Бегемот Платежеспособный зверь 8924 / 4352 / 1642 Регистрация: 28.10.2009 Сообщений: 11,567
	03.02.2010, 19:27	2
	диагональных элементов Всех? или главной диагонали? 0

@Sabrinasever 0 / 0 / 0 Регистрация: 26.01.2010 Сообщений: 36
	03.02.2010, 19:54 [ТС]	5
	это произведение всех диагоналей? или только главной? 0

@Sabrinasever 0 / 0 / 0 Регистрация: 26.01.2010 Сообщений: 36
	03.02.2010, 20:02 [ТС]	7
	а сдесь через процедуру или функцию находит матрицу В надо? Добавлено через 1 минуту или так можно сделать? 0

@Sabrinasever 0 / 0 / 0 Регистрация: 26.01.2010 Сообщений: 36
	03.02.2010, 20:12 [ТС]	9
	Добавлено через 1 минуту alexevt, ОГОРМНОЕ СПАСИБО ТЕБЕ))) Добавлено через 2 минуты Сообщение от alexevt a[i,j]:=random(10)+1; а что обозначает эта запись? 0

	03.02.2010, 20:19

Опции темы