declarations}
{Public declarations} ;: TForm1;: array of array of integer;: integer; Unit2;
{$ R * .dfm} TForm1.btn1Click (Sender: TObject); k: integer; not TryStrToInt (Edt1.Text, k) (StrToInt (Edt1.Text) lt;=0) then ( Введіть розмір матриці ціле позитивне число );
end;:=StrToInt (Edt1.Text) ;. ColCount:=n; .RowCount:=n; ( Введіть елементи матриці, цілі числа + # 13 # 10 +
з метою перевірки на магічний квадрат );
end; TForm1.btn2Click (Sender: TObject); i, j, i1, j1, s, s1, s2: integer;: boolean;:=0; i1:=- 1; j1:=- 1; ( i lt; n) and (i1=- 1) do:=0; (j lt; n) and (j1=- 1) donot TryStrToInt (strngrd1.Cells [i, j], s) then j1:=j (j) ; j1 gt;- 1 then i1:=i (i) ;; i1 gt;- 1 then ( У осередку [ + IntToStr (i1 + 1) + , + IntToStr (j1 + 1) + ] + # 13 # 10 +
впровадженою не ціле число );
end; (a, n, n); i:=0 to n - 1 doj:=0 to n - 1 do [i, j]:=StrToInt (strngrd1.Cells [j, i]) ;: =0; s1:=0; i:=0 to n - 1 do:=s + a [i, i];:=s1 + a [i, ni - 1] ;; s lt; gt; s1 then
ShowMessage ( Матриця не є магічним квадратом );
end;:=true;:=0; (i lt; n) and f do:=0;:=0; j:=0 to n - 1 do:=s1 + a [i, j] ;: =s2 + a [j, i] ;; (s1 lt; gt; s) or (s2 lt; gt; s) then f:=false (i) ;; f then ShowMessage(laquo;Матрицаявляетсямагическимквадратомraquo;)(laquo;Матрица не є магічним квадратом );
end; TForm1.N3Click (Sender: TObject) ;;; TForm1.N2Click (Sender: TObject) ;. Show ;; TForm1.N1Click (Sender: TObject) ;, j: Integer; strngrd1 doi:=0 to RowCount- 1 doj:=0 to ColCount - 1 do Cells [j, i]:= raquo ;;;.: Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class ( TForm): TLabel ;: TButton; btn1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2;
{$ R * .dfm} TForm2.btn1Click (Sender: TObject) ;;;.
