Программирование алгоритмовразветвляющейся и циклической структуры (Условные операторы) - VB
Формулировка задачи:
всем привет, помогите составить программу, а то лабу сдавать скоро а я в этом ничего не понимаю задание во вложеной картинке
Решение задачи: «Программирование алгоритмовразветвляющейся и циклической структуры (Условные операторы)»
textual
Листинг программы
dim a as float
dim x as float
dim w as double
a=inputbox("???")
x=1
do while x<5
select case x
case is < a
w=x*(x-a)^(1/3)
case a
w=x*sin(a*x)
case else
w=exp(-a*x)*cos(a*x)
end select
msgbox w
x=x+0.5
loop