Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
 Аватар для JulUlibina
5 / 5 / 0
Регистрация: 08.11.2010
Сообщений: 87

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

18.11.2012, 21:54. Показов 1045. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток!
Помогите пожалуйста написать программку, функцию понимаю как надо писать, а вот язык новый, не знаю как в нем программировать!

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

Заранее спасибо!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.11.2012, 21:54
Ответы с готовыми решениями:

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

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

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

1
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
18.11.2012, 22:54
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
Dim x!, y!, z!, m!
x = InputBox("x")
y = InputBox("y")
z = InputBox("z")
 
Dim a(1 To 3) As Single
a(1) = x: a(2) = y: a(3) = z
For i = 1 To 3
For j = 1 To 3
If a(i) < a(j) Then m = a(i): a(i) = a(j): a(j) = m
Next j
Next i
 
 
If a(1) + a(2) <= a(3) Then MsgBox "òðåóãîëüíèê íå ñóùåñòâóåò": Exit Sub
 
s = Sqr(a(1) ^ 2 + a(2) ^ 2)
 
If a(3) < s Then MsgBox "îñòðîóãîëüíûé"
If a(3) = s Then MsgBox "ïðÿìîóãîëüíûé"
If a(3) > s Then MsgBox "òóïîóãîëüíûé"
 
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.11.2012, 22:54
Помогаю со студенческими работами здесь

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

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

Определить существует ли треугольник с такими длинами сторон и, если существует, будет ли он прямоугольным
помогите проверить правильно ли составил программу. т.к на семерке проверить возможности нет ( CLS DIM SHARED X#, Y#, Z#, A% ...

Определить, существует ли треугольник с длинами сторон x, y, z
Дано

Определить, можно ли построить треугольник с длинами сторон, равным этим числам
Даны три положительных числа. Определить, можно ли по¬строить треугольник с длинами сторон, равным этим числам. Если можно, то ответить на...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru