С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/14: Рейтинг темы: голосов - 14, средняя оценка - 4.50
 Аватар для чудо_Информатик
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 20

Выяснить,существует ли треугольник с длинами сторон x,y,z

28.03.2010, 14:28. Показов 3001. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны три положительных вещественных числа x,y,z.Выяснить,существует ли треугольник с длинами сторон x,y,z.если треугольник существует,то определить,между какими из сторон расположен наибольший угол.эту задачу нужно решить двумя разными способами.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.03.2010, 14:28
Ответы с готовыми решениями:

Выяснить существует ли треугольник с длинами сторон x, y, z
Доброго времени суток! Помогите пожалуйста написать программку, функцию понимаю как надо писать, а вот язык новый, не знаю как в нем...

Треугольник задан длинами сторон. Как найти длины высот
Треугольник задан длинами сторон. Найти длины высот. Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c =...

Даны произвольные числа a,b,c.Сообщить можно ли постоить треугольник с такми длинами сторон
Даны произвольные числа a,b,c.Сообщить можно ли постоить треугольник с такми длинами сторон, и если можно то вывести соответствующее...

8
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
28.03.2010, 15:43
Цитата Сообщение от чудо_Информатик Посмотреть сообщение
двумя разными способами
с точки зрения математики или программной реализации ?
1
 Аватар для чудо_Информатик
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 20
28.03.2010, 16:55  [ТС]
С точки зрения математики...и нужно написать программу
0
 Аватар для Toxa33rus
3917 / 918 / 125
Регистрация: 16.04.2009
Сообщений: 1,944
28.03.2010, 17:28
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
p=x+y+z
if x<p/2 and y<p/2 and z<p/2 then
  if x>=y and x>=z then
    msgbox "max ugol mejdu y i z"
  elseif y>=x and y>=z then
    msgbox "max ugol mejdu x i z"
  else
    msgbox "max ugol mejdu x i y"
  end if
else
  msgbox "net"
end if
1
 Аватар для чудо_Информатик
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 20
28.03.2010, 18:22  [ТС]
а еще каким-нибудь другим способом можно решить эту задачу?
0
 Аватар для ironegg
1905 / 782 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
28.03.2010, 18:44
предлагаю рассмотреть такой вариант. находить косинусы углов в треугольнике по трем сторонам. типо
XML
1
(b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)
.
наименьший косинус сответствует наибольшему углу. сумма косинусов равна 0 (или 2) если треугольник существует.
правда я это проходил лет двадцать назад. могу жестоко ошибаться
0
здесь больше нет...
3376 / 1674 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
28.03.2010, 19:02
ironegg правильно тебе подсказывает (косинус убывает на [0;пи]), но, конечно, про сумму косинусов - это деза.
Сумма углов у треугольника - пи радиан, более того по формуле вычисления косинуса угла
XML
1
cos(b, c) = (b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)
если получается больше 1 по модулю, то такого треугольника не сущ-ет.
1
 Аватар для чудо_Информатик
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 20
29.03.2010, 16:05  [ТС]
А не могли бы вы написать как будет выглядеть программа с использованием косинуса?

Добавлено через 16 часов 46 минут
помогите написать по этой задачи две программы для лабы
0
 Аватар для ironegg
1905 / 782 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
31.03.2010, 17:21
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function maxx(a, b, c)
maxx = Switch(a >= b And a >= c, a, b >= a And b >= c, b, c >= b And c >= a, c)
End Function
 
 
Public Sub k(a, b, c)
If a > 0 And b > 0 And c > 0 Then
    coa = (b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)
    cob = (a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c)
    coc = (b ^ 2 + a ^ 2 - c ^ 2) / (2 * b * a)
    m = maxx(Abs(coa), Abs(cob), Abs(coc))
    If m < 1 Then
        MsgBox "ñóùåñòâóåò!"
    Else
        MsgBox "ÍÅ ñóùåñòâóåò!"
    End If
Else
    MsgBox "ïëîõàÿ äëèííà ñòîðîí!"
End If
End Sub
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.03.2010, 17:21
Помогаю со студенческими работами здесь

а) Выяснить, существует ли треугольник с длинами сторон x, y, z. б) Если треугольник существует, то ответить – является
Даны действительные положительные числа x, y, z. а) Выяснить, существует ли треугольник с длинами сторон x, y, z. б) Если треугольник...

Выяснить, существует ли треугольник с длинами сторон x, y, z
Всем доброго времени суток. Вообщем заступорился на месте, когда нужно определить косинус, кто знает, помогите, пожалуйста) Вот...

Выяснить, существует ли треугольник с длинами сторон X, Y, Z
Даны положительные числа X, Y, Z. Выяснить существует ли треугольник с длинами сторон X,Y,Z. если да, выяснить является ли он прямоугольным.

Выяснить, существует ли треугольник с длинами сторон x, y, z
Разобрать алгоритм и составить программу для решения задачи. Даны действительные числа x,y,z.Выяснить,существует ли треугольник с...

Выяснить, существует ли треугольник с длинами сторон а, b, c
Даны произвольные действительные числа а, b. c. Выяснить существует треугольник с длинами сторон а, b. c. Если существует то вывести Слово...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru