1. Математическая часть задачи.
Пусть a, b -- катеты ΔABC, а c -- гипотенуза.
1) Найдём катеты ΔABC:
ΔABC -- равнобедренный (по условию). => a = b.
c² = a² + b² (по теореме Пифагора)
c² = 2a²
a² = c² / 2
a = b = √(c² / 2)
2) Найдём радиус вписанной окружности:
r = (a + b - c) / 2 = (2a - c) / 2 = (2√(c² / 2) - c) / 2 = √(c² / 2) - c / 2
3) Найдём площадь вписанной окружности:
S = πR² = πr² = π(√(c² / 2) - c / 2)²
2. Код на Python
import math
c = int(input("Введите длину гипотенузы треугольника: "))
print(math.pi * (math.sqrt(c ** 2 / 2) - c / 2) ** 2)
Sub Swap()
Dim r As Range, A As Variant
Dim i As Integer, im As Double, n As Integer, t As Double
n = 15
Set r = Range(Cells(1, 1), Cells(1, n))
A = r
im = 1
For i = 2 To n
If A(1, i) > A(1, im) Then
im = i
End If
Next i
t = A(1, im)
A(1, im) = A(1, n)
A(1, n) = t
Set r = Range(Cells(2, 1), Cells(2, n))
r = A
End Sub
На лист в ячейки А1 - О1 заносим исходные 15 чисел
На этот же лист через проект помещаем макрос и запускаем.
Результат будет в ячейках А2 - О2
