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

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

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

• Дана последовательность 1+1/2+1/3+…+1/n
• Переход по ссылке
• Как снимать звук не со стерео микшера а с микрофона.
• ИЗ ВВЕДЕННОЙ С КЛАВИАТУРЫ СИМВОЛЬНОЙ СТРОКИ ВСЕ ТОЧКИ И ПОДСЧИТАТЬ ДЛИНУ ОТРЕДАКТИРОВАННОЙ СТРОКИ
• Раздельное сворачивание форм
• Как сравнить число в Label и Edit
• Адрес BIOS в оперативной памяти
• Организация цикла While в ассемблере
• Как создать для текста эффект печатной машинки, например для TLabel?
• Javascript который рисует таблицу безопасных цветов