zizou10

Ребята, помогите пожалуйста!!! Нужно в Delphi создать програму, которая будет находить в матрице элемент, который min в своей строке и max в своем столбце!!! Нужно чтобы программа рассматривала каждый элемент матрицы!!!

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

Egorrio

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 секунд
с выводом будет сложновато разобраться,но если постораешься получится