Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
1

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

12.02.2010, 19:41. Просмотров 1247. Ответов 4
Метки нет (Все метки)

Добрый вечер возникла проблема при написании программы, вот условие
В данной действительной матрице размера 3 х 3 поменять местами последний столбец и столбец, содержащий минимальный элемент. Предполагается, что минимальный элемент в массиве единственен.
Вот что я наработал, вообщем все сделал, но не знаю как теперь заменить столбцы, помогите плизз.
Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
Const n=3;
var a:array[1..n,1..n] of integer;
i,j,nc,min,nr:integer;
begin //ввод
for i:=1 to n do
for j:=1 to n do
a[i,j]:=strtoint(g1.Cells[j-1,i-1]);
// èùåì ìèíèìàëüíûé ýëåìåíò
nc:=a[1,1];   nr:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<nc then
begin
nc:=a[i,j];
nr:=j;
end;
// Замена столбца
for i:=1 to n do
 // Вывод
for i:=1 to n do
for j:=1 to n do
g2.cells[j-1,i-1]:=inttostr(a[i,j]);
 
end;
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2010, 19:41
Ответы с готовыми решениями:

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

Массив: Столбец, содержащий минимальный элемент, поменять местами с первым столбцом.
в матрице 5х3 нужно найти Столбец, содержащий минимальный элемент, поменять местами с первым...

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

В матрице поменять местами первый столбец и столбец, содержащий минимальное количество нечетных элементов
1) дана матрица размера m*n поменять местами столбцы 1 и столбец, содержащий минимальное количество...

4
Добрый самаритянин
1105 / 620 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
12.02.2010, 20:19 2
пробуй так
Delphi
1
2
3
4
5
6
for i:=1 to n do
                Begin
                buf:=a[i,j];
                a[i,j]:=a[i,n];
                a[i,n]:=buf
                end;
Добавлено через 1 минуту
и того получается:
Delphi
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
Const n=3;
var a:array[1..n,1..n] of integer;
i,j,nc,min,nr,buf:integer;
begin //ввод
for i:=1 to n do
for j:=1 to n do
a[i,j]:=strtoint(g1.Cells[j-1,i-1]);
// èùåì ìèíèìàëüíûé ýëåìåíò
nc:=a[1,1]; nr:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<nc then
begin
nc:=a[i,j];
nr:=j;
end;
// Замена столбца
for i:=1 to n do
Begin
                buf:=a[i,j];
                a[i,j]:=a[i,n];
                a[i,n]:=buf
                end;
 
// Вывод
for i:=1 to n do
for j:=1 to n do
g2.cells[j-1,i-1]:=inttostr(a[i,j]);
 
end;
 
end.
1
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
12.02.2010, 20:23  [ТС] 3
Не работает, точнее работает но не коректно(
0
Добрый самаритянин
1105 / 620 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
12.02.2010, 20:26 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ошибся)))
Delphi
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
Const n=3;
var a:array[1..n,1..n] of integer;
i,j,nc,min,nr,buf:integer;
begin //ввод
for i:=1 to n do
for j:=1 to n do
a[i,j]:=strtoint(g1.Cells[j-1,i-1]);
// ищем минимальный элемент
nc:=a[1,1]; nr:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<nc then
begin
nc:=a[i,j];
nr:=j;
end;
// Замена столбца
for i:=1 to n do
Begin
                buf:=a[i,nr];
                a[i,nr]:=a[i,n];
                a[i,n]:=buf
                end;
 
// Вывод
for i:=1 to n do
for j:=1 to n do
g2.cells[j-1,i-1]:=inttostr(a[i,j]);
 
end;
 
end.
1
2 / 2 / 0
Регистрация: 04.12.2009
Сообщений: 95
12.02.2010, 20:40  [ТС] 5
Спасибо работает)

Добавлено через 2 минуты
John_Pa9JIbHuK, а не подскажите если матрица 3 на 4 будет, то как изменить?
вот я для 3 на 4 накидал
Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
Const n=3; m=4;
var a:array[1..n,1..m] of integer;
i,j,nc,min,nr,buf:integer;
begin //ввод
for i:=1 to n do
for j:=1 to m do
a[i,j]:=strtoint(g1.Cells[j-1,i-1]);
// ищем минимальный элемент
nc:=a[1,1]; nr:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<nc then
begin
nc:=a[i,j];
nr:=j;
end;
// Замена столбца
for i:=1 to n do
Begin
                buf:=a[i,nr];
                a[i,nr]:=a[i,n];
                a[i,n]:=buf
                end;
 
// Вывод
for i:=1 to n do
for j:=1 to m do
g2.cells[j-1,i-1]:=inttostr(a[i,j]);
 
end;
 
end.
но не коректно работает)

Добавлено через 7 минут
А....Ступил, все разобралсся, не актуально)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2010, 20:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Поменять местами столбец, содержащий минимальный элемент, с первым столбцом
Из 33 положительных, отрицательных и нулевых значений чисел сформируйте матрицу 11 х 3. Поменяйте...

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

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

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

Сформировать матрицу 11*3 и поменять местами столбец, содержащий минимальный элемент, с первым столбцом
помогите пожалуйста с заданием: из 33 положительных, отрицательных и нулевых значений чисел...


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

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

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