Конструкция ветвления If..Then..Else

Конструкция позволяет выбрать один из двух возможных вариантов развития программы. Выбор осуществляется в зависимости от выполнения условия.

If условие

then begin      //  Выполнение операторов, если условие выполняется

        end         //   Точка с запятой запрещена

else begin       //  Выполнение операторов, если условие не выполняется

       end;

 

Задача. Используя в качестве примера приложение «Ветвление 1» из папки «Задание», составить проект угадывания числа в интервале от 1 до 1000.

Код программы:

 

procedure TForm1.FormActivate(Sender: TObject);

begin

Randomize;                          // инициализируем генератор

X:=Random(1001);              // Загадываем число

Edit1.SetFocus;                    // Фокус ввода в Edit1

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var Y:Integer;                       // Ответ пользователя

begin

 Y:=StrToInt(Edit1.Text);

 Edit1.Clear;                         // Очистка поля Edit1

 Edit1.SetFocus;                   // Фокус ввода в Edit1

 

 If X<Y then

 Label2.Caption:='Много !'

 else if X>Y then

  Label2.Caption:='Мало !'

 else

 begin

 Label2.Caption:='Число угадано !';

 Form1.Color:=clRed;            // Цвет формы

 Button2.Visible:=True;         // Появление кнопки "Выход"

 Button1.Visible:=False;        // Исчезновение кнопки "ОК"

 Edit1.Visible:=False;            // Исчезновение Edit1

 Label1.Visible:=False;

 end;

 end;

 

                                          // Выход из программы

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;