Составить программу, которая по номеру и значению элемента вычисляла значение остальных элементов треугольника

@Malaua · Регистрация: 21.04.2012

Студворк — интернет-сервис помощи студентам

Пусть элементами равностороннего треугольника являются:
1) сторона a;
2) площадь S;
3) высота h;
4) радиус вписанной окружности r;
5) радиус описанной окружности R.
Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.

@mc-black · 23.04.2012, 18:00

Вы бы для начала решили бы эту задачу геометрически, то есть написали бы соотношения одного параметра к другому и так для всех. Здесь, знаете ли, программистский форум. С точки зрения программирования задача очень простая!

@Malaua · 23.04.2012, 18:27 **[ТС]**

Эту программу я сначала начала делать через InputBox, т.к. он для меня более знаком...но теперь надо переделать c case. Вот некоторые наработки той программы.

Visual Basic

Private Sub cmb_Run_Click()
Dim aInputBox_1 As String
Dim aInputBox_2 As String
Dim aZ As Double
Dim a As Double
Dim S As Double
Dim h As Double
Dim y As Double
Dim R As Double
aInputBox_1 = InputBox("Введите номер известного элемента фигуры по шаблону: 1 - Сторона , 2 - Площадь, 3 - Высота, 4 - Радиус вписанной окружности, 5 - Радиус описанной окружности")
If aInputBox_1 = "" Then Exit Sub
aInputBox_2 = InputBox("Введите значение известного элемента фигуры в cм")
If aInputBox_2 = "" Then Exit Sub
aZ= CDbl(vInputBox_2)
If aInputBox_1 = "1" Then
a = aZ
S = (Sqr(3) / 4) * a ^ 2
h = (Sqr(3) / 2) * a
y = a / (2 * Sqr(3))
R = a / Sqr(3)
ElseIf aInputBox_1 = "2" Then
S = txt_a.Text
a = Sqr(4 * Val(S) / Sqr(3))
h = (Sqr(3) / 2) * a
y = a / (2 * Sqr(3))
R = a / Sqr(3)
ElseIf aInputBox_1 = "3" Then
h = txt_a.Text
a = Sqr(4 * S / Sqr(3))
S = (Sqr(3) / 4) * a ^ 2
y = a / (2 * Sqr(3))
R = a / Sqr(3)
ElseIf aInputBox_1 = "4" Then
y = txt_a.Text
a = Sqr(4 * S / Sqr(3))
h = (Sqr(3) / 2) * a
S = (Sqr(3) / 4) * a ^ 2
R = a / Sqr(3)
ElseIf aInputBox_1 = "5" Then
R = txt_a.Text
a = Sqr(4 * S / Sqr(3))
h = (Sqr(3) / 2) * a
S = (Sqr(3) / 4) * a ^ 2
y = a / (2 * Sqr(3))
End If
MsgBox$ "Сторона = " & a & vbCr & "Площадь = " & c & vbCr _
& "Высота = " & h & vbCr & "Радиус вписанной окружности = " & h & vbCr & "Радиус описанной окружности = " & S & vbCr & "Единицы измерения - сантиметры"
End Sub

@Gibboustooth · 24.04.2012, 10:38

Синтаксис "Select Case...Case...End Case":

Visual Basic

    Select Case Ïåðåìåííàÿ
        Case Çíà÷åíèå_1
            'Âûðàæåíèå_1
        Case Çíà÷åíèå_2
            'Âûðàæåíèå_2
        '....
        Case Çíà÷åíèå_n
            'Âûðàæåíèå_n
    End Select

Используйте это вместо "If...Then...ElseIf...Then...End If" и будет вам счастье.

@Malaua · 24.04.2012, 21:48 **[ТС]**

Visual Basic

