Visual Basic (Биссектриса) - Помощь студентам

Wu3o4ka · 12.12.2011, 03:50

9) Составьте блок-схему алгоритма (с комментариями) и напишите программу для вычис-ления длины биссектрисы угла с треугольника (lc), если известны длины его сторон (a, b, c). Дли-ны двух сторон введите с клавиатуры в ячейки В2 и В3. Длину третьей стороны введите с помо-щью диалога в ячейку В4. Найденную длину биссектрисы выведите в окно-сообщение, сопрово-див необходимым пояснением.
Формула:
(прикрепила картинку)

Плиз, люди добрые) мозги напрочь отказываются понимать, почему меня не желает понять Бейсик

alex77755 · 12.12.2011, 04:16

Я чейка В2, В4 5
Это в Екселе что-ли?
Как то невнятно вопрос..

Sasha_Smirnov · 12.12.2011, 04:21

Может, где в формуле скобки пропустила?

Код:

Lc = Sqr(a * b * (a + b + c) * (a + b - c)) / (a + b)

У меня чётко сработало.

Wu3o4ka · 12.12.2011, 12:53

Sasha_Smirnov, а вот не срабатывает.((
я так еще в самом начале пробовала..

выдает : Overflow.((

doober · 12.12.2011, 13:10

Файл приложите,а мы посмотрим на ошибку

Wu3o4ka · 12.12.2011, 14:07

какой именно файл?)

doober · 12.12.2011, 14:36

С кодом вашим

Wu3o4ka · 12.12.2011, 15:30

ну насчет самого файла..проблематично.. ибо на другом компьютере делается( могу весь текст программы скинуть.. но самая гадость в том, что с другой формулой срабатывает..почти всегда..иногда выдает ответ = 0. и хоть в стенку головой(((

почему-то с++ мне понять проще(((

Public Sub bisector()
Dim C As Integer, Lc As Integer
Range ("b2").Font.ColorIndex=3
Range ("b3").Font.ColorIndex=5
Range ("b2").Font.Size=14
Range ("b3").Font.Size=14
C=Val (InputBox("Введите длину стороны С(см)"))
---------(тут формула)----------
MsgBox "Биссектриса равна =" & Lc
End Sub

цвет, размер это из правил по оформлению) изменение карается смертью)

doober · 12.12.2011, 16:18

a, b, c у вас всегда образуют треугольник?
Может добавить проверку.
Работает все правильно,без проблем,если a, b, c образуют треугольник

Wu3o4ka · 12.12.2011, 18:45

похоже только у меня нифига не срабатывает( ошибка и все тут(((

12.12.2011, 04:16	#2
alex77755 Форумчанин Регистрация: 14.02.2009 Сообщений: 753	Я чейка В2, В4 5 Это в Екселе что-ли? Как то невнятно вопрос.. помогу решить контрольные VB6, VBA (недорого) Alex77755@mail.ru

12.12.2011, 04:21	#3
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Может, где в формуле скобки пропустила? Код: `Lc = Sqr(a * b * (a + b + c) * (a + b - c)) / (a + b)` У меня чётко сработало. Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

12.12.2011, 12:53	#4
Wu3o4ka Новичок Джуниор Регистрация: 12.12.2011 Сообщений: 5	Sasha_Smirnov, а вот не срабатывает.(( я так еще в самом начале пробовала.. выдает : Overflow.(( Последний раз редактировалось Wu3o4ka; 12.12.2011 в 12:56.

12.12.2011, 13:10	#5
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Файл приложите,а мы посмотрим на ошибку Анализ,обработка данных Недорого

12.12.2011, 14:36	#7
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	С кодом вашим Анализ,обработка данных Недорого

12.12.2011, 14:07	#6
Wu3o4ka Новичок Джуниор Регистрация: 12.12.2011 Сообщений: 5	какой именно файл?)

12.12.2011, 15:30	#8
Wu3o4ka Новичок Джуниор Регистрация: 12.12.2011 Сообщений: 5	ну насчет самого файла..проблематично.. ибо на другом компьютере делается( могу весь текст программы скинуть.. но самая гадость в том, что с другой формулой срабатывает..почти всегда..иногда выдает ответ = 0. и хоть в стенку головой((( почему-то с++ мне понять проще((( Public Sub bisector() Dim C As Integer, Lc As Integer Range ("b2").Font.ColorIndex=3 Range ("b3").Font.ColorIndex=5 Range ("b2").Font.Size=14 Range ("b3").Font.Size=14 C=Val (InputBox("Введите длину стороны С(см)")) ---------(тут формула)---------- MsgBox "Биссектриса равна =" & Lc End Sub цвет, размер это из правил по оформлению) изменение карается смертью)

12.12.2011, 16:18	#9
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	a, b, c у вас всегда образуют треугольник? Может добавить проверку. Работает все правильно,без проблем,если a, b, c образуют треугольник Анализ,обработка данных Недорого

12.12.2011, 18:45	#10
Wu3o4ka Новичок Джуниор Регистрация: 12.12.2011 Сообщений: 5	похоже только у меня нифига не срабатывает( ошибка и все тут(((

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Visual C++, Visual C#, Visual basic .Net, или Microsoft.Net Что лучше?	_PROGRAMM_	Общие вопросы .NET	14	10.10.2012 19:24
Visual Basic (Visual Studio 2005)	JUDAS	О форуме и сайтах клуба	1	04.07.2009 23:09