Пример.

Date: 2015-10-07; view: 449.

End If

Пусть математическая модель задачи определяется так:

y1 = tg(x²); ввести значение y2, если x Ј 0

y1 = cos(x) + sin²(x); y2 = 0 , если х > 0

Очевидно, что входными данными служит значение x, а выходными – y1 и y2_.

Схема алгоритма:

Этому алгоритму соответствует следующая программа на языке программирования Visual Basic

Dim x As Single,y1 As Single, y2 As Single

x = Inputbox("Введите значение х", "Модифицированная структура РАЗВИЛКА")

If x<=0 Then

y1=Tan(x^2)

y2=Text1.text

Else

y1=Cos(x)+Sin(x)^2

y2=0

End If

Print "y1 =" & Format(y1,"0.00") & " y2 =" & Format(y2,"0.00")

10.2.3. Вложенная структура Развилка

Если в ходе вычислительного процесса в зависимости от сложности принимаемого решения требуется проверить несколько условий, то используется вложенная структура Развилка. Схема алгоритма может иметь вид:

Вложенная структура Развилка также может быть модифицирован-ной. При программировании вложенной структуры Развилка можно использовать несколько условных операторов If. Однако вложенные операторы If … Then … Else можно создать c помощью конструкции ElseIf (без пробела), которая имеет следующий синтаксис: