Нарисовать синусоиду и косинусоиду по заданным пользователем значениям - 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