bigpo.ru
добавить свой файл
1
Лабораторная работа №3.



Программирование разветвляющихся вычислительных процессов
с использованием операторов If и Select Case.


Теоретические разделы для выполнения лабораторной работы


  1. Использование логического оператора If при решении разветвляющихся вычислительных задач.

  2. Разновидности и применение оператора If.

  3. Оператор выбора Select Case.
Задание


Вычислить значение выражения. Варианты заданий указаны в приложении 3. Исходные данные задать самостоятельно.

Часть 1.

Программирование разветвляющихся вычислительных процессов с использованием логического оператора If.

Часть 2.

Программирование разветвляющихся вычислительных процессов с использованием оператора выбора Select Case.


Замечание

При решении задачи предварительно построить интервальный ряд для анализа области существования решения.


Пример




Текст программы (Часть 1, оператор If)


Sub lr2_1()

Const pi=3.14

Dim y, a, b As Single

a=Val(InputBox(“Введите значение a”))

b=Val(InputBox(“Введите значение b”))

If a<0 then

y=cos(b+pi)-a

ElseIf a>exp(1) then

y=5*(b+pi)

Else

y=a-sqr(b+pi)-a

End If

MsgBox “Результат Y = ” & y, , “Вывод результатов”

End Sub


Текст программы (Часть 2, оператор Select Case)


Sub lr2_2()

Const pi=3.14

Dim y, a, b As Single

a=Val(InputBox(“Введите значение a”))

b=Val(InputBox(“Введите значение b”))

Select Case a

Case Is<0

y=cos(b+pi)-a

Case Is>exp(1)

y=5*(b+pi)

Case Else

y=a-sqr(b+pi)-a

End Select

MsgBox “Результат Y = ” & y, , “Вывод результатов”

End Sub


Контрольные вопросы


  1. Структура логического оператора If … Then … Else

  2. Структура логического оператора If … Then … Else … End If

  3. Структура логического оператора If … Then … ElseIf … Else … End If

  4. Структура оператора выбора Select Case … End Select



Приложение 3. Варианты заданий лабораторной работы №3.

  1. w =

  2. v =