Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Пусть математическая модель задачи определяется так:
y1 = tg(x2); ввести значение y2, если x Ј 0
y1 = cos(x) + sin2(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 (без пробела), которая имеет следующий синтаксис:
Дата публикования: 2014-12-28; Прочитано: 424 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!