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

ify"> k: integer ;//Кількість угадиванійUnit2, Unit3, Unit4;

{$ R *. dfm}

// Дії, що виконуються при створенні форми № 1

procedure '+ IntToStr (6-s) +' спроб ';;

// Кнопка ВиходTForm1.Button2Click (Sender: TObject);. Close;. Terminate;;

// Кнопка Нова іграTForm1.Button1Click (Sender: TObject);;: = random (101-1);. Caption: = IntToStr (ch);: = 6;: = 1;: = 0;. Caption: = 'Залишилось' + IntToStr (s) + 'спроб';

// Label1.Visible: = True;. Visible: = True;. Visible: = True;. Visible: = True;. Visible: = True;. Caption: = 'Партія №' + IntToStr (p);. Visible: = True;; TForm1.UpDown1Click (Sender: TObject; Button: TUDBtnType);. Min: = 1;. Max: = 100;;

// Кнопка ОТВЕТІТЬTForm1.Button3Click (Sender: TObject);. Visible: = True; (Edit1.Text = IntToStr (ch)) then

begin

k: = k +1;

Form2.ShowModal;

end; (Edit1.Text> IntToStr (ch)) then

begin

Label3.Caption: = 'Кількість' + Edit1.Text + 'більше загаданого';

s: = s-1;

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

end; (Edit1.Text

begin

Label3.Caption: = 'Кількість' + Edit1.Text + 'менше загаданого';

s: = s-1;

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

end; s = 0 then

begin

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

Form3.ShowModal;

s: = 6;

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

Label6.Caption: = Label6.Caption + IntToStr (p) + ') число' + IntToStr (ch) + # 13;

end; p = 6 then

begin

Label2.Visible: = False;

Label3.Visible: = False;

Label4.Visible: = False;

Edit1.Visible: = False;

Button3.Visible: = False;

UpDown1.Visible: = False;

Label6.Caption: = 'Ви вгадали' + IntToStr (k) + 'раз';

Label6.Visible: = True;

Label5.Visible: = True;

end;;

// Кнопка СправкаTForm1.Button4Click (Sender: TObject);. ShowModal;;.

unit Unit2;

interface

Windows, Messages,...