VPF::[Delphi] Помогите с матрицей - Форум программистов

volnorez

Дата 12.10.2008, 18:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста с такой задачей. я уже просто не знаю что делать smile

В двумерном массиве 4х4 найти сумму самых больших элементов в столбце.
кто знает как это сделать если можна с коментариями

kemiisto

Дата 12.10.2008, 18:25 (ссылка)

(голосов:2)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

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

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

Код


program Project1;

{$APPTYPE CONSOLE}

var
  A: array[1..4, 1..4] of Integer;
  i, j, S, max: Integer;

begin
  //Заполняем массив случайными числами
  Randomize;
  for i := 1 to 4 do
    for j := 1 to 4 do
      A[i, j] := Random(100);
  //Выводим массив на экран
  for i := 1 to 4 do
  begin
    Writeln;
    for j := 1 to 4 do
      Write(A[i, j]:3);
  end;
  Writeln;
  //Обнуляем сумму
  S := 0;
  //В цикле по j будем:
  //- выводить значение очередного максимума в столбце (для контроля)
  //- и прибавлять его к сумме
  for j := 1 to 4 do
  begin
    max := A[1, j];
    for i := 2 to 4 do
      if A[i, j] > max then
        max := A[i, j];
    Write(max, ' ');
    S := S + max;
  end;
  Writeln;
  //Выводим сумму
  Writeln(S);
  Readln;
end.

Ключевой момент:

Код


  for j := 1 to 4 do
  begin
    max := A[1, j];
    for i := 2 to 4 do
      if A[i, j] > max then
        max := A[i, j];
    Write(max, ' ');
    S := S + max;
  end;

Смысл таков: внешний цикл (индекс j) - пробежит по всем столбцам, найдёт максимальный элемент, выведет его для контроля и добавит к сумме. Внутренний цикл (индекс i) нужен для поиска максимального элементам в j-ом столбце. Сначала переменной max присваивается значение элемента A[1, j] (т.е. элемента, находящегося на пересечении 1 строки и j-ого столбца). Затем это значение сравнивается в цикле по i от 2 до 4 со значение A[i, j] (т.е. со значениями элементов, находящихся на пересечении i-ой строки и j-ого столбца). Таким образом и находится максимум в каждом столбце.

P.S. Сижу в очередной раз пересматривую бессмертную трилогию Братьев Вачовски и тут тема с таким заголовком ("Помогите с матрицей") smile

. Чуть не поперхнулся. Можно было бы написать в ответ: "Следуй за белым кроликом!". smile

Но, уж ладно...

Это сообщение отредактировал(а) kemiisto - 12.10.2008, 18:49

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

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

volnorez

Дата 12.10.2008, 20:15 (ссылка)

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

Загрузка ...

Новичок

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

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

теперь понял Большое спасибо!!!!

Alexeis

Дата 12.10.2008, 20:31 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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