Выводит все время в ответе 0,0. надо найти наименьший и наибольший элемент матрицы, в чем ошибка?

@Bulgar · Регистрация: 25.05.2019

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.btn1Click(Sender: TObject);
begin
strngrd1.Cells[0,0]:='стр.\столб.';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
strngrd1.Cells[0,0]:='стр.\столб.';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
 
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
imax:=1;
jmax:=1;
imin:=1;
jmin:=1;
for I:=1 to M do
for J:=1 to N do
begin
if A[I,J]>A[imax,jmax] then
begin
imax:=I;
jmax:=J;
end;
Label3.Caption:=' наибольшее = '+IntToStr(A[imax,jmax]);
end;
for I:=1 to M do
for J:=1 to N do
begin
if A[I,J]<A[imin,jmin] then
begin
imin:=I;
jmin:=J;
end;
Label4.Caption:=' наименьшее = '+IntToStr(A[imin,jmin]);
end;
end;
end.

@Puporev · 25.05.2019, 18:05

Я что не не нашел где создается матрица.

@AzAtom · 25.05.2019, 18:20

И зачем 2 раза задаются параметры стринггрида?

@Bulgar · 25.05.2019, 21:39 **[ТС]**

тогда так

Delphi

procedure TForm1.btn1Click(Sender: TObject);
begin
strngrd1.Cells[0,0]:='стр/cто';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
strngrd1.Cells[0,0]:='стр/cто';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
 
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
imax:=1;
jmax:=1;
imin:=1;
jmin:=1;
for I:=1 to M do
for J:=1 to N do
begin
if A[I,J]>A[imax,jmax] then
begin
imax:=I;
jmax:=J;
end
else
if A[I,J]<A[imin,jmin] then
begin
imin:=I;
jmin:=J;
Label3.Caption:='наименьшее = '+IntToStr(A[imax,jmax]);
Label4.Caption:='наибольшее = '+IntToStr(A[imin,jmin]);
end;
end;
end;
end.

@Bulgar · 25.05.2019, 22:03 **[ТС]**

Delphi

var
  Form1: TForm1;
  A:array [1..100,1..200] of integer;
  M,N,I,J : Integer;
  imax,jmax,imin,jmin:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
strngrd1.Cells[0,0]:='ñòð.\ñòîëá.';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
strngrd1.Cells[0,0]:='ñòð.\ñòîëá.';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
 
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
imax:=1;
jmax:=1;
imin:=1;
jmin:=1;
for I:=1 to M do
for J:=1 to N do
begin
A[i,j]:=StrToInt(strngrd1.Cells[j,i]);
if A[I,J]>A[imax,jmax] then
begin
imax:=I;
jmax:=J;
end
else
if A[I,J]<A[imin,jmin] then
begin
imin:=I;
jmin:=J;
Label3.Caption:=' íàèáîëüøåå = '+IntToStr(A[imax,jmax]);
Label4.Caption:=' íàèìåíüøåå = '+IntToStr(A[imin,jmin]);
end;
end;
end;
end.

@Rayvenor · 26.05.2019, 01:52

1. Криво заполняешь таблицу. По крайней мере представленный код заполняет только поля.
2.

Сообщение от Bulgar

Label3.Caption:=' íàèáîëüøåå = '+IntToStr(A[imax,jmax]);
Label4.Caption:=' íàèìåíüøåå = '+IntToStr(A[imin,jmin]);

Это находится в цикле, а должно отрабатываться после цикла.

Ещё я не понял зачем нужен массив "А", найти наибольший и наименьший элемент и без массива можно.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.05.2019, 18:05	2
	Я что не не нашел где создается матрица. 0

@AzAtom Модератор 3635 / 2153 / 762 Регистрация: 15.11.2015 Сообщений: 8,644
	25.05.2019, 18:20	3
	И зачем 2 раза задаются параметры стринггрида? 0

@Rayvenor 403 / 132 / 27 Регистрация: 04.08.2018 Сообщений: 585
	26.05.2019, 01:52	6
	1. Криво заполняешь таблицу. По крайней мере представленный код заполняет только поля. 2. Сообщение от Bulgar Label3.Caption:=' íàèáîëüøåå = '+IntToStr(A[imax,jmax]); Label4.Caption:=' íàèìåíüøåå = '+IntToStr(A[imin,jmin]); Это находится в цикле, а должно отрабатываться после цикла. Ещё я не понял зачем нужен массив "А", найти наибольший и наименьший элемент и без массива можно. 0