Кто-нибудь разбирается?)
Нужна небольшая помощь.
Вот задание:
Создать функцию, вычисляющую корень восьмой степени.
Code:Public Function кор_вос (Argument As Double) As Double
Чт_корень =Sqr(Sqr (Sqr (Argument)))
End Function
Создать форму, позволяющую вводить значение аргумента и выводить значение корня восьмой степени. Создать программу для вычисления корня восьмой степени, использующую функцию Чт_корень.
Внешний вид выглядит вот так.
___________________________________________________________
Здравые попытки закончились вот этим:
Code:Public Function кор_вос (Argument As Double) As Double
Чт_корень = Sqr(Sqr(Sqr(Argument)))
кор_вос = Чт_корень
End Function
Public Sub Command1_Click()
Argument = Text1
Call кор_вос
Label2.Caption = "Корень восьмой степени равен:" + Str(Argument)
End Sub
Решить нужно обязательно через это паблик-функцию.
ЗЫ. Сабжевый язык открываю 2ой раз в жизни.
Спасибо всем, кто поможет мне в нем разобраться.