Обчислити значення заданої функції 2х - 12, якщо -3 < x < 5,
7 - 8х, для всіх інших х.
Фрагмент проекту для розв'язування цієї задачі матиме такий вигляд:
x := StrToFloat(Edit1.Text);
If (x > -3) аnd (x < 5)
Then y:= 2*x - 12
Else y := 7-8*x;
Label1.Caption := FloatToStr(y);
Розглянемо, нарешті, задачу, під час розв'язування якої використову-
ється дещо складніше розгалуження.