Question

Здравствуйте. Помогите пожалуйста решить первую задачу на Visual Basic 6.0; вторую на Pascal ABC, Dev C++ и Visual Basic 6.0. Нужно очень срочно! Или хотя бы что-нибудь из этого. Даю 46 баллов.

Answer 1

Первая часть, вторую не видно и не понятно что к чему

function Power(a, n)
    d = 1
    for i = 1 to n
        d = d * a
    next
    Power = d
End Function

Sub Zadanie17890266()
    ro = 0
    ro = InputBox("ro =")
    M = 0
    if ro >= 845 and ro < 924 then
        M = (0.658 * Power(ro, 2) / (8.56 * Power(10, 5) - Power(ro, 2)))
    elseif ro > 780 and ro < 845 then
        M = (0.456 * Power(ro, 2) / (8.33 * Power(10, 5) - Power(ro, 2)))
    end if
    MsgBox M
End Sub