ПОЗНАВАТЕЛЬНОЕ

Оси и плоскости тела человека - Тело человека состоит из определенных топографических частей и участков, в которых расположены органы, мышцы, сосуды, нервы и т.д.

Отёска стен и прирубка косяков - Когда на доме не достаёт окон и дверей, красивое высокое крыльцо ещё только в воображении, приходится подниматься с улицы в дом по трапу.

Дифференциальные уравнения второго порядка (модель рынка с прогнозируемыми ценами) - В простых моделях рынка спрос и предложение обычно полагают зависящими только от текущей цены на товар.

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

I. Структура программы.

II. Основные арифметические и математические операции и функции языка программирования.

III. Структура логического оператора If.

Задание

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

Часть 1.

Программирование линейных вычислительных процессов

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

Часть 2.

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

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

Пример

Вычислить выражение

Метод разделения на части состоит в следующем: исходное выражение разбиваем на элементарные части, например

a = y^(-Sqr(Abs(x)))

b = (Sin(x) + E^(x + y))

c = Sqr((2 * Cos(x) ^ 2 + 3) / 5 * Sin(x))

После разбиения на части расчетная формула имеет следующий вид:

K = Log(a) * b + c

ОДЗ

y>0 x>0

Текст программы (Часть 2, с учетом ОДЗ)

Sub Popov2()

Dim x, y, a, b, c As Double

x = Val(InputBox("Введите значение х"))

y = Val(InputBox("Введите значение y"))

If y < 0 Then InputBox ("Значение не входит в область определения функции")

a = y^(-Sqr(Abs(x)))

b = (Sin(x) + E^(x + y))

c = Sqr((2 * Cos(x) ^ 2 + 3) / 5 * Sin(x))

K = Log(a) * b + c

MsgBox "Результат k = " & K, , "Вывод результатов"

End If

End Sub

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

1) Основные математические функции языка программирования, используемые в программе.

2) Функция для ввода данных с клавиатуры.

3) Функция для вывода результатов на экран.

4) Структура оператора If.

1)Основные математические функции языка программирования в данном примере это: Sqr – это извлечение квадратного корня, Sin – это взятие синуса, Cos- это взятие косинуса и Log- натуральный логарифм.

2)Функция для ввода данных с клавиатуры : x = Val(InputBox("Введите значение х"))

y = Val(InputBox("Введите значение y"))

3)Функция для вывода результатов на экран: MsgBox "Результат k = " & K, , "Вывод результатов"

4)Структура оператора If: If y < 0 Then InputBox ("Значение не входит в область определения функции"), т.е. если мы введем у<0, то появится окно с надписью «Значение не входит в область определения функции»

Лабораторная работа №3.

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

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

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

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

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

III. Оператор выбора Select Case.

Задание

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

Часть 1.

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

Часть 2.

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

Замечание

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

Пример

1. w =

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

Sub Popov3()

Dim w, t As Single

Const e = 2.17

t = Val(InputBox("Введите значение t"))

If t < 10 Then

w = (1 / 2) * t ^ 2 - Sin(t)

End If

If (t >= 10) And (t <= 15) Then

w = e ^ (t + 1)\ End If

If t > 15 Then

w = Sin((t ^ 2) + 1)

End If

MsgBox "Результат w = " & w, , "Вывод результата"

End Sub