zizou10
1

Найти в матрице элемент, который min в своей строке и max в своем столбце

19.12.2008, 13:45. Показов 1130. Ответов 1
Метки нет (Все метки)

Ребята, помогите пожалуйста!!! Нужно в Delphi создать програму, которая будет находить в матрице элемент, который min в своей строке и max в своем столбце!!! Нужно чтобы программа рассматривала каждый элемент матрицы!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2008, 13:45
Ответы с готовыми решениями:

Найти элементы матрицы, которые одновременно являются min в своей строке и max в своем столбце
Дан массив размера n × m, все элементы которого различны. Необходимо найти такие элементы, которые...

Найти в матрице элемент, являющийся максимальным в своей строке и минимальным в своем столбце
Дана целочисленная матрица размера M х N. Найти элемент, являющийся максимальным в своей строке и...

Найти элемент, который является наименьшим в своей строке и наибольшим в своем столбце.
Дана квадратная матрица А порядка n. Найти элемент, который является наименьшим в своей строке и...

Найти элемент матрицы, который больше всех в своей строке и меньше всех в своем столбце
Будьте добры, помогите ..) В заданной матрице (пользователь задает размер и сами элементы)...

1
Egorrio
21.12.2008, 18:57 2
unit Sedlo;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, DB, DBTables, DBCtrls;

type
TSetPoint = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
edit6: TEdit;
edit7: TEdit;
edit8: TEdit;
edit9: TEdit;
edit10: TEdit;
edit11: TEdit;
edit12: TEdit;
edit13: TEdit;
edit14: TEdit;
edit15: TEdit;
edit16: TEdit;
edit17: TEdit;
edit18: TEdit;
edit19: TEdit;
edit20: TEdit;
edit21: TEdit;
edit22: TEdit;
edit23: TEdit;
edit24: TEdit;
edit25: TEdit;
edit26: TEdit;
edit27: TEdit;
edit28: TEdit;
edit29: TEdit;
edit30: TEdit;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
SetPoint: TSetPoint;
Mas1: Array [1..6, 1..5] of Integer;
Mas2: Array [1..6] of integer;
Mas3: Array [1..6] of integer;
n,m,i,j,min,imax,max,jmin,k,a,b:integer;
s:integer;


implementation

{$R *.DFM}

procedure TSetPoint.Button1Click(Sender: TObject);
begin
for n:=1 to 6 do
for m:=1 to 5 do begin
i:=n;
j:=m;
Mas1 [i,j]:=random(100)-50;
end;
Edit1.Text:=FloatToStr(Mas1 [1,1]);
Edit2.Text:=FloatToStr(Mas1 [1,2]);
Edit3.text:=FloatToStr(Mas1 [1,3]);
Edit4.Text:=FloatToStr(Mas1 [1,4]);
Edit5.Text:=FloatToStr(Mas1 [4,5]);
Edit6.Text:=FloatToStr(mas1 [2,1]);
Edit7.Text:=FloatToStr(mas1 [2,2]);
Edit8.text:=FloatToStr(Mas1 [2,3]);
Edit9.Text:=FloatToStr(Mas1 [2,4]);
Edit10.text:=FloatTostr(Mas1 [6,5]);
Edit11.Text:=FloatTostr(Mas1 [3,1]);
Edit12.Text:=FloatToStr(Mas1 [3,2]);
Edit13.Text:=FloatToStr(Mas1 [3,3]);
Edit14.Text:=FloatToStr(Mas1 [3,4]);
Edit15.Text:=FloatToStr(Mas1 [5,5]);
Edit16.Text:=FloatToStr(Mas1 [4,1]);
Edit17.Text:=FloatToStr(mas1 [4,2]);
Edit18.Text:=FloatTostr(mas1 [4,3]);
Edit19.Text:=FloatTostr(mas1 [4,4]);
Edit20.text:=FloatToStr(Mas1 [1,5]);
Edit21.Text:=FloatTostr(mas1 [5,1]);
Edit22.Text:=FloatTostr(mas1 [5,2]);
Edit23.Text:=FloatTostr(mas1 [5,3]);
Edit24.Text:=FloatTostr(mas1 [5,4]);
Edit25.Text:=FloatToStr(Mas1 [2,5]);
Edit26.Text:=FloatTostr(mas1 [6,1]);
Edit27.Text:=FloatTostr(mas1 [6,2]);
Edit28.Text:=FloatTostr(mas1 [6,3]);
Edit29.Text:=FloatTostr(mas1 [6,4]);
Edit30.Text:=FloatToStr(Mas1 [3,5]);

for b:=1 to 5 do
begin{идем по столбцам}
max:=Mas1[1,b];
for a:=1 to 6 do {будет максимальный элемент столбца}
if Mas1[a,b]>max then
max:=Mas1[a,b]; {нашли};
listbox1.items.add(inttostr(max));
Mas2[b]:=max;
Mas2[6]:=Mas2[5];
end;
for n:=1 to 6 do
begin
min:=Mas1[n,1]; {идем по этой строке}
for m:=1 to 5 do
if Mas1[n,m]<min then
min:=Mas1[n,m]; {находим минимальный}
listbox2.items.add(inttostr(min));
Mas3[n]:=min;
end;
for m:=1 to 6 do
for n:=1 to 6 do begin
s:= Mas2[m]-Mas3[n];
if s=0 then listbox3.items.add(inttostr(Mas2[m]))

end;
end;


end.

Добавлено через 1 минуту 46 секунд
с выводом будет сложновато разобраться,но если постораешься получится
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2008, 18:57
Помогаю со студенческими работами здесь

Найти количество элементов в матрице, являющихся минимумами как в своей строке, так и в своем столбце
Необходимо найти количество элементов в матрице, являющихся минимумами как в своей строке, так и в...

Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце.
Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и...

Найти элемент, являющийся максимальный в своей строке и минимальным в своем столбце.
Дана целочисленная матрица MxN. Найти элемент, являющийся максимальный в своей строке и минимальным...

Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце
Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и...


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

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

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