Найти сумму элементов квадратной матрицы порядка 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.

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

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

• Переполнение при умножении
• Как сделать экспорт ветки реестра?
• можно ли как то открыть файл в одной программе два раза сразу?
• made in programmersforum 1
• Рассылка. Выпуск 139
• Приводить свойство Text компонента TextBox в другой тип
• Исследование протокола PS/2 для мышки
• Число в кубе
• Определение клавиши в компоненте THotKey
• Определить количество знаков после запятой