ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / программные коды.
20 сообщений из 20, страница 1 из 1
программные коды.
    #38475947
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
народ, кому не сложно составьте плиз программные коды.
...
Рейтинг: 0 / 0
24.11.2013, 21:57
| Ответить | Цитировать | Написать  
программные коды.
    #38475948
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
знаю , что глупая просьба, но мне очень надо. поэтому отвечайте только по проммированию пожалуйста) заранее большое спасибо
...
Рейтинг: 0 / 0
24.11.2013, 21:59
| Ответить | Цитировать | Написать  
программные коды.
    #38475949
qwrty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrty112
Гость
tortik2знаю , что глупая просьба, но мне очень надо. поэтому отвечайте только по проммированию пожалуйста) заранее большое спасибо
он ещё условия ставит, ты посмотри
или "она" ?
...
Рейтинг: 0 / 0
24.11.2013, 22:00
| Ответить | Цитировать | Написать  
программные коды.
    #38475977
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
tortik2,

для начала запиши все формулы в стандартном виде. например: 3/(4^2)
...
Рейтинг: 0 / 0
24.11.2013, 22:37
| Ответить | Цитировать | Написать  
программные коды.
    #38476018
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
Клеверtortik2,

для начала запиши все формулы в стандартном виде. например: 3/(4^2), потом что? ( и что означает quot?)
...
Рейтинг: 0 / 0
24.11.2013, 23:31
| Ответить | Цитировать | Написать  
программные коды.
    #38476019
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
qwrty112или "она" ?
онtortik2я сам по этой проге не понимаю ничего
...
Рейтинг: 0 / 0
24.11.2013, 23:32
| Ответить | Цитировать | Написать  
программные коды.
    #38476025
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
qwrty112tortik2знаю , что глупая просьба, но мне очень надо. поэтому отвечайте только по проммированию пожалуйста) заранее большое спасибо
он ещё условия ставит, ты посмотри
или "она" ? ...
...
Рейтинг: 0 / 0
24.11.2013, 23:37
| Ответить | Цитировать | Написать  
программные коды.
    #38476056
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
tortik2, сначала выполни 1й шаг. выложи, что получилось. потом подскажу дальше
...
Рейтинг: 0 / 0
25.11.2013, 00:28
| Ответить | Цитировать | Написать  
программные коды.
    #38476067
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
Клеверtortik2, сначала выполни 1й шаг. выложи, что получилось. потом подскажу дальше
cos = (x1*x2+y1*y2)/(sqrt(x1^2+y1^2)*sqrt(x2^2+y2^2)) -1 задача
y = ((2^(-x))*e^x)- 2 задача
насчет третьего не уверен, но все же
z = x*sqrt(B^2+c^2)
z = min{sqrt(b),x^2,x+c}
z= max{ln(b), x+c}
как то так, могу ошибиться(
...
Рейтинг: 0 / 0
25.11.2013, 00:54
| Ответить | Цитировать | Написать  
программные коды.
    #38476093
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
1)tortik2cos = (x1*x2+y1*y2)/(sqrt(x1^2+y1^2)*sqrt(x2^2+y2^2)) -1 задача затем находишь арккосинус.
Код: vbnet
1.
2.
3.
4.
5.
If A = 1 Then
ArcCos = 0
else
ArcCos = Atn(-A / Sqr(-A * A + 1)) + 2 * Atn(1)
end if

если честно, сам не понимаю, что за фигня, но в инете уверяют, что арккосинус находится именно так

2) с построить таблицу нужно уточнить. какую где зачем. а так создаёшь переменную max
Код: vbnet
1.
2.
dim max as double
dim x as double

присваиваешь max значение переменной y при x=-1. потом в цикле
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
for x=-1 to 1
if x<0 then
y=""""""
else
y=""""""
end if
if y>max then max=y
x=x+0.1
next x
...
Рейтинг: 0 / 0
25.11.2013, 02:17
| Ответить | Цитировать | Написать  
программные коды.
    #38477094
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
блин я все равно ничего не понял. но все равно спасибо, и еще 1 задачу ты так и не написал
...
Рейтинг: 0 / 0
25.11.2013, 17:35
| Ответить | Цитировать | Написать  
программные коды.
    #38477096
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
да, и зачем мне арккосинус, когда мне угол надо найти.
...
Рейтинг: 0 / 0
25.11.2013, 17:37
| Ответить | Цитировать | Написать  
программные коды.
    #38477125
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
tortik2и еще 1 задачу ты так и не написал
каков негодяй! )

и действительно, зачем там арккосинус?
...
Рейтинг: 0 / 0
25.11.2013, 17:56
| Ответить | Цитировать | Написать  
программные коды.
    #38477207
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
Shocker.Proи действительно, зачем там арккосинус?он находит косинус искомого угла tortik2 cos = (x1*x2+y1*y2)/(sqrt(x1^2+y1^2)*sqrt(x2^2+y2^2)) а сам угол находится через арккосинус tortik2 и еще 1 задачу ты так и не написал 3ю? ты не написал условие третьей задачи, поэтому я принял её за продолжение второй. я же не экстрасенс. тогда:

2)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
dim max as double
dim x as double
dim y as double
x=-1
max = ((2^(-x))*e^x)
for x=-1 to 1
y = ((2^(-x))*e^x)
'заносишь y в таблицу
if y>max then max=y
x=x+0.1
next x


3)ввод данных пользователем:
Код: vbnet
1.
2.
Dim y As Double
x = InputBox("введите x", "ввод данных")
...
Рейтинг: 0 / 0
25.11.2013, 18:56
| Ответить | Цитировать | Написать  
программные коды.
    #38477212
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
 
Shocker.Proи действительно, зачем там арккосинус?
это сарказм был? а то я не сразу сообразил. ставь смайлики, чтоб можно было различить]
...
Рейтинг: 0 / 0
25.11.2013, 18:58
| Ответить | Цитировать | Написать  
программные коды.
    #38477215
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
ввод данных в третьей задаче...
Код: vbnet
1.
2.
Dim x As Double
x = InputBox("введите x", "ввод данных")
...
Рейтинг: 0 / 0
25.11.2013, 18:59
| Ответить | Цитировать | Написать  
программные коды.
    #38477297
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
Клевер,

спасибо большое, но у меня возник такой вопрос, как через арккосинус найти угол?
...
Рейтинг: 0 / 0
25.11.2013, 20:40
| Ответить | Цитировать | Написать  
программные коды.
    #38477310
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
tortik2,

арккосинус-функция,обратная косинусу
cos a=x
a = arccos x
...
Рейтинг: 0 / 0
25.11.2013, 20:48
| Ответить | Цитировать | Написать  
программные коды.
    #38477311
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
арккосинус - это и есть нужный тебе угол)
...
Рейтинг: 0 / 0
25.11.2013, 20:50
| Ответить | Цитировать | Написать  
программные коды.
    #38477489
tortik2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tortik2
Гость
Клевер,

спасибо большое дружище)
...
Рейтинг: 0 / 0
26.11.2013, 00:33
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / программные коды.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=GermanU&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 13ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 677ms
total:  878ms
созд. / загр.: 878ms
x
x
Закрыть


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