Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Програмирование формул / 10 сообщений из 10, страница 1 из 1
20.05.2011, 23:03
    #37272319
Yana123
Yana123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
можете проверить?
сначало я заменила имя в задачи на имя в программе:
a=a
b=b
x=x
(sin(75')+cos(ab))/2=n
потом сделала для удобства условия в виде (на картинке)

а вот код грограммы:
Sub ProgramirovanieFormul()
Dim x as Boolean, a as Double, b as Double, n as Double
a=InputBox("введите значение a")
b=InputBox("введите значение b")
x=InputBox("введите значение x")
If x=o Then
y=1
ElseIf x=П Then
y=-1
Else x=(п/a)-ant(y/(1-(y)^2)^1/2) Then
(y>-1) AND (y<1)
End If
MsgBox("Y="& Str(y))
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2011, 23:06
    #37272322
Yana123
Yana123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2011, 23:25
    #37272336
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
вынос мозга.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2011, 00:06
    #37272365
Yana123
Yana123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
скукотища,

не правильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2011, 00:11
    #37272370
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
Yana123,
абсолютно!
Задача: ... вычислить X
В вашей "программе", уже на третьей строке: "Ведите x"
И это ещё "цветочки". Дальше, как уже писал, вынос мозга.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2011, 17:11
    #37272751
Yana123
Yana123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
скукотища,

а можете помочь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2011, 23:16
    #37273609
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
Yana123,
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub ProgramirovanieFormul()
Const pi180# =  1 .74532925199433E- 02 
Dim a#, b#, n#, x#

a = CDbl(InputBox("введите значение a"))
b = CDbl(InputBox("введите значение b"))

n =  0 . 5  * (Sin( 75 # * pi180) + Cos(a * b))
n =  2 # * Atn(Sqr(( 1 # - n) * ( 1 # + n))) + Abs(a) ^ Abs(b)

x = n / ((a +  0 . 7 ) ^  0 . 2  + a * a + Sqr(Abs(a + b)))

MsgBox "x= " & CStr(x)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 15:31
    #37274662
Yana123
Yana123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
скукотища,

это правильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 19:57
    #37275305
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
Yana123,
правильно (вероятность .95 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 22:18
    #37275448
Yana123
Yana123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмирование формул
скукотища,

спасибо большое!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Програмирование формул / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 161ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158699]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 13ms
total:  161ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]