VBNet - Форум - Ребят пожалуйста помогите с кодом программы...

Вопрос: Ребят пожалуйста помогите с кодом программы... Добавлено: 22.09.09 19:41

Автор вопроса: toctep | ICQ: 485261540

Есть вопрос по поводу кода,
2 задания (вообще легко вроде но я не могу)
только програмирование в инсте началось.

1 задание:
Определить длину дуги каждого из трех секторов с радиусами R1, R2, R3 и с центральными углами a, b, y
Назначение процедуры: Длина дуги сектора радиуса R c центральным углом (в градусах) равна:

2 * PI * R - a / 360

ну следовательно также и с углами b и y
(интерфейс я уже поставил)

2 задание:
Определить длины всех биссектрис треугольника, заданного длинами сторон a, b, c.
Назначение процедуры: Вычисление биссектрисы угла a:

(Sqrt(b*c*((b+c)^2-a^2)))/(b+c)

ну а тут еще для двух углов (b, c)

очень прошу составьте код для этих двух программ (**,)
просто первую же лабу по инфе не хочу в институте завалить... выручите пожалуйста!!!!
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #1	Добавлено: 22.09.09 22:10
	ты издеваешься? Расчетные формулы у тебя есть, алгоритм работы процедур - линейный (куда уж проще-то). Ну и потом: зачем ты на форум пришел? Знания подсобрать или решение готовое скопипастить? Ты месяц на лекциях спал, а теперь оп-па! Лаба вырисовалась... Ничего, лабы можно и с опозданием сдавать - до сессии далеко. Зато если сам разберешься (как и должно быть), то дальше легче будет. Так что не обижайся... Ответить

Номер ответа: 2 Автор ответа: toctep ICQ: 485261540 Вопросов: 1 Ответов: 6	Профиль \| \| #2	Добавлено: 22.09.09 22:36
	Дмитрий, одну уже сам сделал, на лекциях не сплю... у меня уже их целых 3 было. 1-ый курс института. До меня доперло как сделать первую, сделал все работает, а вот насчет второй еще попотеть надо, просто это для моей девушки, я хоть что-то в этом рублю. а она в компах полный 0 отвечу на вопрос: да, хотел скопировать. ну раз уж так не сложно, почему бы не помочь человеку? ведь для вас, программистов которые просто на раз делают такие вещи, вроде это сделать не составит труда, а такую помощ для незнающего человека сделаете... ну насчет второй проги я вообще не втыкаю что да как =( прошу Дмитрий помогите с кодом. ОЧЕНЬ буду благодарен Ответить

Номер ответа: 3 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #3	Добавлено: 22.09.09 22:53
	тебе надо на vb.net или vb6?... Не .net напишу, а если надо в vb6 - адаптируешь.ОК? Просто у меня 6 студии нету (по крайней мере ставить нет никакого резону). НО! - завтра к обеду где-то. У меня жена молодая! Ответить

Номер ответа: 4 Автор ответа: toctep ICQ: 485261540 Вопросов: 1 Ответов: 6	Профиль \| \| #4	Добавлено: 22.09.09 23:19
	)))) у меня .net буду очень благодарен)))) пасиб тебе большое Ответить

Номер ответа: 5 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #5	Добавлено: 22.09.09 23:28
	договорились! Делаю в виде функций, которые: 1 задание - принимает значения радиусов и углов, возвращает - массив длин дуг. 2 задание - принимает значения сторон, возвращает - массив биссектрис к сторонам. Я надеюсь, массивы вы уже прошли, а то препод не поверит Ответить

Номер ответа: 6 Автор ответа: toctep ICQ: 485261540 Вопросов: 1 Ответов: 6	Профиль \| \| #6	Добавлено: 22.09.09 23:32
	хах) хорошо, мегочел! да будет так как ты сделаешь) Ответить

Номер ответа: 7 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #7	Добавлено: 23.09.09 08:54
	Решение первого: Private Function ArcLength(ByVal R As Single(), ByVal alpha As Single()) As Single() Dim L(R.Length - 1) As Single Dim i As Integer For i = 0 To R.Length - 1 L(i) = 2 * Math.PI * R(i) * alpha(i) / 360 Next Return L End Function функция в качестве входных параметров получает массивы радиусов и углов. Количество элементов в массивах (т.е. количество вычисляемых длин дуг) любое. Есть одна тонкость: если количество значений радиусов в массиве больше, чем количество значений углов, функция не сработает - вылетит с ошибкой. Функция в случае успешных вычислений возвращает массив длин дуг (порядок следования значений соответствует порядку радиусов и углов). Протестировано! Второе пишу... Ответить

Номер ответа: 8 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #8	Добавлено: 23.09.09 09:29
	Кстати, формула длины дуги не: l=2pir - a/360 a вот: l=2pir * a/360 т.е. мы сначала вычисляем длину окружности: *2pir, а затем умножая на это выражение: a/360 определяем, какая часть длины окружности нас интересует. А вот решение второго задания: Private Function Bissectrisa(ByVal a As Single()) As Single() Dim L(2) As Single L(0) = Math.Sqrt(a(1) a(2) * ((a(1) + a(2)) ^ 2 - a(0) ^ 2)) / (a(1) + a(2)) L(1) = Math.Sqrt(a(0) * a(2) * ((a(0) + a(2)) ^ 2 - a(1) ^ 2)) / (a(0) + a(2)) L(2) = Math.Sqrt(a(1) * a(0) * ((a(1) + a(0)) ^ 2 - a(2) ^ 2)) / (a(1) + a(0)) Return L End Function Функция получает массив размеров сторон треугольника, и возвращает массив размеров биссектрис. i-е значение биссектрисы соответствует стороне, к которой она проведена. Если длина входного массив больше, чем три стороны, то оставшиеся значения не будут учтены в вычислениях. Потестил! Ответить

Номер ответа: 9 Автор ответа: toctep ICQ: 485261540 Вопросов: 1 Ответов: 6	Профиль \| \| #9	Добавлено: 23.09.09 18:09
	пасиб большое) я тебя восхвалять буду))) Ответить

Номер ответа: 10 Автор ответа: toctep ICQ: 485261540 Вопросов: 1 Ответов: 6	Профиль \| \| #10	Добавлено: 23.09.09 18:10
	тока мне нужно вторую прогу, т.к. первую я написал... она работает у меня но серавно пасиб, учту и такой вариант решения. Ответить

Номер ответа: 11 Автор ответа: toctep ICQ: 485261540 Вопросов: 1 Ответов: 6	Профиль \| \| #11	Добавлено: 23.09.09 18:15
	ой не обновил страницу, второе есть))) пасиб Ответить

Страница: 1 |