Нарисовать синусоиду и косинусоиду по заданным пользователем значениям - VB

Формулировка задачи:

Нужна программа, которая бы рисовала синусоиду и косинусоиду по заданным пользователем значениям. Заранее спс.

Код к задаче: «Нарисовать синусоиду и косинусоиду по заданным пользователем значениям - VB»

textual
LINE -(x, Y(x))
NEXT
END SUB
 
FUNCTION Y(BYVAL x AS SINGLE)
IF Option1.Value = True THEN
Y = Text1 * (SIN(Text2 * (x ^ Text4)) ^ Text3)
Label5 = Text1 & " * (sin(" & Text2 & "(x^" & Text4 & " ))^" & Text3 & ")"
ELSEIF Option2.Value = True THEN
Y = Text1 * (COS(Text2 * (x ^ Text4)) ^ Text3)
END IF
Debug.PRINT Y
END FUNCTION

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