![]() |
Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
Теоретические разделы для выполнения лабораторной работы
I. Использование логического оператора If при решении разветвляющихся вычислительных задач. II. Разновидности и применение оператора If. III. Оператор выбора Select Case. Задание. Вычислить значение выражения. Варианты заданий указаны в приложении 3, с. 11. Исходные данные задать самостоятельно. Часть 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 =
3. 4.
5.
6.
7.
8.
9.
10.
11. 12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28. 29.
30.
Лабораторная работа №4. Программирование циклических вычислительных процессов
Цель: Приобрести навыки программирования циклических вычислительных процессов. Теоретические разделы для выполнения лабораторной работы I. Использование циклических вычислительных процессов при решении задач. II. Операторы циклов языка программирования Visual Basic. Задание A. Вычислить значение выражения (см. приложение 2 – Задания к лабораторной работе №2 с.8) в цикле xЄ[xn; xk] с шагом Dx. Исходные данные задать самостоятельно, в программе должно быть не менее 7-8 циклов. Часть 1. Программирование циклических вычислительных процессов с использованием оператора цикла For … Next. Часть 2. Программирование циклических вычислительных процессов с использованием оператора цикла Do... Loop с предусловием (Do While … Loop или Do Until … Loop). Часть 3. Программирование циклических вычислительных процессов с использованием оператора цикла Do... Loop с постусловием (Do … Loop Until или Do … Loop While).
Задание Б. Выполнить вариант задания приложениея 4, задание Б. Замечание 1) При написании программ необходимо учитывать область допустимых значений (ОДЗ). 2) Если во второй части задания А использовался оператор Do While … Loop, то в третьей части задания А лабораторной работы следует использовать оператор цикла Do…Loop Until, и наоборот. Пример Вычислить выражение Метод разделения на части состоит в следующем: исходное выражение разбиваем на элементарные части, например: а = sin x b = x-2 c = cos x После разбиения на части расчетная формула имеет следующий вид: ОДЗ: b< > 0, c> 0 Текст программы (Часть 2, оператор цикла Do While … Loop) Sub lr4_2() Dim x, y, a, b, c, xn, xk, dx As Single xn=Val(InputBox(“Введите начальное значение хn”)) xk=Val(InputBox(“Введите конечное значение хk”)) dx=Val(InputBox(“Введите шаг dx”)) x=xn Do While x< =xk a=sin(x) b=x-2 c=cos(x) If b< > 0 then If c> 0 then y=a/b-log(c) Else Y=“Подлогарифмическое выражение < = 0” End If Else Y= “Знаменатель = 0” End If MsgBox “Результат Y = ” & y, , “Вывод результатов” x=x+dx Loop End Sub Контрольные вопросы Оператор цикла For … Next Операторы цикла Do While … Loop, Do Until … Loop Операторы цикла Do … Loop While, Do … Loop Until Приложение 4. Варианты заданий лабораторной работы №4. Задание Б. 1. Найти сумму ряда S=
2. Вычислить cos
3. Вычислить sin
4. Найти среднее арифметическое целых чисел от 5. Найти среднее арифметическое целых чисел от
6. Вычислить
7. Вычислить значение Тейлора с точностью до
8. Вычислить
9. Найти сумму ряда S=
10. Найти среднее геометрическое
11. Найти сумму ряда S=
12. Найти сумму ряда S=
13. Вычислить число сочетаний из
14. Вычислить значение выражения
15. Вычислить число размещений из
16. Вычислить приближенно значение бесконечной суммы с точностью до E=10 Значение
17. Вычислить приближенно значение бесконечной суммы с точностью до E=10 Значение
18. Вычислить значение функции Вычисления производить до тех пор, пока 19. Вычислить бесконечную сумму 20. Вычислить бесконечную сумму
21. Составить программу для вычисления и вывода на экран таблицы значений сумм для данные:
22. Переменная
23. Переменная
24. Вычислить значение
25. Вычислить значение
26. Вычислить значение
27. Вычислить с точностью до
28. Определить относительную погрешность вычисления факториала по формуле Стирлинга для значений
29. Посчитать, сколько отрицательных значений принимает функция 30. Вычислить бесконечную сумму Популярное:
|
Последнее изменение этой страницы: 2016-05-03; Просмотров: 659; Нарушение авторского права страницы