Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [pascal|алгоритм] матрица

Автор: bobik02 21.1.2010, 18:58

Есть задача:

Цитата

Дана квадратная матрица размером 5x5. Нужно найти среднее арифметическое наибольшего и наименьшего значений их элементов расположенных ниже главной диагонали.

Интересует:
Алгоритм как пробежаться по элементах ниже диагонали ?

Просто натолкните пожалуйста на мысль smile

Автор: bobik02 21.1.2010, 19:33

решенно сам сообразил:
если нужно строго ниже диагонали, тогда первый цикл стартует сразу со 2й строки,
а во втором граница по значению первого минус один... как то так

Автор: Dancer 21.1.2010, 19:50

int min =  0x7FFFFFFF;
int max =0x80000000;
for(int i=0; i<5; i++)
{
   for(int j=0; j<i; j++)
   {
       int tmp = a[i][j];
       if(tmp < min) min = tmp;
       if(tmp > max) max = tmp;
   }
}
double retValue = (min+max)/2;

бежим по строчкам, от первой строки до последней
  бежим по элементам в строчке, пока индекс столбца меньше индекса строчки

for i:= 1 to 5 do
  for j:= 1 to i do
  begin
    write('element[',i);
    write(',',j);
    writeln(']: ', A[i,j]);
  end;

Автор: bobik02 21.1.2010, 20:46

Ну если уж дело до кода дошло
вотЪ:

Код


Program Lab7;

uses crt;

const n=5; {m=5;}

var
 x        : array[1..n,1..n] of integer;
 i,j      : integer;
 min, max : integer;
 ser      : real;
Begin
 clrscr;
 randomize;


   {in}
   for i:=1 to n do for j:=1 to n do
   begin
    x[i,j]:=random(10);
   end;

   {out}
   for i:=1 to n do for j:=1 to n do
   begin
      write(x[i,j],' ');
      if j=5 then writeln('');
   end;

 writeln;

   {just do it}
   min:=x[2,1];
   max:=x[2,1];

   for i:=2 to n do for j:=1 to n do
   begin
     {diagonal}

     if i>j then
      begin
      {writeln(x[i,j]);}
       if min > x[i,j] then min:=x[i,j];
       if max < x[i,j] then max:=x[i,j];
      end;

   end;

ser:= (min+max)/2;
writeln('min=',min,' max=',max);
writeln('ser=',ser:2:2);

readln
End.