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

MGorelkin

Дата 26.3.2007, 21:25 (ссылка)

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

Загрузка ...

Новичок

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

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

3)Дана матрица A(N,N), состоящая из случайных элеметов. Все элементы строки и столбцы матрицы на пересечении которой находится максимальныйй элемент умножить вдвое.

koder

Дата 26.3.2007, 23:11 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


const 
  n = 10;
var
  a: array[1..N,1..n] of Integer;
  max,i,j,row,col : Integer;
begin
...
  max := A[1,1];
  row := 1;
  col := 1;
  for i := 1 to n do
    for j : =1 to n do
      begin
        if A[i,j] > max then
          begin
            max := A[i,j];
            row := i;col :=j;
          end;     
     end;
   for i := 1 to n do
    A[row,i] := A[row,i]*2;
   for i := 1 to n do
    A[i,col] := A[i,col]*2;
...
end;

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

THE TRUTH IS OUT THERE

volvo877

Дата 27.3.2007, 10:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

koder, а ничего, что при этом сам максимальный элемент увеличится в 4 раза?

koder

Дата 27.3.2007, 11:21 (ссылка)

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

Загрузка ...

Бывалый

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

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

тогда так..

Код



const 
  n = 10;
var
  a: array[1..N,1..n] of Integer;
  i,j,row,col,max : Integer;
begin
...
  max := A[1,1];
  row := 1;
  col := 1;
  for i := 1 to n do
    for j : =1 to n do
      begin
        if A[i,j] > max then
          begin
            max := A[i,j];
            row := i;col :=j;
          end;     
     end;

  Writeln('Max: ',max);
  Writeln('Stolbec: ',col);
Writeln('Stroka: ',row);
   for i := 1 to n do
       A[row,i] := A[row,i]*2;
    for i := 1 to n do
   if i <> col then
      A[i,col] := A[i,col]*2;
...
end;

Это сообщение отредактировал(а) koder - 27.3.2007, 13:35

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

THE TRUTH IS OUT THERE

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