Главная страница
Навигация по странице:

  • Задача 2 : Дополнить созданную при выполнении предыдущего задания таблицу новыми строками с различными значениями выработанной электроэнергии, которым соответствуют различные потери.

  • Решение 1-3 : Function QH (Q, P) QH = Q * (100 - P) / 100 End Function Sub main()


  • Решение: Function y(x) a = 1 + Abs (0.2 - x)

  • y = y + Exp (-x) – Tan (x ^ 3.13) y = y + Sqr (x) + Cos (x + 1) End Function Sub main()

  • Контрольная работа ИКТ. Задача 1 Написать программу на vba для функции пользователя, которая вычисляет получаемую потребителем электроэнергию


    Скачать 235.28 Kb.
    НазваниеЗадача 1 Написать программу на vba для функции пользователя, которая вычисляет получаемую потребителем электроэнергию
    Дата25.01.2022
    Размер235.28 Kb.
    Формат файлаdocx
    Имя файлаКонтрольная работа ИКТ.docx
    ТипКонтрольная работа
    #342210
    Контрольная работа по ИКТ



























    Задача 1: Написать программу на VBA для функции пользователя, которая вычисляет получаемую потребителем электроэнергию QH по количеству электроэнергии Q, которое вырабатывается производителем, и величие потерь P (%) при ее передаче QH = Q(100-P)/100. Задача 2: Дополнить созданную при выполнении предыдущего задания таблицу новыми строками с различными значениями выработанной электроэнергии, которым соответствуют различные потери.
    Задача 3: Дополнить предыдущую таблицу расчетами получаемой электроэнергии при условии постоянства потерь, которые равны 5%.
    Решение 1-3:
    Function QH (Q, P)
    QH = Q * (100 - P) / 100
    End Function
    Sub main()
    Q = Cells(2;1)
    P = Cells(2;2)
    Z = QH(Q, P)
    Cells(2;3) = Z
    End Sub



    Function QH (Q)
    QH = Q * 0.95
    End Function
    Sub main()
    Q = Cells(2;1)
    Z = QH(Q)
    Cells(2;4) = Z
    End Sub



    Задача 4: Написать программу на VBA для следующей функции пользователя, используя ее дополнить таблицу вычисленными значениями и построить график зависимости y=y(x):
    Решение:
    Function y(x)
    a = 1 + Abs (0.2 - x)
    b = 1 + x + x * x
    y = a / b + Sin(x)
    y = y + Log (x + 2)
    y = y – Atn (x ^ 3 + 1)
    y = y + Exp (-x) – Tan (x ^ 3.13)
    y = y + Sqr (x) + Cos (x + 1)
    End Function
    Sub main()
    x = Cells(1;2)
    z = y(x)
    Cells(2;2) = z
    End Sub






    написать администратору сайта