Здравствуйте. Помогите пожалуйста решить первую задачу на Visual Basic 6.0; вторую на Pasc
Здравствуйте.
Помогите пожалуйста решить первую задачу на Visual Basic 6.0; вторую на Pascal ABC, Dev C++ и Visual Basic 6.0.
Нужно очень срочно! Или хотя бы что-нибудь из этого.
Даю 46 баллов.
Гость
Ответ(ы) на вопрос:
Гость Первая часть, вторую не видно и не понятно что к чему
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
Не нашли ответ?
Похожие вопросы