
2 задачи visual basic 6.0
#1
Опубликовано 21 March 2012 - 21:45
#2
Опубликовано 21 March 2012 - 22:04
21 Март 2012 - 17:45 'SAVok' писал:
То, что во второй задачей названо функцией, функцией не является.требуется помощь в решении 2 задач
P.S. А вариант погуглить 2 минут онлайн самоучитель не рассматривали?
#3
Опубликовано 21 March 2012 - 22:18
#4
Опубликовано 21 March 2012 - 22:24
21 Март 2012 - 18:18 'SAVok' писал:
Сделать за Вас - это не помощь.я впечатлен вашей эрудицией, и мудрым советом, но как насечет помощи
А совет не так плох. Задача очень проста. Доступ к поисковым системам и умение читать в течении часа принесут плоды.
Для меня это вопрос принципиальный. Когда люди говорят, что плохой Фурсенко даёт им плохое образование, а с другой стороны не способны приложить минимальных усилий для получения знаний - это как-то подозрительно.
P.S. Если говорить о помощи - я могу ответить на Ваши вопросы по VB вместо гугла. Но программу писать не стану.
#5
Опубликовано 21 March 2012 - 22:28
#6
Опубликовано 21 March 2012 - 22:36
#7
Опубликовано 21 March 2012 - 22:37
Для решения задачи 1 нам необходимо следующее:
1. Ввести данные с клавиатуры.
2. Сгенерировать нужные значения переменной Х и вычислить заданную функцию для этих значений.
3. Вывести вычесленные значения на экран.
План решения задачи 2.
Задача 2 поставленна некорректно, т.к. Y(X) не является функцией (потому что некоторым значениям аргумента соответствует несколько значений функции). В связи с этим необходимо уточнить условия задачи.
Если предположить, что мы имеем корректное условие, то план решения будет таков:
1. Задать агрумент Х функции Y(X) (непосредственно в программе, организовать ввод с клавиатуры, прочитать из файла, etc) .
2. Определить, какому интервалу принадлежит текущий аргумент, и в соответствии с этим вычислить значение функции на этом аргументе.
3. Вывести вычесленное значение на экран.
#8
Опубликовано 21 March 2012 - 22:56
#9
Опубликовано 22 March 2012 - 03:00
Dim i, x, y, a, b, c As Integer x = InputBox("Введите первоначальное значение x") a = InputBox("Введите значение a") b = InputBox("Введите значение b") c = InputBox("Введите значение c") For i = 1 To 15 y = a * x * 3 - b * x - c MsgBox ("Y(" & i & ") = " & y) x = x + 2 Next

#10
Опубликовано 22 March 2012 - 09:15
y = a * x ^ 3 - b * x - c
На работе нет VB. Если до вечера никто не поможет - то я помогу.
25 Июнь 2011 - 18:26 'Farxat' писал:
P.S. Учитывая особенности этого форума хочу добавить, что дети из серии "даю, 100, ну ладно 150" восприниматься всерьез не будут.
08 Июль 2011 - 11:51 'miver' писал:
ты такой глупенький, что это уже даже не смешно
#11
Опубликовано 22 March 2012 - 10:54
Вот 1я задача.
Во второй задаче не совсем понятно. Или я что то не понимаю, или тут не верно. Например при X=9 Y должен считаться по первому или второму условию?
Сделал задачу №2 исходя из суловия:
y=-14x, при x<=0
y=x^2+5x, при 0<x<100
y=(x+1)^3, при x>=100
Если надо по другому - сами поправите)
Вложенные файлы
25 Июнь 2011 - 18:26 'Farxat' писал:
P.S. Учитывая особенности этого форума хочу добавить, что дети из серии "даю, 100, ну ладно 150" восприниматься всерьез не будут.
08 Июль 2011 - 11:51 'miver' писал:
ты такой глупенький, что это уже даже не смешно
#12
Опубликовано 22 March 2012 - 13:27
Цитата
сам не знаюВо второй задаче не совсем понятно. Или я что то не понимаю, или тут не верно. Например при X=9 Y должен считаться по первому или второму условию?
спасибо за помощь
Посетителей, читающих эту тему: 2
0 пользователей, 2 гостей, 0 анонимных пользователей