VPF::[pascal|алгоритм] матрица - Форум программистов

bobik02

Дата 21.1.2010, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 451
Регистрация: 26.11.2007

Репутация: 3
Всего: 14

Есть задача:

Цитата

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

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

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

--------------------

Have a nice day

bobik02

Дата 21.1.2010, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 451
Регистрация: 26.11.2007

Репутация: 3
Всего: 14

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

--------------------

Have a nice day

Dancer

Дата 21.1.2010, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 537
Регистрация: 29.4.2005
Где: Nizhniy Novgorod

Репутация: 4
Всего: 37

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;

--------------------

У программистов есть великая тайна: всё, что только можно, было давно кем-то когда-то написано. Разработчику только нужно знать в какое место кода какие строчки вставить! smile

bobik02

Дата 21.1.2010, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 451
Регистрация: 26.11.2007

Репутация: 3
Всего: 14

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

Код


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.

--------------------

Have a nice day

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »