Мои Конспекты
Главная | Обратная связь

...

Автомобили
Астрономия
Биология
География
Дом и сад
Другие языки
Другое
Информатика
История
Культура
Литература
Логика
Математика
Медицина
Металлургия
Механика
Образование
Охрана труда
Педагогика
Политика
Право
Психология
Религия
Риторика
Социология
Спорт
Строительство
Технология
Туризм
Физика
Философия
Финансы
Химия
Черчение
Экология
Экономика
Электроника

Лабораторная работа №2. Разработка функций для реализации простейших циклических алгоритмов





Помощь в ✍️ написании работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Для реализации циклических алгоритмов в VBA используются 3 вида операторов цикла For, While, Do Loop

1. Формат оператора For

For переменная = начальное_значение To конечное_значение [Step шаг]
[операторы]
[Exit For]
[операторы]

Next [перменная]

пример

For I = 1 To 10 For J = 1 To 10 For K = 1 To 10 ... Next K Next JNext I

2. Формат оператора While

While условие
[операторы]

Wend

пример

While i <= 10
s=s+i

i=i+1

Wend

3. Формат оператора Do ... Loop имеет две разновидности

Do[{While | Until} условие]
[операторы]
[Exit Do]
[операторы]

Loop

или

Do
[операторы]
[Exit Do]
[операторы]

Loop [{While | Until} условие]

Примеры функций циклических алгоритмов

 

  • функция вычисления суммы S=12+22+…+n2;

Public Function FunS(n)

Dim s As Integer

Dim i As Integer

s = 0

For i = 1 To n

s = s + i ^ 2

Next

FunS=s

End Function

  • функция вычисления приближенного значенияsin(x) по формуле у=x/1!-x3/3!+x5/5!-….+x2n+1/(2n+1)! с заданной погрешностью;

Public Function sinus(x, погрешность)

i = 2

p = x

s = x

While Abs(p) > погрешность

p = -p * x ^ 2 / (i * (i + 1))

i = i + 2

s = s + p

Wend

sinus = s

End Function

Задание.На VBA составить функции для:

1. найти , где n заданное число;

2. найти , где m и n заданные числа;

3. вычисления суммы S=103+113+…+n3;

Public Function FunS(n As Integer) As Double

Dim i As Integer

Dim sum_3

For i = 10 To n

sum_3 = sum_3 + i ^ 3

Next i

FunS = sum_3

End Function

4. найти , где m и n заданные числа;

5. вычислить сумму кубов трехзначных четных чисел;

6. вычислить сумму квадратов тех четырехзначных чисел, которые при делении на 5 дают в остатке 2;

7. найти сумму всех несократимых дробей, со знаменателем к, содержащихся между целыми числами m и n, где к простое число;

8. найти сумму S=1*100+2*99+3*98+…+ 50 *51

9. найти , где f(x) любая заданная функция;

10. найти , где n заданное число и f(x) любая заданная

11. вычисления произведения P=n!=1*2*….*n;

12. нахождения такой суммы S=1+2+3+…, для которой |S-M| минимально. M –заданное число;

13. вычисления суммы S= 1!+2!+3!+……+ n!;

14. вычисления приближенного значения cos(x) по формуле у=1-x2/2!+x4/4!-….+x2n/(2n)! для заданного числа n;

15. вычисления приближенного значения ex по формуле , с заданной точностью E;

 

Доверь свою работу ✍️ кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой



Поиск по сайту:







©2015-2020 mykonspekts.ru Все права принадлежат авторам размещенных материалов.