Здравствуйте. Помогите пожалуйста решить первую задачу ** Visual Basic 6.0; вторую **...

Question

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

---

Comments

Это в какой школе требуют на трех языках решать?

---

второго задание не видно

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

Comments

Можно немного пояснений как это примерно должно выглядить в самом VB ?)

---

По поводу второго задания - попробуйте открыть в новой вкладке, либо попробуйте вставить изображение в Word.

---

индексы не видно, а в них вся суть

---

чему равно с_1 с_2 с_3, что такое h

---

ну в vb оно и должно так выглядеть вроде

---

Я добавил фотографию высокого качества второй задачи. Поможете, пожалуйста ?)

---

http://znanija.com/task/17904868