Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание математической программы / 16 сообщений из 16, страница 1 из 1
18.12.2013, 16:29
    #38505412
МашаМаша1234567890
МашаМаша1234567890
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Информатик задал нам курсовую по визуал бейсик(на неделю), не объяснив ничего.. До этого занимались только в экселе и ворде...
помогите пожалуйста написать код программы! буду очень-очень благодарна!

Заданы уравнения двух пересекающихся прямых на плоскости: y1=k1x+b1, y2=k2x+b2. Напишите программу, вычисляющую угол между ними в градусах.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 16:45
    #38505447
Gwa
Gwa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
МашаМаша1234567890,

тангенс искомого угла = k2-k1 / (1 + k1*K2)

отдельно нужно рассмотреть случай когда
знаменатель = 0
тогда угол = 90 град
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 16:45
    #38505449
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Напиши на VBA в Экселе, раз в нём работали. Код совместим, на таких задачах - практически один к одному.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 17:42
    #38505549
усегдаготофф
усегдаготофф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
МашаМаша1234567890,

Готов помочь, куда писать условия?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 18:18
    #38505632
МашаМаша1234567890
МашаМаша1234567890
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
усегдаготофф,

Сюда))
я написала по примеру одной программы, но что-то не работает... Может вы поможете исправить ошибку?

Dim CircleArea As Single
----------------------------------
Sub Угол_между_прямыми()
BoxTitle = "Угол между прямыми"
K1 = InputBox("Введите K1", "Ввод исходных данных")
K2 = InputBox("Введите K2", "Ввод исходных данных")
A = Tan(K2 - K1) / (1 + K1 * K2)
CircleArea = ATANA
MsgBox CircleArea, vbInformation + vbOKCancel, BoxTitle
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 18:35
    #38505667
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Что за ATANA ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 18:35
    #38505669
МашаМаша1234567890
МашаМаша1234567890
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Akina,

Арктангенс, или он по-другому пишется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 18:37
    #38505672
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
http://msdn.microsoft.com/en-us/library/aa262680(v=vs.60).aspx
Обратите внимание на:
1) В каких единицах возвращается результат;
2) Что сказал умный товарищ Gwa .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 19:27
    #38505763
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
 
крик душиМашаМаша1234567890Информатик задал ..., не объяснив ничего.
ну не верю я, что на свете существует столько информатиков, сколько студентов, которые говорят про них одну и ту же фразу..

может быть просто стоило посещать лекции и внимательно слушать, что на них говорят?

вопрос риторический, ответ не требуется.

Надеюсь, с этим вы ознакомились прежде, чем начать топик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 19:36
    #38505771
усегдаготофф
усегдаготофф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
МашаМаша1234567890усегдаготофф,

Сюда))
я написала по примеру одной программы, но что-то не работает... Может вы поможете исправить ошибку?

Dim CircleArea As Single
----------------------------------
Sub Угол_между_прямыми()
BoxTitle = "Угол между прямыми"
K1 = InputBox("Введите K1", "Ввод исходных данных")
K2 = InputBox("Введите K2", "Ввод исходных данных")
A = Tan(K2 - K1) / (1 + K1 * K2)
CircleArea = ATANA
MsgBox CircleArea, vbInformation + vbOKCancel, BoxTitle
End Sub

Вы не поняли, я напишу все за вас, но не просто так. Условия готов обсуждать в личке, если вы ее укажите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2013, 19:38
    #38505777
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
 
AkinaЧто за ATANA ?


Может это SATANA?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2013, 00:46
    #38505960
Клевер
Клевер
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Shocker.Pro,
 
я сам студент, с уверенностью могу сказать: бывает. по многим предметам. российское образование катится к ееням. в прошлом году делал за деньги курсовые другим группам на языке, о существовании которого мы все тогда узнали перед экзаменом(visual c++). по физике от нас требовали наизусть законы, которые мы начинаем проходить лишь год спустя. по математике так вообще тихий ужас. можно, конешь, и самому всё искать, зубрить, но и студентов, которые круглыми от ужаса глазами ищут помощи по непонятной херне, которую им выдал учитель\преподаватель, тоже можно понять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2013, 09:06
    #38506098
_Дмит_
_Дмит_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Угол_между_прямыми()
  Dim CircleArea As Single
  Dim K1 As Single
  Dim K2 As Single
  Dim A As Single
  Dim BoxTitle As String
  
    BoxTitle = "Угол между прямыми"
    
    K1 = InputBox("Введите K1", "Ввод исходных данных")
    K2 = InputBox("Введите K2", "Ввод исходных данных")
    
    If 1 + K1 * K2 = 0 Then
        CircleArea = 90
    Else
        A = (K2 - K1) / (1 + K1 * K2)
        CircleArea = Atn(A) * 180 / Application.WorksheetFunction.Pi
    End If
    
    MsgBox CircleArea, vbInformation + vbOKCancel, BoxTitle
End Sub


 
Клевер, согласен отчасти :(
усегдаготофф, интересно узнать ориентировочную сумму :))
МашаМаша1234567890, такие вопросы в наше время решал обычно головастый одноклассник. Молодёжь выкинь планшеты и телефоны! Больше общения :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2013, 20:47
    #38507138
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Shocker.Pro, Клевер,
 

Когда-то у меня тоже была бабушка. Когда-то я тоже был студентом и тоже думал порой, что преподаватели не справедливы, но самом деле винить нужно лишь себя. Просто после школы люди думают, что в универе с ними будут цацкаться как с маленькими. Я придерживаюсь мнения, что универ учит учиться, так сказать приоткрывает дверь к знаниями, а это уже ваше дело входить или ждать, когда кто-нибудь за ручку возьмет. Или может кто-то, получив задание на работе по теме, с которой раньше не сталкивался, идет к начальнику и ударив кулаком по столу заявляет, что это мы не проходили?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2013, 01:56
    #38507295
Клевер
Клевер
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
 
за 4-6 лет можно было бы и обучить чему-нибудь полезному. Чем слушать истории про коммунистический строй, про тупость современной молодежи, про нло, про теоремы, которые при всём желании мне никогда не пригодятся в жизни... дай человеку рыбу - будет сыт 1 день. Расскажи человеку, что он унылое говно, дай ему дудочку, научи играть в марио, и смейся, смейся, смейся...
lbppb,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2013, 10:12
    #38507498
Ебуклевера
Ебуклевера
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание математической программы
Клевер,

 
ты вот говоришь -"про теоремы, которые при всём желании мне никогда не пригодятся в жизни... "
точно уверен что никогда?
умственно НЕ отсталый человек такого никогда не скажет!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание математической программы / 16 сообщений из 16, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 170ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156618]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 12ms
total:  170ms
x
x
Закрыть


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