Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2009, 14:33   #1
aks
Пользователь
 
Аватар для aks
 
Регистрация: 03.02.2009
Сообщений: 44
Печаль помогите с массивами в delphi

Дана матрица размером m*n, определить количество и координаты особых элементов матрицы. Элемент считается особым, если он больше суммы остальных элементов своего столбца и при этом в его строке слева от него находятся элементы меньше него, а справа больше него.
а то я что-то ничего понять не могу
aks вне форума Ответить с цитированием
Старый 04.02.2009, 14:59   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А что именно не ясно? Как массив заполнять или как получать сумму элементов столбца?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.02.2009, 15:07   #3
aks
Пользователь
 
Аватар для aks
 
Регистрация: 03.02.2009
Сообщений: 44
По умолчанию

Элемент считается особым, если он больше суммы остальных элементов своего столбца
aks вне форума Ответить с цитированием
Старый 04.02.2009, 15:16   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну так проблема то в чем?
Ты давай конкретно говори а не код проси
Если навскидку то вот пример:
Код:
   var a:array[1..10,1..10] of integer;
   sum:array[1..10] of integer;
   q,w:integer;
begin
 for q:=1 to 10 do begin
  for w:=1 to 10 do begin
   a[q,w]:=random(100);
   sum[w]:=sum[w]+a[q,w];
  end;
 end;
 for q:=1 to 10 do begin
  for w:=1 to 10 do begin
   if sum[q]<a[w,q] then // Элемент особенный
  end;
 end;

  { TODO -oUser -cConsole Main : Insert code here }
end.
I'm learning to live...

Последний раз редактировалось Stilet; 04.02.2009 в 15:22.
Stilet вне форума Ответить с цитированием
Старый 04.02.2009, 15:31   #5
aks
Пользователь
 
Аватар для aks
 
Регистрация: 03.02.2009
Сообщений: 44
По умолчанию

вывести индекс особого элемента в поле memo1
aks вне форума Ответить с цитированием
Старый 04.02.2009, 15:34   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
вывести индекс особого элемента в поле memo1
Ну и как ты думаеш это сделать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.02.2009, 15:49   #7
aks
Пользователь
 
Аватар для aks
 
Регистрация: 03.02.2009
Сообщений: 44
По умолчанию

memo.lines.add('особый элемент a['.....']='....)
aks вне форума Ответить с цитированием
Старый 04.02.2009, 15:59   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Логично, только не забудь превращать индексы массива из числа в строку (intToStr) и результат
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с массивами (Delphi) Naper214 Помощь студентам 2 18.11.2008 16:16
Работа с массивами в Delphi mifodiy Помощь студентам 1 03.06.2008 05:48
помогите с массивами Ibmsystem Помощь студентам 1 21.04.2008 08:10
Помогите с массивами Юль_кА Паскаль, Turbo Pascal, PascalABC.NET 2 10.04.2008 08:39