Учебные программы » Пакеты прикладных программ » Лабораторный практикум » Программирование линейных и разветвляющихся алгоритмов
Программирование линейных и разветвляющихся алгоритмов
Лабораторная работа №2
Цель работы: Приобрести навыки программирования линейных и разветвляющихся вычислительных процессов.
Теоретические разделы для выполнения лабораторной работы
- Структура программы.
- Основные арифметические и математические операции и функции языка программирования.
- Структура логического оператора If
Задание к работе
Вычислить значение выражения с учетом области допустимых значений (по вариантам). Исходные данные задать самостоятельно.
- Программирование линейных вычислительных процессов
- Программирование разветвляющихся вычислительных процессов
Замечание
При выполнении лабораторной работы рекомендуется использовать метод разделения на части.
Пример
Вычислить выражение
Метод разделения на части состоит в следующем: исходное выражение разбиваем на элементарные части, например
а = sin(x)
b = x-2
c = cos(x)
После разбиения на части расчетная формула имеет следующий вид:
Область допустимых значений для этой функции:
b <> 0, c > 0
Текст программы с учетом ОДЗ:
Sub lr2_2() Dim x, y, a, b, c As Single x = Val(InputBox(“Введите значение х”)) a = sin(x) b = x-2 c = cos(x) If b<>0 Then If c>0 Then y=a/b-log(c) MsgBox “Результат Y = ” & y,, “Вывод результатов” Else MsgBox “Подлогарифмическое выражение < = 0”, vbCritical, “Ошибка” End If Else MsgBox “Знаменатель = 0” , vbCritical, “Ошибка” End If End Sub
Контрольные вопросы
- Основные математические функции языка программирования, используемые в программе.
- Функция для ввода данных с клавиатуры.
- Функция для вывода результатов на экран.
- Структура оператора If.
Варианты заданий
CC-BY-CA Анатольев А.Г., 31.01.2012