Else begin

y := a–b;

z := y/x;

Label1.Caption := FloatToStr(z);

end;

Звертаємо вашу увагу: обчислення значення виразу можна було б записати не двома командами, а однією: z := (a–b)/x.

Логічний вираз у команді розгалуження може бути простим або складеним. Складені логічні вирази утворюються з простих шляхом використання розглянутих у попередньому пункті операцій кон’юнкції (and), диз’юнкції (or), заперечення (not). Порядок виконання цих операцій в Delphi такий самий, як і в математичній логіці.

Наведемо приклад задачі з використанням складених логічних виразів.

Задача 4. Обчислити значення заданої функції

Фрагмент програми для розв’язування цієї задачі виглядатиме так:

x := StrToFloat(Edit1.Text);

If (x > –3) and (x <5)

Then y := 2*x – 12

Else y := 7 – 8*x;

Label1.Caption := FloatToStr(y);

Команда розгалуження в Delphi може містити в собі іншу команду розгалуження. Ось як виглядатиме команда розгалуження для алгоритму, наведеному на рис. 2.49:

If x = у

Then Label1.Caption := 'Числа рівні'

Else If x > у

Then Label1.Caption := 'Перше число більше'

Else Label1.Caption := 'Перше число менше';