|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от MrSTEP
а к первой задаче задание не очень понятное, лучше картинкой приложи. Взяться за нее сейчас не смогу
|
Да там всё понятно, если малость дешифровкой позаниматься. Это вот что:
Цитата:
Сообщение от kazax
Дана действительная квадратная матрица a[i,j], где i,j=1....n . Получить две квадратные матрицы b[i,j] и c[i,j], где i,j=1...n, для которых:
b[i,j]=a[i,j] , если j=>i, и b[i,j]=-a[i,j], если j<i;
c[i,j]=a[i,j], если j<i, и c[i,j]=-a[i,j], если j=>i.
|
Элементарно:
Код:
const
n=8;
var
i,j:integer;
a,b,c:array[1..n,1..n] of real;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random*100-50;
WriteLn('Matrix A:');
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:8:3);
writeln;
end;
WriteLn('Press "Enter" to continue');
ReadLn;
for i:=1 to n do
for j:=1 to n do
If j>=i then b[i,j]:=a[i,j] else b[i,j]:=-a[i,j];
for i:=1 to n do
for j:=1 to n do
If j<i then c[i,j]:=a[i,j] else c[i,j]:=-a[i,j];
WriteLn('Matrix B:');
for i:=1 to n do
begin
for j:=1 to n do
Write(b[i,j]:8:3);
writeln;
end;
WriteLn('Press "Enter" to continue');
ReadLn;
WriteLn('Matrix C:');
for i:=1 to n do
begin
for j:=1 to n do
Write(c[i,j]:8:3);
writeln;
end;
ReadLn;
end.
Значение константы n можно, разумеется, поменять.
|