Вычислить площадь и радиусы вписанной и описанных окружностей....написать программу решающую данную зад...

@Б.Екатерина · Регистрация: 24.05.2011

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

Задание:
Вычислить площадь и радиусы вписанной и описанных окружностей по заданной стороне правильного треугольника а=5,125м.
Написать универсальную программу, решающую данную задачу для произвольных значений стороны треугольника.

Очень прошу помощи, заранее спасибо!

@JoFresh · 30.05.2011, 09:23

Это не реально решить

@Ципихович Эндрю · 30.05.2011, 11:09

ну решите на бумаге, и на форум, а там ... рукой подать

@Б.Екатерина · 31.05.2011, 10:22 **[ТС]**

Радиус вписанной окружности правильного треугольника, выраженный через его сторону
r=√3 / 6 * a
Радиус описанной окружности правильного треугольника, выраженный через его сторону
R=√3 / 3 * a
Площадь правильного треугольника рассчитывается по формулам:
S=√3 / 4 * a^2 = 3√3 / 4 * R^2 = 3√3 * r^2

Сторона правильного треугольника а=5,125

Добавлено через 1 час 8 минут
Вот что то пыталась сделать....но почему то выдает что все значения равны нулю....непонятно...Помогите пожалуйстааа..

Private Sub CommandButton1_Click()
Dim a As Single, r As Single, r2 As Single, s As Single
a = InputBox("Введите сторону правильного треугольника", "", "5,125")
r = a * Sqr(3) / 6
r2 = Sqr(3) / 3 * a
s = 3 * Sqr(3) / 4 * r ^ 2
Cells(3, 2) = "Радиус вписанной окружности = " & r
Cells(4, 2) = "Радиус описанной окружности = " & r2
Cells(5, 2) = "Площадь правильного треугольника = " & s
End Sub

Добавлено через 38 минут
Ну вот у меня у самой вроде бы получилось...незнаю только правильно или нет

Хотелось бы, что бы Вы проверили

Private Sub CommandButton1_Click()
Dim a As Variant, r As Variant, r2 As Variant, s As Variant
a = TextBox1: b = TextBox2: c = TextBox3
r = ((3) ^ (1 / 2) / 6)
r2 = ((3) ^ (1 / 2) / 3)
s = 3 * ((3) ^ (1 / 2)) * r * r
MsgBox "Радиус вписанной окружности равен " & r
MsgBox "Радиус описанной окружности равен " & r2
MsgBox "Площадь треугольника равна " & s
End Sub

Добавлено через 4 часа 17 минут
Не дописала изначально) Вот так будет:

r = (((3) ^ (1 / 2) / 6) * a)
r2 = (((3) ^ (1 / 2) / 3) * a)
s = 3 * ((3) ^ (1 / 2)) * r * r

@Belthazor4 · 31.05.2011, 10:37

Сообщение от Б.Екатерина

Задание:
Вычислить площадь и радиусы вписанной и описанных окружностей по заданной стороне правильного треугольника а=5,125м.
Написать универсальную программу, решающую данную задачу для произвольных значений стороны треугольника.
Очень прошу помощи, заранее спасибо!

Вычислить площадь, сторону и высоту правильного треугольника
аналогочно, только тут по R, переправь и будет счастье

@Б.Екатерина · 31.05.2011, 10:42 **[ТС]**

Ну я так и сделала практически) Выше свой вариант писала) Вроде бы считает все, надеюсь правильно)

Добавлено через 2 минуты
Напишу еще раз без поправок)

PureBasic

Private Sub CommandButton1_Click()
Dim a As Variant, r As Variant, r2 As Variant, s As Variant
a = TextBox1
r = (((3) ^ (1 / 2) / 6) * a)
r2 = (((3) ^ (1 / 2) / 3) * a)
s = ((3 * ((3) ^ (1 / 2))) * r ^ 2)
MsgBox "Радиус вписанной окружности равен " & r
MsgBox "Радиус описанной окружности равен " & r2
MsgBox "Площадь треугольника равна " & s
End Sub
 
Private Sub CommandButton2_Click()
End
End Sub

@Belthazor4 · 31.05.2011, 10:49

да, правильно. для глаза более понятней такая запись:

Visual Basic

Private SUB CommandButton1_Click()
DIM a AS Variant, r AS Variant, r2 AS Variant, s AS Variant
    a = TextBox1
    r = a * Sqr(3) / 6 
    r2 = a * Sqr(3) / 3 
    s = a * a * Sqr(3) / 4 
    MsgBox "Радиус вписанной окружности равен " & r
    MsgBox "Радиус описанной окружности равен " & r2
    MsgBox "Площадь треугольника равна " & s
END SUB
 
Private SUB CommandButton2_Click()
END
END SUB

те же формулы, тока через sqr, и площадь через сторону

@Б.Екатерина · 31.05.2011, 10:56 **[ТС]**

Спасибо)

@Ципихович Эндрю · 31.05.2011, 17:03

а это :

Visual Basic

1
2
3

Private SUB CommandButton2_Click()
END
END SUB

зачем нужно??

@Belthazor4 · 31.05.2011, 17:29

Сообщение от Ципихович Эндрю

зачем нужно??

