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

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. Найти среднее геометрическое всех четных чисел от 10 до 21 и среднее геометрическое всех нечетных чисел из того же интервала (в одном цикле).

 

11. Найти сумму ряда S= + с точностью до E=10 .

 

12. Найти сумму ряда S= с точностью до E=10 .

 

13. Вычислить число сочетаний из по по формуле С , где , целые числа ввести с клавиатуры.

 

14. Вычислить значение выражения

, где ввести с клавиатуры.

 

15. Вычислить число размещений из по по формуле

, где целые числа и ввести с клавиатуры .

 

16. Вычислить приближенно значение бесконечной суммы с точностью до E=10

Значение и точность расчетов ввести с клавиатуры.

 

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

точностью до E=10

Значение и точность расчетов ввести как константы.

 

18. Вычислить значение функции для .

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

19. Вычислить бесконечную сумму с точностью до E=10 .

20. Вычислить бесконечную сумму с точностью до E=10 .

 

21. Составить программу для вычисления и вывода на экран таблицы значений сумм

для , изменяющегося с шагом . Исходные

данные: .

 

22. Переменная изменяется от до включительно с шагом . Найти наименьшее значение функции на этом интервале.

 

23. Переменная изменяется с шагом на интервале . Найти наибольшее значение функции для , принимающих указанное значение. Результат печатать.

 

24. Вычислить значение многочлена Лагерра для по рекуррентной формуле :

.

 

25. Вычислить значение многочлена Лежандра для по рекуррентной формуле :

.

 

26. Вычислить значение многочлена Эрмита для ,

по рекуррентной формуле :

.

 

27. Вычислить с точностью до значение дилогарифма для пяти значений по его разложению в ряд

, .

 

28. Определить относительную погрешность вычисления факториала по формуле Стирлинга

для значений .

 

29. Посчитать, сколько отрицательных значений принимает функция , если изменяется от 0, 25 до 3 с шагом 0, 05. Предусмотреть случай, когда функция терпит разрыв.

30. Вычислить бесконечную сумму с точностью до Е=10^-3.

⇐ Предыдущая12345Следующая ⇒

Поделиться:

Популярное:

1. A. обеспечение выполнения расписания движения, корректировка движения в случае необходимости, оказание техпомощи ПС на линии, принятие мер в случае ДТП и др.
2. C.Для предоставления возможности сравнивать рыночные стоимости акций компаний одной отрасли
3. II этап. Обоснование системы показателей для комплексной оценки, их классификация.
4. II. ТЕМЫ ДЛЯ КОНТРОЛЬНЫХ РАБОТ
5. III. Источники для изучения Греческой церкви XVII в.
6. IV. Источники для изучения той же истории XVIII в.
7. IX. ЗНАЧЕНИЕ «УНИВЕРСАЛИЙ» КОСМОС, ВРЕМЯ, ПРОСТРАНСТВО И РЕАЛЬНОСТЬ ДЛЯ ПСИХОДРАМЫ
8. IX. Магическое заклинание для Дальнего путешествия
9. Teсm для проверки реальности соединения с высшим Я
10. V. Источники для изучения Греческой церкви XIX в.
11. VIII. Сигналы, применяемые для обозначения поездов, локомотивов и другого железнодорожного подвижного состава
12. XII. Большинство приемлемых для организма способов поведения совместимы с представлениями человека о самом себе.