Вопрос № 35603: Здравствуитй, есть проблема, нужно решить задачу и составить блок схему алгоритма и программу на языке BASIC.
y=13Xв2+20X
y=5*13X+sin20X
условия выбора выражения X>0 и X<=0
интервал изменения аргумента X=[-1,2-1,2]
шаг 0,2<b...
Вопрос № 35.603
Здравствуитй, есть проблема, нужно решить задачу и составить блок схему алгоритма и программу на языке BASIC.
y=13Xв2+20X
y=5*13X+sin20X
условия выбора выражения X>0 и X<=0
интервал изменения аргумента X=[-1,2-1,2]
шаг 0,2
PS. в2, означает в степени
*-умножить
большое спасибо за помощь.
Отвечает: AlexanderZh
Здравствуйте, Копысов Николай Александрович!
sub Main()
dim y as single, x as single
for x=-1.2 to 1.2 step 0.2
if x>0 then
y=13*x^2+20*x
else
y=5*13*x+sin(20*x)
end if
' далее код для выдода результата
' например такой
debug.print y ' для VB 5, 6
' или такой
console.writeline(y) ' для VB.NET
' или так
print y ' для DOS версии
next
end
' p.s. y при выводе можно заменить на такое: "x=" & x & "; y=" & y
Ответ отправил: AlexanderZh (статус: 4-ый класс)
Отправлен: 17.02.2006, 11:36