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

Цитата:
Сообщение от Egor1Mozi Посмотреть сообщение
Построить новую матрицу, элементы которой есть произведение данной матрицы на среднее арифметическое из элементов, находящихся выше побочной диагонали.
Да уж - воистину "задача века".
Код:
Const
 A:Array[1..4,1..4] of Real=((0.7,-12, 6, 3),(1, 2,-1,-8),
                             ( -3,  4, 5, 0),(5,-7, 0, 4));
Var
 i,j,k:byte;
 Ar_Mean:Real;

Begin
 writeln('Initial matrix:');
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    write(A[i,j]:8:2);
   writeln;
  end;
 writeln;
 k:=0;
 Ar_Mean:=0;
 for i:=1 to 3 do
  for j:=1 to 4-i do
   begin
    Ar_Mean:=Ar_Mean+A[i,j];
    k:=k+1;
   end;
 Ar_Mean:=Ar_Mean/k;
 writeln('Arithmetic mean = ',Ar_Mean:0:5);
 writeln;
 writeln('New matrix:');
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    begin
     A[i,j]:=A[i,j]*Ar_Mean;
     write(A[i,j]:8:2);
    end;
   writeln;
  end;
 Readln
End.
Изображения
 
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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