Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
reqmind
0 / 0 / 0
Регистрация: 16.12.2014
Сообщений: 18
1

Вычислить значение функции

06.06.2015, 05:37. Просмотров 1298. Ответов 1
Метки нет (Все метки)

Дан массив x(1Xn)
Построен массив y

y(x) =http://www.cyberforum.ru/cgi-bin/latex.cgi? \begin{cases}<br />
x<0  \Rightarrow  y(x)=|x| \\ <br />
x+0 \Rightarrow  y=1  \\ <br />
y>0 \Rightarrow  y=x+1 <br />
\end{cases}


Вот что сотворила, но "оно" не работает. Помогиет пожалуйста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
sub abc()
Dim k as integer
Dim l as integer
 
Dim n as integer
Dim x() as integer
Dim y() as integer
ReDim y(1,n) as integer
ReDim(1,n) as integer
 
n=inputbox("vvedite n")
 
for l=1 to n
 
if k<0 then
l+abs(k)+1
else
if k=0 then
l=1
else
if k>0 then
l=k+1
End If
End If
End If
 
Next l
y(l)=l
ThisWorkbook.sheets(1).cells(2,3)=y(l)
 
End Sub
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2015, 05:37
Ответы с готовыми решениями:

Вычислить значение функции, значение которой зависит от попадания координат точки на выделенную серым область
Заранее Спасибо) Задание. Разработать алгоритм и составить по нему программу для вычисления...

Вычислить значение функции без учета области определения функции
Задание. Разработать алгоритм и составить по нему программу для вычисления значений функции y =...

Вычислить значение функции с учетом области определения функции
Задание 2. Разветвляющиеся вычислительные процессы. Разработать алгоритм и составить по нему...

Вычислить значение функции
жена плачет, говорит через неделю из универа попрут, а и мы ничего сделать не можем, помогу как...

Вычислить значение функции
Помогите пожалуйста сделать одно из 3х заданий или 3 если сможете. 1. Найти максимальное и...

1
Alex77755
10981 / 3439 / 591
Регистрация: 13.02.2009
Сообщений: 10,218
06.06.2015, 11:59 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

1. Зачем объявлен х если он не фигурирует нигде
2. Редимится y при ещё пустой n
3. второй редим что вообще редимит
4. Если к меньше-равно-больше! Так оно пустое! его никто не назначал
5. Переменной цикла не стоит назначать значение! Не для этого она нужна.Иначе результат не предсказуем. Например зацикливание
6. после окончания цикла в переменной счётчика цикла может быть только величина больше "To" на величину шага. В данном случае на 1. И, следовательно, элемента массива с таким индексом нет. Так как редим был до n.
7. надо прислушиваться к бейсику. Он показывает ошибки
8. темы нужно размещать в соответствующем разделе
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub abc()
 
Dim n%
Dim k%
Dim x%
Dim y() As Integer
 
 
n = InputBox("vvedite n", "", -2)
k = InputBox("vvedite n", "", 2)
 
ReDim y(n To k, 1)
For x = n To k
    y(x, 0) = x
    If x < 0 Then
        y(x, 1) = Abs(x)
    Else
        If k = 0 Then
             y(x, 1) = 1
        Else
             y(x, 1) = x + 1
        End If
    End If
Next x
 
ThisWorkbook.Sheets(1).Cells(2, 3).Resize(UBound(y) - LBound(y) + 1, 2) = y
 
End Sub
0
Изображения
  
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2015, 11:59

Вычислить значение функции у=а/x+b
Помогите, пожалуйста, решить задачку: Вычислить значение функции у=а/x+b при x=1,2,...10 (a, b...

Вычислить значение функции y = a/x + b
Здравствуйте! Прошу помощи. Не знаю, как правильно написать код. Код выдаёт мне в Эксель...

Вычислить значение функции
Function F(x) F(x) = (4.5 - 4 * Cos(2 * x)) / (2 * (x + 2.4)) + 9.36 End Function Private Sub...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.