Количество просмотров: 58

Задача

Вычислить значение формулы V=-cos(2α) для всех α из диапазона [A,B] с шагом h

Скриншот рабочей области Excel

 

 

Реализация

Sub задача2()
    Dim v_A As Double
    Dim v_B As Double
    Dim v_H As Double
    Dim v_V As Double
    Dim count As Double
    v_A = Range("B9").Value
    v_B = Range("B10").Value
    v_H = Range("B11").Value
    count = (v_B - v_A) / v_H
    i = 0
    Do While i < count
        v_V = -Cos(2 * v_A * 3.14 / 180)
        Cells(i + 16, 1).Value = v_A
        Cells(i + 16, 2).Value = v_V
        v_A = v_A + v_H
        i = i + 1
    Loop
End Sub

© 2015-2019 Goodweb.me --- Карта сайта --- info@goodweb.me

Наверх