Дана матрица С(НхМ). В каждом столбце выбрать наибольший элемент, затем среди этих чисел выбрать минимальное значение

@Pola · Регистрация: 12.05.2013

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

Собственно сама постановка задачи:
Дана матрица С[NxM].
В каждом столбце выбрать наибольший элемент,
затем среди этих чисел выбрать минимальное значение.
Напечатать номер столбца, в котором расположено выбранное число.

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

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  C: array [1..100,1..100] of integer;
  a, b, i, j, d, max,min,res: integer;
  t: array [1..100] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn2Click(Sender: TObject);
  begin
     a:=StrToInt(Form1.Edit1.Text);
     b:=StrToInt(Form1.Edit2.Text);
     StringGrid1.RowCount:=a;
     StringGrid1.ColCount:=b;
     Edit1.Enabled:=false;
     Edit2.Enabled:=false;
  end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
  begin
    for i:=1 to a do
      begin
        for j:=1 to b do
          begin
            C[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
          end;
      end;
 
    max:= C[1,1];           
    d:=1;
 
    for i:=1 to a do
      begin
        for j:=1 to b do
            begin
              if C[i,j]>max then
                begin
                  max:=C[i,j];
                end;
                Label4.Caption:= 'Max =   ' + IntToStr(max);
            end;
        t[d]:=max;                    
        d:=d+1;
      end;
 
      min:=t[1];          
      for d:=1 to d do
        begin
          if t[i]<min then
            begin
              min:=t[i];   
              res:=i;                            
              end;
        end;
        Label5.Caption:= 'Min =   ' + IntToStr(min);
 
        Label3.Caption:= 'Vivod:  ' + IntToStr(res-1);
  end;
 
end.

Ниже есть интерфейс, который используется в программе.

@Arkaniy · 12.05.2013, 20:46

У тебя идет выборка наибольшего в строке, а не столбце. Так нужно.

Delphi

............
if C[j,i]>max then
 begin
  max:=C[j,i];
  ..........

Затем 83,85,86 строки. Почему цикл по d запущен а в качестве индекса используешь i? Вот тут и ошибка вывода минимального.
Вообще в коде много лишнего. Пробуй упрощать.

@Pola · 15.05.2013, 21:35 **[ТС]**

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

Добавлено через 52 минуты
Может я что-то не до конца понял...
Вывод максимального по столбцу должен производиться через j

Delphi

      max:= C[1,1];
      d:=1;
 
      for j:=1 to m do      
        begin
          for i:=1 to n do
            if C[j,i]> max then
            max:=C[j,i];
            t[d]:=max;  
            d:=d+1;
            Label3.Caption:= 'Max = ' + IntToStr(max);
        end;

Но если менять местами I и J ведь от этого ничего не измениться и элемент J будет рассматриваться как I, а элемент I - как J.

И как найденные максимальные элементы из матрицы занести в отдельный массив, чтобы из них выбирался минимальный?

Delphi

      min:=t[1];           
      for j:=1 to d do
        begin
          if t[j]< min then
          min:=t[j];    
          res:= j;                             
          Label4.Caption:= 'Min = ' + IntToStr(min);
        end;
 
        Label5.Caption:= 'OTBET : ' + IntToStr(res-1);      
end;

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

	15.05.2013, 21:35