Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kristi1
11 / 11 / 2
Регистрация: 07.03.2010
Сообщений: 465
1

Вывести таблицу значений x и y

24.05.2012, 23:58. Просмотров 858. Ответов 6
Метки нет (Все метки)

Добрый вечер! Помогите пожалуйста вывести сетку значений X и Y с шагом 0.2
Х меняется от 1 до 2
функция такая: Y = exp(a + x / ax)
Вот код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub tabl()
Dim x, Y, exp, a, h, S, S1, AsSingle
x = 1
h = 0.2
a = 2
While x <= 2
Y = exp(a + x / ax)
Y = Format(Y, " ### 0.000")
S = S & Str(Y) + " "
S1 = S1 & Str(x) + " "
x = x + h
x = Format(Y, " ### 0.000")
Wend
MsgBox "x=" & S1 & " " & (Chr(10) & Chr(13)) & "Y=" & S & " " & (Chr(10) & Chr(13)), vbinfomation, " значение Х и функции F"
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2012, 23:58
Ответы с готовыми решениями:

Вычислить и вывести таблицу значений с=n!/k!(N-k)!
Вычислить и вывести таблицу значений с=n!/k!(N-k)! для n=2...8 b k=1...(n-1). Для расчета...

Вывести таблицу значений функций g(x) для х от -20 до 20 с шагом при b= -0.2
Здравствуйте !!! помогите очень надо сделать лабораторную.. вот какое задание: Вывести таблицу...

Выод значений в таблицу
Компания выпускает несколько видов изделий различной стоимости. Известны названия изделий, объемы...

Составить таблицу значений
Составить таблицу значений функции y = ln(x), при x&gt;0 ...

Построить таблицу значений по условию
Дана задача. При реализации, в таблицу не считаются значения Y. Либо уходит в бесконечный цикл....

6
SoftIce
es geht mir gut
11207 / 4634 / 1167
Регистрация: 27.07.2011
Сообщений: 11,355
Завершенные тесты: 1
25.05.2012, 07:00 2
Сама функция неправильно записана, получаются одинаковые значения при разных аргументах.

Y = exp(a + x / (a * x))
??????

Каждый проход мы вычисляем Y = exp(2.5), какой в этом смысл?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub tabl()
Dim x  As Double, Y  As Double, a  As Double
Dim h  As Double, S  As String, S1  As String
x = 1: h = 0.2: a = 2
 While x <= 2
    Y = exp(a + x / (a * x))
    Y = Format(Y, " ### 0.000")
    S = S & Str(Y) + " "
    S1 = S1 & Str(x) + " "
    x = x + h
 Wend
MsgBox "x=" & S1 & " " & (Chr(10) & Chr(13)) & "Y=" & S & " " & (Chr(10) & Chr(13)), vbinfomation, " значение Х и функции F"
End Sub
 
Private Sub Form_Load()
   tabl
End Sub
0
kristi1
11 / 11 / 2
Регистрация: 07.03.2010
Сообщений: 465
25.05.2012, 18:51  [ТС] 3
SoftIce, Y = exp*(a + x / a * x)
0
SoftIce
es geht mir gut
11207 / 4634 / 1167
Регистрация: 27.07.2011
Сообщений: 11,355
Завершенные тесты: 1
25.05.2012, 19:19 4
Цитата Сообщение от kristi1 Посмотреть сообщение
exp*
Так не бывает.
0
kristi1
11 / 11 / 2
Регистрация: 07.03.2010
Сообщений: 465
25.05.2012, 19:20  [ТС] 5
SoftIce, Тогда видимо ошибка, попросили сделать вот и не понимаю...
0
SoftIce
es geht mir gut
11207 / 4634 / 1167
Регистрация: 27.07.2011
Сообщений: 11,355
Завершенные тесты: 1
25.05.2012, 19:26 6
Y = Exp(a + x / a * x)
Вот так будет похоже на правду, и значения разные получаются.
Оставьте код как есть, а после уточнения функции замените ей 6-ю строку.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub tabl()
Dim x  As Double, Y  As Double, a  As Double
Dim h  As Double, S  As String, S1  As String
x = 1: h = 0.2: a = 2
 While x <= 2
    Y = Exp(a + x / a * x)
    Y = Format(Y, " ### 0.000")
    S = S & Str(Y) + " "
    S1 = S1 & Str(x) + " "
    x = x + h
 Wend
MsgBox "x=" & S1 & " " & (Chr(10) & Chr(13)) & "Y=" & S & " " & (Chr(10) & Chr(13)), vbinfomation, " значение Х и функции F"
End Sub
 
Private Sub Form_Load()
   tabl
End Sub
1
kristi1
11 / 11 / 2
Регистрация: 07.03.2010
Сообщений: 465
25.05.2012, 20:25  [ТС] 7
Спасибо большое)
0
25.05.2012, 20:25
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2012, 20:25

Постройте таблицу и вычислите сумму значений функции y=f(x)
Постройте таблицу и вычислите сумму значений функции y=f(x) при 0.5&lt;y&lt;1.5 при изменении x на...

Задача:Составить таблицу значений функций SIN, COS, TG
Здравствуйте! Помогите пожалуйста решить задачу: Таблица функции. Составить таблицу значений...

Написать программу, которая выводит таблицу значений функции y = x
Задали 2 задачи на курсовую работу, что то не получается решить, помогите пожалуйста, заранее...


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

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

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