Разработать информационную технологию вычисления предела последовательности - VB
Формулировка задачи:
Помогите пожалуйста с решением вот этих заданий:
1. Разработать информационную технологию, позволяющую исследовать изменение значений угла между двумя прямыми, заданными уравнениями в общем виде, при изменении коэффициента А1 от начального значения А10 до конечного значения А1k с шагом A1 и коэффициента B2 от начального значения B20 до конечного значения B2k с шагом B2. Значения коэффициентов В1 и А2 не изменяются.
Внешний цикл – с постусловием, внутренний цикл – с предусловием.
Для отладки принять: А10 = 17, А1k = 21, A1 = 2; B20 = 0, B2k = 10, B2 = 5.
2. Разработать информационную технологию вычисления предела последовательности с точностью до эпсилант. Начальное значение n принять равным 1.
Решение задачи: «Разработать информационную технологию вычисления предела последовательности»
textual
Листинг программы
Private Sub Command1_Click() Dim n As Single, f1 As Single, f2 As Single e = Val(Text1.Text) n = 1 f1 = (n + 1) / n n = 2 f2 = (n + 1) / n Do f1 = f2 n = n + 1 f2 = (n + 1) / n Loop While f1 - f2 >= e MsgBox "Ответ с точностью до " & e & Chr(10) & "равен " & f1, 64, "ОТВЕТ" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д