Private Sub cmb_Run()
Dim aInputBox_1 As String
Dim aInputBox_2 As String
Dim aZ As Double
Dim a As Double
Dim S As Double
Dim h As Double
Dim y As Double
Dim R As Double
aInputBox_1 = InputBox("Ââåäèòå íîìåð èçâåñòíîãî ýëåìåíòà ôèãóðû ïî øàáëîíó: 1 - Ñòîðîíà , 2 - Ïëîùàäü, 3 - Âûñîòà, 4 - Ðàäèóñ âïèñàííîé îêðóæíîñòè, 5 - Ðàäèóñ îïèñàííîé îêðóæíîñòè")
If aInputBox_1 = "" Then Exit Sub
aInputBox_2 = InputBox("Ââåäèòå çíà÷åíèå èçâåñòíîãî ýëåìåíòà ôèãóðû â cì")
If aInputBox_2 = "" Then Exit Sub
Select Case aZ = CDbl(vInputBox_2)
Case 1
a = aZ
S = (Sqr(3) / 4) * a ^ 2
h = (Sqr(3) / 2) * a
y = a / (2 * Sqr(3))
R = a / Sqr(3)
Case 2
S = aZ
a = Sqr(4 * Val(S) / Sqr(3))
h = (Sqr(3) / 2) * a
y = a / (2 * Sqr(3))
R = a / Sqr(3)
Case 3
h = aZ
a = Sqr(4 * S / Sqr(3))
S = (Sqr(3) / 4) * a ^ 2
y = a / (2 * Sqr(3))
R = a / Sqr(3)
Case 4
y = aZ
a = Sqr(4 * S / Sqr(3))
h = (Sqr(3) / 2) * a
S = (Sqr(3) / 4) * a ^ 2
R = a / Sqr(3)
Case 5
R = aZ
a = Sqr(4 * S / Sqr(3))
h = (Sqr(3) / 2) * a
S = (Sqr(3) / 4) * a ^ 2
y = a / (2 * Sqr(3))
    End Select
MsgBox$ "Ñòîðîíà = " & a & vbCr & "Ïëîùàäü = " & S & vbCr _
& "Âûñîòà = " & h & vbCr & "Ðàäèóñ âïèñàííîé îêðóæíîñòè = " & y & vbCr & "Ðàäèóñ îïèñàííîé îêðóæíîñòè = " & R & vbCr & "Åäèíèöû èçìåðåíèÿ - ñàíòèìåòðû"
End Sub

