Найти сумму элементов квадратной матрицы порядка n

Posted by obzor under Delphi

Найти сумму элементов квадратной матрицы порядка n (n<=6, задаётся в TEdit), есть отрицательные элементы, найти наибольший из них.

Stilet

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

   TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   procedure Button1Click(Sender: TObject);
   procedure Edit1Change(Sender: TObject);
   procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
   private
      { private declarations }
   public
      { public declarations }
   end;

var   n:integer; a:array of array of integer;
			Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit1Change(Sender: TObject);
var i,j:integer;
begin
  if TryStrToInt(Edit1.Text,n) then begin
    SetLength(a,n,n);
    for i:=Low(a) to High(a) do for j:=Low(a[ i]) to High(a[ i]) do
     a[ i,j]:=i*n+j;
	end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
      SetLength(a,0,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,m:integer;
begin
  m:=a[low(a),Low(a)];
    for i:=Low(a) to High(a) do for j:=Low(a[ i]) to High(a[ i]) do begin
     s:=s+a[ i,j]; if m<a[ i,j] then m:=a[ i,j];
		end;
  ShowMessage(Format('Сумма:%d Максимум:%d',[s,m]));
end;

end.

тема на форуме

Случайные статьи

• Удаление части имени файла при сохранении
• 2. ПРИМЕРЫ ПОСТРОЕНИЯ ФРАКТАЛЬНЫХ МНОЖЕСТВ. КЛАССИФИКАЦИЯ ФРАКТАЛОВ.
• Вывод разного содержимого для HTTP и HTTPS через условие
• Чтение данных из секций ini выборочно из ListBox
• Как сделать перебор строк из memo и сравнивать со стракой в Edit
• Группировка полей с разделителем в mysql
• Задать HotKey в ListView на Delphi
• Отправить запрос в COM порт, подождать, прочитать. Общение с устройством
• Рассылка. Выпуск 77
• Компилятор домашнего приготовления. Часть 1