Реферат Розробка програми Угадайка

SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

TForm2 = class (TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form2: TForm2; Unit1;

{$ R *. dfm} TForm2.Button1Click (Sender: TObject);

Form2.Close;

p: = p +1;

Form1.Label4.Caption: = 'Партія №' + IntToStr (p);

s: = 6;

randomize;

ch: = random (101-1);

Form1.label1.Caption: = IntToStr (ch);. label3.Visible: = False;;.

unit Unit3;

interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

TForm3 = class (TForm)

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;: TForm3; Unit1;

{$ R *. dfm} TForm3.Button1Click (Sender: TObject);. Close;: = p +1;

Form1.Label4.Caption: = 'Партія №' + IntToStr (p);

s: = 6;

randomize;

ch: = random (101-1);

Form1.label1.Caption: = 'Було загадане число' + IntToStr (ch);

Form1.Label2.Caption: = 'Залишилось' + IntToStr (s) + 'спроб';

Form1.label3.Visible: = False;;.

unit Unit4;

interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

TForm4 = class (TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form4: TForm4; Unit2, Unit1;

{$ R *. dfm} TForm4.Bu...