ИПР 1 Вар.12

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure EditKeyPress(Sender: TObject; var Key: char);
    procedure StringGridKeyPress(Sender: TObject; var Key: char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Nmax = 10;
  Mmax = 10;

type
  Mas1 = array[1..Nmax,1..Mmax] of real;
  Mas2 = array[1..Nmax] of real;
var
  Form1: TForm1;
  A: Mas1;
  Max,Min: Mas2;
  N,M,i,j,MaxInd,MinInd,k: byte;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  N:=3;  // Число столбцов в массиве
  M:=3;  // Число строк в массиве
  Edit1.Text:=FloatToStr(N);
  Edit2.Text:=FloatToStr(M);
  StringGrid1.ColCount:= N+1;  // Задание числа столбцов в таблице
  StringGrid1.RowCount:= M+1;  // Задание числа строк в таблице
  for j:=1 to M do  //Заполнение левого столбца
    StringGrid1.Cells[0,j]:='j='+IntToStr(j);
  for i:=1 to N do  // Заполнение вехней строки
    StringGrid1.Cells[i,0]:='i='+IntToStr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);  // Изменить размер таблицы
begin
  N:=StrToInt(Edit1.Text);
  M:=StrToInt(Edit2.Text);
  StringGrid1.ColCount:= N+1;  // Задание числа столбцов в таблице
  StringGrid1.RowCount:= M+1;  // Задание числа строк в таблице
  for j:=1 to M do  // Заполнение левого столбца
    StringGrid1.Cells[0,j]:='j='+IntToStr(j);
  for i:=1 to N do  // Заполнение вехней строки
    StringGrid1.Cells[i,0]:='i='+IntToStr(i);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MaxStr,MinStr: string;
  MaxEl,MinEl: real;
begin
  try
  for j:=1 to M do  // Заполнение массива А элементами матрицы StringGrid1
    for i:=1 to N do
      A[i,j] := StrToFloat(StringGrid1.Cells[i,j]);
  except
    on ERangeError do begin ShowMessage('Выход за пределы массива. Уменьшите размер массива'); Exit; end;
    on EConvertError do begin ShowMessage('В ячейке отсутствует значение, либо число введено не правильно'); Exit; end;
    else begin ShowMessage('Возникла неизвестная исключительная ситуация!'); Exit; end;
  end;

  MaxEl:=A[1,1]; MaxInd:=1;
  MinEl:=A[1,1]; MinInd:=1;

  for j:=1 to M do  // Поиск строки с максимальным и минимальным элементоми
    for i:=1 to N do
      begin
        if A[i,j] >= MaxEl then begin MaxInd:=j; for k:=1 to N do Max[k]:=A[k,j]; end;
        if A[i,j] <= MinEl then begin MinInd:=j; for k:=1 to N do Min[k]:=A[k,j]; end;
      end;
  for i:=1 to N do begin A[i,MinInd]:=Max[i]; A[i,MaxInd]:=Min[i]; end;

  for j:=1 to M do  // Заполнение матрицы StringGrid1 элементами массива А
    for i:=1 to N do
      StringGrid1.Cells[i,j]:=FloatToStr(A[i,j]);

  for i:=1 to N do
    begin
      MaxStr:=MaxStr+'['+FloatToStr(Max[i])+']';
      MinStr:=MinStr+'['+FloatToStr(Min[i])+']';
    end;
  Label3.Caption:='Строка с максимальным элементом №'+IntToStr(MaxInd)+': '+MaxStr+#13+
                  'Строка с минимальным элементом №'+IntToStr(MinInd)+': '+MinStr;
end;

procedure TForm1.EditKeyPress(Sender: TObject; var Key: char);
begin
  case Key of
    #8,'0'..'9':    ;  //Разрешенные знаки для ввода
  else key := chr(0);  //Запрещение других знаков
  end;
end;

procedure TForm1.StringGridKeyPress(Sender: TObject; var Key: char);
begin
  case Key of
    #8,'0'..'9',',':;  //Разрешенные знаки для ввода
    #13: if StringGrid1.Col < StringGrid1.ColCount-1  // Переход в следующую ячейку по нажатию <Enter>
         then StringGrid1.Col := StringGrid1.Col +1
         else if StringGrid1.Row < StringGrid1.RowCount-1
              then begin StringGrid1.Row := StringGrid1.Row + 1; StringGrid1.Col := 1; end;
  else key := chr(0);
  end;
end;

end.