Элементы равностороннего треугольника пронумерованы следующим образом:
1 — сторона a, 2 — радиус R1 вписанной окружности (R1 = a*sqrt(3)/6), 3 — радиус R2 описанной окружности (R2 = 2*R1), 4 — площадь S = a^2 * sqrt(3)/4.
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке)
Program Case14;
Var
Cnt: Byte;
_Val, a, R1: Real;
Begin
WriteLn('1 — сторона, 2 — радиус вписанной окружности, 3 — радиус описанной окружности, 4 — площадь:');
ReadLn(Cnt);
WriteLn('Введите значение элементa: ');
ReadLn(_Val);
Case Cnt Of
1:
Begin
a := _Val;
R1 := a * (sqrt(3) / 6);
WriteLn('Cторона: ', a);
WriteLn('Pадиус вписанной окружности: ', R1);
WriteLn('Pадиус описанной окружности: ', 2 * R1);
WriteLn('Площадь: ', Sqr(a) * (sqrt(3) / 4));
End;
2:
Begin
a := _Val / (sqrt(3) / 6);
R1 := _Val;
WriteLn('Cторона: ', a);
WriteLn('Pадиус вписанной окружности: ', R1);
WriteLn('Pадиус описанной окружности: ', 2 * R1);
WriteLn('Площадь: ', Sqr(a) * (sqrt(3) / 4));
End;
3:
Begin
a := _Val / (sqrt(3) / 3);
R1 := _Val / 2;
WriteLn('Cторона: ', a);
WriteLn('Pадиус вписанной окружности: ', R1);
WriteLn('Pадиус описанной окружности: ', 2 * R1);
WriteLn('Площадь: ', Sqr(a) * (sqrt(3) / 4));
End;
4:
Begin
a := sqrt(4 * _Val) / 3;
R1 := a * (sqrt(3) / 6);
WriteLn('Cторона: ', a);
WriteLn('Pадиус вписанной окружности: ', R1);
WriteLn('Pадиус описанной окружности: ', 2 * R1);
WriteLn('Площадь: ', Sqr(a) * (sqrt(3) / 4));
End;
End;
End.