0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 73
1

Массив: Поменять столбец, содержащий максимальный элемент с последним столбцом массива.

23.03.2013, 14:44. Показов 1454. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
3. Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива .
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2013, 14:44
Ответы с готовыми решениями:

Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива
Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец,...

Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом
Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных...

В прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним столбцом
В прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним...

В двухмерном массиве первый столбец поменять местами с последним столбцом, второй столбец с предпоследним столбцом и так далее
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор...

4
50 / 50 / 41
Регистрация: 20.08.2012
Сообщений: 123
23.03.2013, 16:33 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
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const
 row = 3;
 column = 4;
 
var
 max, i, j, columnMax, temp: integer;
 a: array [1..row, 1..column] of integer;
 
begin
 clrscr;
 max := -32768;
 for i := 1 to row do
  for j := 1 to column do
  begin
   write('Vvedite element massiva [',i,',',j,']: ');
   readln(a[i,j]);
   if a[i,j] > max then
   begin
    max := a[i,j];
    columnMax := j;
   end;
  end;
 
 for i := 1 to row do
  begin
   temp := a[i,column];
   a[i,column] := a[i,columnMax];
   a[i,columnMax] := temp;
  end;
 
 for i := 1 to row do
  for j := 1 to column do
  begin
   write(a[i,j]:5);
   if j = column then writeln;
  end;
 
 readln;
end.
0
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 73
23.03.2013, 22:13  [ТС] 3
Цитата Сообщение от karlsonnakrishe Посмотреть сообщение
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
35
36
37
38
39
40
uses crt;
const
 row = 3;
 column = 4;
 
var
 max, i, j, columnMax, temp: integer;
 a: array [1..row, 1..column] of integer;
 
begin
 clrscr;
 max := -32768;
 for i := 1 to row do
  for j := 1 to column do
  begin
   write('Vvedite element massiva [',i,',',j,']: ');
   readln(a[i,j]);
   if a[i,j] > max then
   begin
    max := a[i,j];
    columnMax := j;
   end;
  end;
 
 for i := 1 to row do
  begin
   temp := a[i,column];
   a[i,column] := a[i,columnMax];
   a[i,columnMax] := temp;
  end;
 
 for i := 1 to row do
  for j := 1 to column do
  begin
   write(a[i,j]:5);
   if j = column then writeln;
  end;
 
 readln;
end.
почему программа мне выдает ошибка в диапазоне
begin
temp := a[i,column];
a[i,column] := a[i,columnMax];
a[i,columnMax] := temp;
end;

Добавлено через 46 минут
Программа все равно выдает эту же ошибку

Добавлено через 8 минут
эта программа не находи max элемент и не меняет столбцы
0
50 / 50 / 41
Регистрация: 20.08.2012
Сообщений: 123
23.03.2013, 23:23 4
Хм, у меня всё работает, вот скрин
Миниатюры
Массив: Поменять столбец, содержащий максимальный элемент с последним столбцом массива.  
0
50 / 50 / 41
Регистрация: 20.08.2012
Сообщений: 123
23.03.2013, 23:25 5
Цитата Сообщение от Светлана25 Посмотреть сообщение
эта программа не находи max элемент и не меняет столбцы
Цитата Сообщение от Светлана25 Посмотреть сообщение
if a[i,j] > max then
* *begin
* * max := a[i,j];
* * columnMax := j;
* *end;
вот она находит макс. элемент и номер столбца с ним

Цитата Сообщение от Светлана25 Посмотреть сообщение
for i := 1 to row do
* begin
* *temp := a[i,column];
* *a[i,column] := a[i,columnMax];
* *a[i,columnMax] := temp;
* end;
а вот меняет столбцы
1
23.03.2013, 23:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2013, 23:25
Помогаю со студенческими работами здесь

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

Столбец содержащий минимальный элемент поменять местами с последним столбцом
Дан вещественный массив из 3 строк и 5 столбцов.Столбец содержащий минимальный элемент поменять...

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
Тема 5: «Обработка двумерных числовых массивов» Задача 5.1. Заполнить двумерный числовой массив В...

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
var mas : array of real; i , j, k : integer ; imin,x : real; Begin With stringgrid1 do begin...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru