Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите пожалуйста с решением задачи на языке Паскаль (http://www.tehnari.ru/f41/t96691/)

Egor1Mozi 31.05.2014 22:07

Помогите пожалуйста с решением задачи на языке Паскаль
 
Построить новую матрицу,
элементы которой есть произведение
данной матрицы на среднее арифметическое
из элементов, находящихся выше побочной
диагонали.
Код:

0.7 -12  6  3

 1  2  -1  -8

-3  4    5  0

 5  -7    0  4


Vladimir_S 01.06.2014 10:37

Вложений: 1
Цитата:

Сообщение от Egor1Mozi (Сообщение 1036590)
Построить новую матрицу, элементы которой есть произведение данной матрицы на среднее арифметическое из элементов, находящихся выше побочной диагонали.

Да уж - воистину "задача века".
Код:

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.


Egor1Mozi 01.06.2014 13:34

Спасибо большое


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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.