Элементы равностороннего треугольника пронумерованы следующим образом:

[АццКи ПроГрамМист]

Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона (a), 2 — радиус вписанной окружности (R1), 3 — радиус описанной окружности (R2), 4 — площадь (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке).

Таврисчи памагите она простая вроде бы но не для меня.

[Vigour]

Вот мой вариант програмы
Program triangle;
uses crt;
var a,R1,R2,S : real;
n : integer;
begin
clrscr;
readln(n);
if n=1 then
begin
readln(a);
S:=(a*a*sqrt(3))/2;
R2:=a/sqrt(3);
R1:=R2/2;
end;
if n=2 then
begin
readln(R1);
R2:=R1*2;
a:=R2*sqrt(3);
S:=(a*a*sqrt(3))/2
end;
if n=3 then
begin
readln(R2);
R1:=R2/2;
a:=R2*sqrt(3);
S:=(a*a*sqrt(3))/2;
end;
if n=4 then
begin
readln(S);
a:=sqrt((2*S)/sqrt(3));
R2:=a/sqrt(3);
R1:=R2/2;
end;
Writeln(a,' ',R1,' ',R2,' ',S);
end.

Все формулы можна посмотреть здесь
http://ru.wikipedia.org/wiki/Треугольник

[evg_m]

N: integer; //номер
z: double; //значение величины

case N of
//здесь должны быть формулы вычисления стороны по
1: a:=CalcA(z); //стороне
2: a:=CalcR1(z); //радиусу описанной
3: a:=calcR2(z); //радиусу вписанной
4: a:=calcS(z); //площади
else //неправильные данные
end;

//а здесь по стороне вычисляем
a:=ACalc(a); //сторону
R1:=R1Calc(a); //радиус описанной
R2:=R2Calc(a); //радиус вписанной
S:=R1Calc(a); // площадь

//для формул есть учебник геометрии