С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Konstanti
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 29
1

По заданным катету и гипотенузе найти значения элементов треугольника

03.09.2012, 16:14. Просмотров 1020. Ответов 2
Метки нет (Все метки)

Народ помогите сделать!!!!
Пусть элементами прямоугольного равнобедренного треугольника является:
катет a;
гипотенуза b;
высота опущенная из вершины прямого угла на гипотенузу h;
площадь s;
Задание: Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.09.2012, 16:14
Ответы с готовыми решениями:

По заданным длинам сторон треугольника определить, является ли треугольник остроугольным
По заданным длинам сторон треугольника определить, яв-ляется ли треугольник...

Найти в каждом столбце количество элементов, меньших среднего арифметического значения всех элементов
Помогите, пожалуйста.

Вычислить площадь и периметр прямоугольного треугольника по катету и гипотенузе
1 программа:вычислить площадь и периметр прямоугольного треугольника по катету...

Катет по гипотенузе и другому катету
Помогите изменить код. Нужно отключить trackbar1, сделать так, чтобы...

Вычислить периметр и площадь прямоугольного треугольника по заданным катету и острому углу
Здравствуйте,для лабораторной работы написал программу по условию : "Вычислить...

2
Казанский
14428 / 5973 / 1587
Регистрация: 24.09.2011
Сообщений: 9,410
03.09.2012, 16:55 2
Лучший ответ Сообщение было отмечено как решение

Решение

Сначала вычисляем катет, потом из него все остальное.
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
25
26
27
28
29
30
Type Triangle
    a As Double
    b As Double
    h As Double
    s As Double
End Type
 
Function CalcTriangle(Nomer As Long, Param As Double) As Triangle
With CalcTriangle
    Select Case Nomer
    Case 1: .a = Param
    Case 2: .a = Param / Sqr(2)
    Case 3: .a = Param * Sqr(2)
    Case 4: .a = Sqr(Param * 2)
    Case Else: Exit Function
    End Select
    .b = .a * Sqr(2)
    .h = .b / 2
    .s = .a * .a / 2
End With
End Function
 
Sub test()
With CalcTriangle(2, 16) 'номер параметра, значение
    MsgBox "Катет " & .a & vbLf & _
        "Гипотенуза " & .b & vbLf & _
        "Высота " & .h & vbLf & _
        "Площадь " & .s
End With
End Sub
4
e46
1 / 1 / 0
Регистрация: 22.02.2013
Сообщений: 39
02.05.2013, 19:48 3
тут треугольник сам рисуется в коде, без предварительних рисований на форме?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2013, 19:48

Найти площадь прямоугольного треугольника по гипотенузе и прилежащему углу
Известна гипотенуза с и прилежащий угол α прямоугольного треугольника. Найти...

На гипотенузе прямоугольного треугольника построен квадрат
Условие задачи: На гипотенузе AB прямоугольного треугольника ABC построен...

Найти значения элементов треугольника
Задача с разветвленными алгоритмами. Пусть элементами прямоугольного...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru