Написать программу в vba (visual basic) 1. программа, позволяющая вычислить сумму чисел в интервале от а до в 2. программа, позволяющая вычислить сумму первых n чисел ряда 1+1/2+1/3+1/4+1/5 заранее большое !
Sub Z1() Dim A, B, sum, i As Integer A = InputBox("Введите первое число: ") B = InputBox("Введите второе число: ") For i = A To B sum = sum + i Next i MsgBox ("Сумма: " & sum) End Sub
Sub Z2() Dim n, sum, i As Integer n = InputBox("Введите число n: ") For i = 1 To n sum = sum + 1 / i Next i MsgBox ("Сумма ряда: " & sum) End Sub
Мультимедиа сейчас - это полноценное объединение компьютерных и других информационных технологий: видео, аудио, фото, кино, телекоммуникаций (телефон, телевидение, радиосвязь), не говоря уже о тексте и графике, как статической, так и динамической (анимационной). с приложений мультимедиа текст, графика, аудио- и видеоинформация объединяются в единое информационное поле, подобно тому как в кинофильме объединяются звук и движущееся изображение. однако в отличие от кинофильма мультимедиа представляет собой интерактивную среду, т. е. пользователь может процессом представления мультимедиа с различных средств ввода, таких как клавиатура и манипулятор мышь.
Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке. линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания.
например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
Sub Z1()
Dim A, B, sum, i As Integer
A = InputBox("Введите первое число: ")
B = InputBox("Введите второе число: ")
For i = A To B
sum = sum + i
Next i
MsgBox ("Сумма: " & sum)
End Sub
Sub Z2()
Dim n, sum, i As Integer
n = InputBox("Введите число n: ")
For i = 1 To n
sum = sum + 1 / i
Next i
MsgBox ("Сумма ряда: " & sum)
End Sub