Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника
Категория: Delphi/Pascal
2011-12-21 19:42:37
Элементы равностороннего треугольника пронумерованы следующим образом:
1 — сторона a, 2 — радиус R1 вписанной окружности (R1 = a*sqrt(3)/6),
3 — радиус R2 описанной окружности (R2 = 2*R1), 4 — площадь S = a^2 * sqrt(3)/4.
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке)
code: #pascal
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.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: