Пример 4.4.3-2. Написать процедуру, вычисляющую x

Sin(a²) + b, если, а> b;

x =

a – b, в противном случае.

Данную задачу можно решить двумя способами. На рис 4.4.3-7 при­ведена схема алгоритма решения задачи, в которой использовано стан­дартное разветвление, а на рис.4.4.3-8 – усеченное разветвление. Второй способ в данном случае предпочтительнее, поскольку упрощает про­граммную реализацию алгоритма. Усеченное разветвление реко­мендуется использовать в тех случаях, когда выбор из двух возможных ветвей производится последовательно и неоднократно.

Function Pr437(ByRef a As Double _ ByVal b As Double) As Double Dim x As Double If a > b Then x = Sin(a^2) + b Else x = a – b End If Return x End Function

Рис. 4.4.3-7. Схема алгоритма и программный код процедуры Pr437()
проекта Пример 4.3-2

Function Pr438(ByVal a As Double_ ByVal b As Double)As Double Dim x As Double x = a – b If a > b Then x = Sin(a^2) + b Return x End Function

Рис. 4.4.3-8. Схема алгоритма и программный код процедуры Pr438()
проекта Пример 4.3-2

Процедура - Function Pr437() или Pr438() может быть вызвана, например, как на рис. 4.4.3-9.

Рис. 4.4.3-9. Пример вызова процедуры Pr438()

проекта Пример 4.3-2