Задача на case

[INFRON]

нужно в case

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

1- сторона (а)
2 — радиус вписанной окружности (R1), R1=a*sqrt(3)/6 ) 3 под корнем
3 — радиус описанной окружности (R2), R2 = 2•R1
4 — площадь (S) S = a*a*sqrt(3) /4 а в квадрате, 3 под корнем

[Stilet]

Ну а в чем сложности? Покажи как пробовал.

[JetUS]

Если тебе про саму конструкцию case, тогда будет нечто подобное:

case Variant of
  1:
    begin
      
    end
  2:
    begin

    end
  else
...

[INFRON]

вот я сделал эту задачу, но результыты некоректны, в чем ошибка?

n:integer; //номер элемента
a,R1,R2,S : real;
z: double ; //величина
begin
n:=strtoint(edit1.text);
z:=strtoint(edit2.text);
case n of
1: a:=(z);
2: a:=(r1*sqrt(3))/6;
3: a:=r2*sqrt(3);
4: a:=sqrt((2*s)/sqrt(3));
else
edit1.text:='неверные данные';
edit2.text:='неверные данные';
end;
z:=(a);
r1:=(a*sqrt(3))/6;
r2:=2*r1;
s:=(a*a*sqrt(3))/2;;

edit3.Text:=floattostr(a); //1
edit4.Text:=floattostr(r1); //2
edit5.Text:=floattostr(r2); //3
edit6.Text:=floattostr(s);  //4
end;
end.

[Stilet]

но результыты некоректны, в чем ошибка?

Правильно некорректны... ТЫ вычисляешь только первый пункт.

case n of
1:begin
 a:=(z);  r1:=(a*sqrt(3))/6;  r2:=2*r1;  s:=a*a*sqrt(3)/4...;
end

2: begin
 a:=r1/(sqrt(3)/6);r2:=2*r1; s:=a*a*sqrt(3)/4...;
end
...

т.е. как я понимаю, тебе нужно вычислять по разным формулам в зависимости от того что введено.

[INFRON]

ага сейчас попробую переделать

[INFRON]

Переписал, но работает если ввести первое значение, на остальных дст

n:integer; //номер элемента
a,R1,R2,S : real;
z: double ; //величина
begin
n:=strtoint(edit1.text);
z:=strtoint(edit2.text);
case n of
  1:
    begin
    a:=(z);  r1:=(a*sqrt(3))/6;  r2:=2*r1;  s:=a*a*sqrt(3)/3;
    end ;
  2:
    begin
     a:=r1/(sqrt(3)/6); r2:=2*r1; s:=a*a*sqrt(3)/3;
    end ;
  3:
    begin
    r1:=r2/2; a:=sqrt(3)/(r1*6); s:=a*a*sqrt(3)/3;
    end ;
  4:
    begin
    a:=sqrt(3)/(s*3);//a удвоенное
    r1:=(sqr(a)*sqrt(3))/6;
    r2:=2*r1;
    end ;
  else
 edit1.text:='ошибка';
end;
edit3.Text:=floattostr(a); //1
edit4.Text:=floattostr(r1); //2
edit5.Text:=floattostr(r2); //3
edit6.Text:=floattostr(s);  //4
end;
end.

[INFRON]

Ура решил

 var
n:integer; //номер элемента
a,R1,R2,S : real;
z: double ; //величина
begin
n:=strtoint(edit1.text);
z:=strtoint(edit2.text);
case n of
  1:
    begin
    a:=(z);  r1:=(a*sqrt(3))/6;  r2:=2*r1;  s:=a*a*sqrt(3)/3;
    end ;
  2:
    begin
    r1:=(z); a:=r1/(sqrt(3)/6); r2:=2*r1; s:=a*a*sqrt(3)/3;
    end ;
  3:
    begin
   r2:=(z); r1:=r2/2; a:=sqrt(3)/(r1*6); s:=a*a*sqrt(3)/3;
    end ;
  4:
    begin
    s:=(z);
    a:=sqrt(3)/(s*3);//a удвоенное
    r1:=(sqr(a)*sqrt(3))/6;
    r2:=2*r1;

    end ;
  else
 edit1.text:='ошибка';
end;
edit3.Text:=floattostr(a); //1
edit4.Text:=floattostr(r1); //2
edit5.Text:=floattostr(r2); //3
edit6.Text:=floattostr(s);  //4
end;
end.