VPF::Замена каждого элемента главной диагонали массива

Metalex

Дата 11.11.2008, 14:25 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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

Здравствуйте. У меня загвоздка: нужно заменить в каждом рядке элемент главной диагонали на максимальный элемент рядка. Что то не так с этим куском:

Код


w:=1; e:=1; r:=1;
for i:=1 to 4 do
begin 
      for j:=1 to 4 do
      begin
           if B[i,j]>B[q,w] then begin q:=i; w:=j; end;
           if i=j then begin e:=i; r:=j; end;
      end;
 t:=B[q,w];
 B[q,w]:=B[e,r];
 B[e,r]:=t;
end;

Вместо нормальной замены, числа меняются как-то спонтанно. В чем дело?
Смотрел еще в этой теме, но не помогло smile

. Спасибо.

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

Don't let the system get you down.

volvo877

Дата 11.11.2008, 17:54 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(Metalex @ 11.11.2008, 13:25

)

Вместо нормальной замены, числа меняются как-то спонтанно. В чем дело?

У тебя слишком много лишних переменных, ты в них просто запутался:

Код

...
  for i := 1 to 4 do begin
    { Для каждой строки делаем следующее: }
    mj := 1;
    for j := 2 to 4 do
      if B[i, j] > B[i, mj] then mj := j; { Ищем индекс максимума }

    { и меняем макс. элемент местами с главно-диагональным }
    t := B[i, mj];
    B[i, mj] := B[i, i];
    B[i, i] := t;
  end;
...

Этого достаточно...

Metalex

Дата 11.11.2008, 21:26 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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

volvo877, вроде все правильно, я действительно немного запутался, работает уже лучше, но по-прежнему не так, как надо... Я уже не знаю, что делать smile

Добавлено через 4 минуты и 52 секунды
А все, понял smile

. там end пропущено smile

Код


...
  for i := 1 to 4 do begin
    { Для каждой строки делаем следующее: }
    mj := 1;
    for j := 2 to 4 do
      if B[i, j] > B[i, mj] then mj := j; { Ищем индекс максимума }
    end;
    { и меняем макс. элемент местами с главно-диагональным }
    t := B[i, mj];
    B[i, mj] := B[i, i];
    B[i, i] := t;
  end;
...

Спасибо!

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

Don't let the system get you down.

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