Вот, посмотрите.... Какие здесь ошибки??? Программа значение не считает..(((

@~~Апострофф~~ · 24.04.2012, 22:07

Первая ошибка - в 14-й строке

Сообщение от Malaua

Select Case aZ = CDbl(vInputBox_2)

Присвоение aZ = CDbl(vInputBox_2) надо было сделать до Select

Visual Basic

1 2	aZ = CDbl(vInputBox_2) Select Case aZ

или вобще не делать

Visual Basic

1	Select Case CDbl(vInputBox_2)

Dragokas · 24.04.2012, 22:15

Visual Basic

1	Select Case aZ = CDbl(vInputBox_2)

Замените на:

Visual Basic

1 2	aZ = CDbl(aInputBox_2) Select Case aInputBox_1

Добавлено через 2 минуты
И кстати, Апострофф, vInputBox_2 - такой переменной нет.

Malaua, вставьте перед программой

Visual Basic

1	option explicit

и половину проблем программа Вам сама покажет.
Вы запутались и Селекту задаете значение элемента фигуры, а не критерий рассчета.

И вконце б еще добавить:

Visual Basic

1	case else: exit sub

@~~Апострофф~~ · 24.04.2012, 22:20

Не по теме:

Похороните меня за плинтусом:-[
Я примерно тоже хотел сказать, но не вник до конца:wall:

Сообщение от Diskretor

vInputBox_2 - такой переменной нет.

так ведь была строка 14 с такой переменной

Вобщем, запутали старика напрочь

А

Сообщение от Diskretor

option explicit

-это весчь

Ни одной нормальной программы без неё не написать!

Dragokas · 24.04.2012, 22:26

Угу, одна-единственная.

Не по теме:

удалите эти два сообщения

@Malaua · 24.04.2012, 23:07 **[ТС]**

Спасибо большое!!!!
Сейчас буду пробовать!!!!

Добавлено через 21 минуту
Опять проблемка...... теперь программа высчитывает значения только первых двух case....

Visual Basic

Private Sub cmb_Run()
Dim aInputBox_1 As String
Dim aInputBox_2 As String
Dim aZ As Double
Dim a As Double
Dim S As Double
Dim h As Double
Dim y As Double
Dim R As Double
aInputBox_1 = InputBox("Ââåäèòå íîìåð èçâåñòíîãî ýëåìåíòà ôèãóðû ïî øàáëîíó: 1 - Ñòîðîíà , 2 - Ïëîùàäü, 3 - Âûñîòà, 4 - Ðàäèóñ âïèñàííîé îêðóæíîñòè, 5 - Ðàäèóñ îïèñàííîé îêðóæíîñòè")
If aInputBox_1 = "" Then Exit Sub
aInputBox_2 = InputBox("Ââåäèòå çíà÷åíèå èçâåñòíîãî ýëåìåíòà ôèãóðû â cì")
If aInputBox_2 = "" Then Exit Sub
aZ = CDbl(aInputBox_2)
Select Case aInputBox_1
Case 1
a = aZ
S = (Sqr(3) / 4) * a ^ 2
h = (Sqr(3) / 2) * a
y = a / (2 * Sqr(3))
R = a / Sqr(3)
Case 2
S = aZ
a = Sqr(4 * Val(S) / Sqr(3))
h = (Sqr(3) / 2) * a
y = a / (2 * Sqr(3))
R = a / Sqr(3)
Case 3
h = aZ
a = Sqr(4 * S / Sqr(3))
S = (Sqr(3) / 4) * a ^ 2
y = a / (2 * Sqr(3))
R = a / Sqr(3)
Case 4
y = aZ
a = Sqr(4 * S / Sqr(3))
h = (Sqr(3) / 2) * a
S = (Sqr(3) / 4) * a ^ 2
R = a / Sqr(3)
Case 5
R = aZ
a = Sqr(4 * S / Sqr(3))
h = (Sqr(3) / 2) * a
S = (Sqr(3) / 4) * a ^ 2
y = a / (2 * Sqr(3))
Case Else: Exit Sub
  End Select
MsgBox$ "Ñòîðîíà = " & a & vbCr & "Ïëîùàäü = " & S & vbCr _
& "Âûñîòà = " & h & vbCr & "Ðàäèóñ âïèñàííîé îêðóæíîñòè = " & y & vbCr & "Ðàäèóñ îïèñàííîé îêðóæíîñòè = " & R & vbCr & "Åäèíèöû èçìåðåíèÿ - ñàíòèìåòðû"
End Sub

Dragokas · 24.04.2012, 23:12

У Вас формулы свзаны полностью друг с другом:

Visual Basic

1 2	a = Sqr(4 * S / Sqr(3)) S = (Sqr(3) / 4) * a ^ 2

а должны зависеть от переменной h... (az) и т.д. во всех остальных случаях.

@Malaua · 24.04.2012, 23:19 **[ТС]**

Поняла! Спасибо!

@Malaua 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
		1
	Составить программу, которая по номеру и значению элемента вычисляла значение остальных элементов треугольника 23.04.2012, 16:30. Показов 2524. Ответов 11 Метки нет (Все метки) Пусть элементами равностороннего треугольника являются: 1) сторона a; 2) площадь S; 3) высота h; 4) радиус вписанной окружности r; 5) радиус описанной окружности R. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника. 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	23.04.2012, 18:00	2
	Вы бы для начала решили бы эту задачу геометрически, то есть написали бы соотношения одного параметра к другому и так для всех. Здесь, знаете ли, программистский форум. С точки зрения программирования задача очень простая! 0

@~~Апострофф~~ Заблокирован
	24.04.2012, 22:20	8
	Не по теме: Похороните меня за плинтусом:-[ Я примерно тоже хотел сказать, но не вник до конца:wall: Сообщение от Diskretor vInputBox_2 - такой переменной нет. так ведь была строка 14 с такой переменной Вобщем, запутали старика напрочь А Сообщение от Diskretor option explicit -это весчь Ни одной нормальной программы без неё не написать! 1

Dragokas 18066 / 7669 / 891 Регистрация: 25.12.2011 Сообщений: 11,438 Записей в блоге: 17
	24.04.2012, 22:26	9
	Угу, одна-единственная. Не по теме: удалите эти два сообщения 1

@Malaua 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
	24.04.2012, 23:19 [ТС]	12
	Поняла! Спасибо! 0