o m dospez [i, j] = min then: = i;: = j;;; sh> 1 theni: = 1 to n doj: = 1 to m dospez [i, j] = min thenk: = 1 to n do (k <> i) and (spez [k, j]> max) then: = spez [k, j];: = i; : = j;; l: = 1 to m do (l <> j) and (spez [i, l]> max) then: = spez [i, l];: = i;: = j;; ;; zap [str]
{Private declarations}, newpass: STRING;: boolean;
{Public declarations};: TForm2; Unit3, Unit1_1, Unit4;
{$ R *. dfm} TForm2.BitBtn3Click (Sender: TObject);. Enabled: = False;. Show;; TForm2.FormActivate (Sender: TObject);. Text: =''; . SetFocus; TRegistry.Create do: = HKEY_LOCAL_MACHINE; ('Software', True); not KeyExists ('MyProject') then CreateKey ('MyProject'); ('MyProject', True); not ValueExists ('Password') then begin: =''; ('Password', newpass);: = ReadString ('Password');;; TForm2.BitBtn1Click (Sender: TObject); MaskEdit1.Text = pass then begin
{-????? ?????? ????????,??????? ??????????,???? ?????? ?????? ????????? -}. Show;. Hide;: = true; MaskEdit1.SetFocus;; TForm2.BitBtn2Click (Sender: TObject);;;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask , Registry, ExtCtrls; = class (TForm): TMaskEdit;: TMaskEdit;: TMaskEdit;: TLabel;: TLabel;: TLabel;: TBevel; FormActivate (Sender: TObject); MaskEdit1KeyPress (Sender: TObject; var Key: Char); MaskEdit2KeyPress (Sender: TObject; var Key: Char); MaskEdit3KeyPress (Sender: TObject; var Key: Char); FormCloseQuery (Sender: TObject; var CanClose: Boolean);
{Private declarations}
{Public declarations};: TForm3;: boolean; Unit2;
{$ R *. dfm} TForm3.FormActivate (Sender: T...
