Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 226
от 22.02.2006, 14:51

Администратор:Калашников О.А.
В рассылке:Подписчиков: 118, Экспертов: 19
В номере:Вопросов: 1, Ответов: 1


Вопрос № 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, означает в степени
*-умножить
большое спасибо за помощь.
Отправлен: 17.02.2006, 11:10
Вопрос задал: Копысов Николай Александрович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.14 (бета) от 09.02.2006
Яндекс Rambler's Top100

В избранное