VPF::[Pascal] Диагональ матрицы - Форум программистов

KuCa

Дата 27.12.2006, 19:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Дана квадратная матрица. Нужно найти в матрице диагональ(параллельную главной диагонали) сумма элементов которой минимальна.

Помогите пожалуйста бедной девушке. Завтра последний день сдачи, иначе без зачета останусь=((((((

Kuvaldis

Дата 27.12.2006, 21:59 (ссылка)

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

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

KuCa,

Код


program mass;

const
    MAX = 40;

Var
   matrix : Array [1..MAX, 1..20] of integer;
   n : integer;
   i, j : integer;
   min_sum, sum : integer;
   i_min, j_min : integer;

Begin
   Writeln('Input matrix size (max = ', max, ')');
   Readln(n);

   randomize;
   Writeln('Input elements');
   for i := 1 to n do
       for j := 1 to n do
          read(matrix[i, j]);
       

   // инициализация: считаем, что минимум - это первая нижняя диагональ
   // читаем ее сумму для дальнейших сравнений
   i_min := 2;    // запомнить координаты верхей позиции нужной диагонали
   j_min := 1;

   for j := 2 to n do
      min_sum := min_sum + matrix[j, j - 1];


  // смотрим диагонали под главной
   for i := 3 to n do
   begin
       sum := 0;
       for j := i to n do
           sum := sum + matrix[j, j - i + 1];

       if (sum < min_sum) then
       begin
          min_sum := sum;
          i_min := i;
          j_min := 1;
       end;
   end;

  // смотрим диагонали над главной
   for j := 2 to n do
   begin
       sum := 0;
       for i := j to n do
           sum := sum + matrix[i - j + 1, i];

       if (sum < min_sum) then
       begin
          min_sum := sum;
          i_min := 1;
          j_min := j;
       end;
   end;

   Writeln;
   Writeln('Diagonal');
   while ((i_min <= n) and (j_min <= n)) do
   begin
       write(matrix[i_min, j_min] : 4);
       Inc(i_min);
       Inc(j_min);
   end;

   Writeln;
   Writeln('Sum = ', min_sum);

   Writeln('Press any key to exit');   
   readln;
   readln;
end.

Это сообщение отредактировал(а) Kuvaldis - 27.12.2006, 22:00

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

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

KuCa

Дата 27.12.2006, 22:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо тебе большое. Теперь я не вылечу smile

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