Помощь - Поиск - Пользователи - Календарь
Полная версия: Нахождения максимального и минимального столбца
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
noki
у меня есть матрица из 3 строк и 4 столбцов, как мне найти минимальный и максимальный столбец и вывести их???
Elisei
максимальній по какому параметру? сумма? среднее значение столбца или по какому параметру?
noki
по сумме чисел в них
volvo
noki, как описать матрицу - смотришь здесь:
FAQ: Как задать матрицу, чтобы ...

Потом проходишь по всем столбцам, находишь столбец с минимальной суммой, и с максимальной... Выводишь на печать...
noki
а как мне пройти по всем столбац и найти макс и мин столбы, вот это меня и интересу no1.gif ет... сорри если глупый вопрос, но с паскалем у меня туго...
Ozzя
min:=a[1,1];
for i:=1 to n do
for j:=1 to m do
begin
  if a[i,j] < min then min:=a[i,j]; нашли минимум и присвоили
  minNomerStroki:=i;
  minNomerStolbtsa:=j;
  запомнили номера строки и столбца с мин. элементом
end;
volvo
noki, если ЗА ТЕБЯ все время будут решать задания, от этого твои знания НЕ улучшатся...
mad.gif
noki
а мне и не нужно знание паскаля, это промежуточный этап, который не как не будет связан с моей дальнейщей работой, так что если не трудно все же напиши плз мне очень надо...
noki
Мне надо не макс и мин элемент, А НАДО: найти СТОЛБЦЫ в котором сумма элементов максимальна и минимальна, и присвоить им значения max и min, а не то что мне посоветовал ozzя!
noki
Тут вот понаписали, а вообще на сколько я знаю тут он найдет минимальный элемент в матрице, И КОИМ ОБРЗОМ это относится к моему заданию???


min:=a[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j] < min then min:=a[i,j]; нашли минимум и присвоили
minNomerStroki:=i;
minNomerStolbtsa:=j;
запомнили номера строки и столбца с мин. элементом
end;
volvo
noki,
Ты бы поаккуратнее выражения выбирал... mad.gif
Цитата
Тут вот понаписали
Тебе же помогали, ты ж еще и нос воротишь... Надо было задание как положено формулировать !!!

Я давао тебе ссылку, где смотреть описание матрицы... Вот так реализуется сам поиск:
const
 size_row = 10;
 size_col = 10;

type
 trow = array[1 .. size_row] of integer;
 tmatrix = array[1 .. size_col] of trow;

procedure print(var mx: tmatrix);
 var i, j: integer;
 begin
   for i := 1 to size_row do
     begin
       for j := 1 to size_col do
         write(mx[j][i]:4);
       writeln
     end;
 end;

var
 mx: tmatrix;
 s, i, j: integer;

 s_min, i_min, s_max, i_max: integer;

begin
 for i := 1 to size_row do
   for j := 1 to size_col do
     mx[i][j] := random(100);
 writeln('before:'); print(mx);

 s_min := maxint; s_max := -maxint;
 for i := 1 to size_col do begin

   s := 0;
   for j := 1 to size_row do
     s := s + mx[i][j];

   if s < s_min then begin
     s_min := s; i_min := i;
   end;
   if s > s_max then begin
     s_max := s; i_max := i;
   end;
 end;

 writeln('min:':15, 'max':15);
 for j := 1 to size_row do
   writeln(mx[i_min][j]:15, mx[i_max][j]:15);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.