Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
2 / 2 / 0
Регистрация: 09.11.2014
Сообщений: 124
1

Создание массива из максимального элемента в столбце матрицы

17.11.2014, 15:42. Показов 567. Ответов 2
Метки нет (Все метки)

В каждом столбце заданной матрицы D размером 9х10 найти позицию максимального значения и сформировать из них одномерный массив.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
const
n=9;
m=10;
var
d:array[1..n,1..m] of integer;
a:array[1..m] of integer;
i,j,max:integer;
begin
for i:=1 to n do
for j:=1 to m do
d[i,j]:=random(100);
   for i:=1 to n do
  begin
   for j:=1 to m do
   write(d[i,j]:4);
   writeln;
end;
max:=d[1,1];
  for i:=1 to n do
  for j:=1 to m do
   begin
  if max>d[i,j] then
  a[j]:=max;
end;
  for i:=1 to n do
  for j:=1 to m do
   begin
  if max<d[i,j] then
  a[j]:=d[i,j];
end;
writeln;
for j:=1 to m do
write(a[j]:4);
end.
Программа работает не правильно, массив по каким-то причинам не состоит из максимальных элементов каждого столбца матрицы. В чем ошибка?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2014, 15:42
Ответы с готовыми решениями:

Замена максимального элемента в столбце матрицы
Дана матрица размера 7 x 5. Если кол-во положительных элементов столбца больше количества...

Определение максимального элемента в каждом столбце матрицы
Помогите составить программу??? ничего не получается!!!!!! Нужно составить программу определения...

Нахождение максимального элемента в каждом столбце матрицы А (N,N)
Составить программу нахождения максимального элемента в каждом столбце матрицы А(N,N).

Определение максимального элемента матрицы в заданном столбце
Ребят, прошу помощи, надо срочно написать программу для выполнения задачи с таким условием:...

2
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
17.11.2014, 15:56 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const
n=9;
m=10;
var
d:array[1..n,1..m] of integer;
a:array[1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    d[i,j]:=random(100);
    write(d[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to m do //по всем столбцам
 begin
  a[j]:=1; //пусть позиция макс=1
  for i:=2 to n do//по строке
  if d[i,j]>d[a[j],j] then a[j]:=i;//если есть больше, то меняем значение позиции
 end;
writeln;
for j:=1 to m do
write(a[j]:4);
end.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31193 / 20390 / 7942
Регистрация: 22.10.2011
Сообщений: 35,367
Записей в блоге: 6
17.11.2014, 16:01 3
Вот такого цикла вполне достаточно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
const
  n = 9;
  m = 10;
 
var
  d: array[1..n, 1..m] of integer;
  a: array[1..m] of integer;
  i, j, max: integer;
 
begin
  for i := 1 to n do
    for j := 1 to m do
      d[i, j] := random(100);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(d[i, j]:4);
    writeln;
  end;
 
  for j := 1 to m do // Начало
  begin
    max := d[1, j];
    for i := 1 to n do
    begin
      if max < d[i, j] then max := d[i, j]
    end;
    a[j] := max;
  end; // Конец
 
  writeln;
  for j := 1 to m do
    write(a[j]:4);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2014, 16:01

нахождение минимального и максимального элемента в каждом столбце матрицы
Организовать нахождение минимального и максимального элемента в каждом столбце матрицы случайных...

Найти в каждом столбце матрицы индексы максимального элемента
разработать алгоритм обработки двумерного массива размера nxm.Числа n и m,a также элементы массива...

Создать функцию для поиска максимального элемента в каждом столбце матрицы
Всем добрый день, нужна помощь в написании программы: Дан массив 4х4, надо создать функцию для...

Составить программу определения максимального элемента в каждом столбце и диагоналях матрицы
Составить программу определения максимального элемента в каждом столбце и диагоналях матрицы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.