хз =) наверное она так хотела второй кнопкой форму закрывать =) я даже не смотрел

Добавлено через 1 минуту
Даже работает =)

@dimasei111 · 29.09.2015, 16:32

Sub Zadacha()
Dim R, a, S, h As Double
R = Val(InputBox("Введите R")) 'ввод значения переменной R
a = Sqr(3) * R 'вычисляем значение a
S = ((3 / 4) * Sqr(3)) * (R) ^ 2 'вычисляем значение S
h = (3 / 2) * R 'вычисляем значение h
MsgBox ("Ответ: Сторона треугольника=" + Str(a))
MsgBox ("Ответ: Площадь треугольника=" + Str(S))
MsgBox ("Ответ: Высота треугольника=" + Str(h))
EndSub

у меня получилось так!

@Б.Екатерина 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 10
		1
	Вычислить площадь и радиусы вписанной и описанных окружностей....написать программу решающую данную зад... 30.05.2011, 06:10. Показов 5460. Ответов 10 Метки нет (Все метки) Задание: Вычислить площадь и радиусы вписанной и описанных окружностей по заданной стороне правильного треугольника а=5,125м. Написать универсальную программу, решающую данную задачу для произвольных значений стороны треугольника. Очень прошу помощи, заранее спасибо! 0

@JoFresh 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 20
	30.05.2011, 09:23	2
	Это не реально решить 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	30.05.2011, 11:09	3
	ну решите на бумаге, и на форум, а там ... рукой подать 0

@Б.Екатерина 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 10
	31.05.2011, 10:22 [ТС]	4
	Радиус вписанной окружности правильного треугольника, выраженный через его сторону r=√3 / 6 * a Радиус описанной окружности правильного треугольника, выраженный через его сторону R=√3 / 3 * a Площадь правильного треугольника рассчитывается по формулам: S=√3 / 4 * a^2 = 3√3 / 4 * R^2 = 3√3 * r^2 Сторона правильного треугольника а=5,125 Добавлено через 1 час 8 минут Вот что то пыталась сделать....но почему то выдает что все значения равны нулю....непонятно...Помогите пожалуйстааа.. Private Sub CommandButton1_Click() Dim a As Single, r As Single, r2 As Single, s As Single a = InputBox("Введите сторону правильного треугольника", "", "5,125") r = a * Sqr(3) / 6 r2 = Sqr(3) / 3 * a s = 3 * Sqr(3) / 4 * r ^ 2 Cells(3, 2) = "Радиус вписанной окружности = " & r Cells(4, 2) = "Радиус описанной окружности = " & r2 Cells(5, 2) = "Площадь правильного треугольника = " & s End Sub Добавлено через 38 минут Ну вот у меня у самой вроде бы получилось...незнаю только правильно или нет Хотелось бы, что бы Вы проверили Private Sub CommandButton1_Click() Dim a As Variant, r As Variant, r2 As Variant, s As Variant a = TextBox1: b = TextBox2: c = TextBox3 r = ((3) ^ (1 / 2) / 6) r2 = ((3) ^ (1 / 2) / 3) s = 3 * ((3) ^ (1 / 2)) * r * r MsgBox "Радиус вписанной окружности равен " & r MsgBox "Радиус описанной окружности равен " & r2 MsgBox "Площадь треугольника равна " & s End Sub Добавлено через 4 часа 17 минут Не дописала изначально) Вот так будет: r = (((3) ^ (1 / 2) / 6) * a) r2 = (((3) ^ (1 / 2) / 3) * a) s = 3 * ((3) ^ (1 / 2)) * r * r 0

@Belthazor4 245 / 55 / 6 Регистрация: 05.08.2010 Сообщений: 222
	31.05.2011, 10:37	5
	Сообщение от Б.Екатерина Задание: Вычислить площадь и радиусы вписанной и описанных окружностей по заданной стороне правильного треугольника а=5,125м. Написать универсальную программу, решающую данную задачу для произвольных значений стороны треугольника. Очень прошу помощи, заранее спасибо! Вычислить площадь, сторону и высоту правильного треугольника аналогочно, только тут по R, переправь и будет счастье 1

@Б.Екатерина 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 10
	31.05.2011, 10:56 [ТС]	8
	Спасибо) 0

@Belthazor4 245 / 55 / 6 Регистрация: 05.08.2010 Сообщений: 222
	31.05.2011, 17:29	10
	Сообщение от Ципихович Эндрю зачем нужно?? хз =) наверное она так хотела второй кнопкой форму закрывать =) я даже не смотрел Добавлено через 1 минуту Даже работает =) 0

@dimasei111 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 4
	29.09.2015, 16:32	11
	Sub Zadacha() Dim R, a, S, h As Double R = Val(InputBox("Введите R")) 'ввод значения переменной R a = Sqr(3) * R 'вычисляем значение a S = ((3 / 4) * Sqr(3)) * (R) ^ 2 'вычисляем значение S h = (3 / 2) * R 'вычисляем значение h MsgBox ("Ответ: Сторона треугольника=" + Str(a)) MsgBox ("Ответ: Площадь треугольника=" + Str(S)) MsgBox ("Ответ: Высота треугольника=" + Str(h)) EndSub у меня получилось так! 0