Реферат Програмний продукт, який здійснює вирішення завдань з дисципліни "Чисельні методи"

procedure N23Click (Sender: TObject);

procedure N24Click (Sender: TObject);

procedure N25Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N27Click (Sender: TObject);

procedure N31Click (Sender: TObject);

procedure N32Click (Sender: TObject);

procedure N33Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure WMGetSysCommand (var Message: TMessage); message WM_SYSCOMMAND;

procedure Timer2Timer (Sender: TObject);

procedure N30Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form1: TForm1; Unit1_1, Unit2_1, Unit3_1, Unit4_1, Unit5_1, Unit6_1, Unit11, Unit14,

Unit15, Unit13, Unit9, Unit17, Unit19, Unit12, Unit18, Unit16, Unit10,

Unit7_1, Unit8_1, Unit1_2, Unit1_3, Unit2_2, Unit2_3, Unit3_2, Unit3_3,

Unit4_2, Unit4_3, Unit5_2, Unit5_3, Unit6_2, Unit6_3, Unit7_2, Unit8_2,

Unit20_1, Unit20_2, Unit20_3, Main, Password;

{$ R *. dfm} TForm1.FormShow (Sender: TObject);. free;; TForm1.N6Click (Sender: TObject);. Edit1.Clear;. Edit2.Clear;. showmodal; ; TForm1.N7Click (Sender: TObject);. Edit1.Clear;. Edit2.Clear;. Edit3.Clear;. showmodal;; TForm1.N8Click (Sender: TObject);. Edit1.Clear;. Edit2.Clear;. Edit3 . Clear;. showmodal;; TForm1.N9Click (Sender: TObject);. Edit1.Clear;. Edit2.Clear;. showmodal;; TForm1.N10Click (Sender: TObject);. Edit1.Clear;. Edit2.Clear;. showmodal;; TForm1.N12Click (Sender: TObject);. Edit1.Clear;. Edit2.Clear;. showmodal;; TForm1.N13Click (Sender: TObject);. Edit1.Clear;. Showmodal;; TForm1.N25Click (Sender: TObject);. Edit1.Clear;. Showmodal;; time; b of

:. Label1.Font.Color: = clyellow;: = 1;;

:. Label1.Font.Color: = claqua;: = 2;;

:. Label1.Font.Color: = clwhite;: = 0;;;; TForm1.Timer1Timer (Sender: TObject);;; TForm1.Button1Click (Sender: TObject);: TRegistry;: = TObject);. ShowModal;; TForm1.N33Click (Sender: TObject);: TRegistry;: string;

beginInputQuery ('Реєстрація', 'Введіть реєстраційний номер:', polic) then

begin

// Перевіряємо його:

if polic = '254622210741989 'then

begin// Все в порядку: = продукт зареєстрований! '+ # 13 +

'Перезапустіть його!',...