I wrote a little thing for the first time, ready to put it online, but I don't know what to put there. A small thing that calculates the online time required for QQ to correspond to the level!
Unit umain;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls;
type TForm1 = class (TForm) Label2: TLabel; Label3: TLabel; Edit1: TEdit; Button1: TButton; Label4: TLabel; Button2: TButton; procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject); private {Private Declarations}.
Var Form1: TFORM1; Tshi2, Tshijian: integer
IMPLEMentation
{$ R * .dfm}
Procedure TForm1.Button1Click (Sender: Tobject); Begin Tshijian: = start (edit1.text); label4.caption: = INTOSTR (5 * tshijian * tshijian 15 * tshijian);
Procedure TForm1.Button2Click (Sender: Tobject); Begin Tshi2: = Tshijian 1; label4.caption: = INTOSTR (5 * Tshi2 * Tshi2 15 * Tshi2-5 * tshijian * tshijian-15 * tshijian);
End.
===============================
The latest level calculation method is as follows
