[NAZE]

Здравствуйте, помогите пожалуйста решить задачу:
Пусть элементами равностороннего треугольника являются :
1)сторона а; 2)площадь S; 3)высота h. Реализуйте проект на delphi, в котором по выбранному параметру и введенному значению соответсвующего параметра выводились бы значения всех остальных элементов треугольника.

[Konrad]

Напиши формулы, которые это все реализуют.
И когда будет видно,что хотя бы формулы ты знаешь - можно о чем-то с тобой говорить, иначе => Раздел:работа.

Так как уже неоднократно говорилось на форуме: решать неинтересные однотипные примитивные задачи - пустая трата времени.

[NAZE]

вроде формулы такие:
a:=sqrt((2*S)/sqrt(3));
s:=(a*a*sqrt(3))/2;
h:=(sqrt(3)*a)/2;

[NAZE]

подскажите в чем ошибка:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button1Click(Sender: TObject); var s,a,h,x,y,b:extended; begin y:=strtofloat(edit1.Text); x:=strtofloat(edit2.Text); if y=a then x:=a; s:=sqrt(3)/4*a*a; h:=sqrt(a-(a/2)); if y=s then x:=s; a:=sqrt(3)/4/s/s; h:=sqrt(a-(a/2)); if y=h then x:=s; a:=sqrt(3)/4/s/s; s:=sqrt(3)/4*a*a; memo1.Lines.add('h='+floattostrf(h,fffixed,8,3)+'   a='+floattostrf(a,fffixed,8,3)+'   s='+floattostrf(s,fffixed,8,3)); end;

Admin: Пользуемся тегами!

[Black Raider]

А что за ошибка то?

[Black Raider]

может так?

Сообщение от NAZE

подскажите в чем ошибка:
procedure TForm1.Button1Click(Sender: TObject);
var
s,a,h,x,y,b:extended;
begin
y:=strtofloat(edit1.Text);
x:=strtofloat(edit2.Text);
if y=a then begin
x:=a;
s:=sqrt(3)/4*a*a;
h:=sqrt(a-(a/2));
end;
if y=s then begin
x:=s;
a:=sqrt(3)/4/s/s;
h:=sqrt(a-(a/2));
end;
if y=h then begin
x:=s;
a:=sqrt(3)/4/s/s;
s:=sqrt(3)/4*a*a;
end;
memo1.Lines.add('h='+floattostrf(h,fffixed,8,3)+' a='+floattostrf(a,fffixed,8,3)+' s='+floattostrf(s,fffixed,8,3));
end;

[NAZE]

вот ошибка

[Black Raider]

только проверь формулы.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.Button1Click(Sender: TObject); var x,a,h,s:extended; begin   x:=strtofloat(edit2.Text);   if edit1.Text[1]='a' then begin     a:=x;     s:=sqrt(3)/4*x*x;     h:=sqrt(x-(x/2));   end;   if edit1.Text[1]='s' then begin     s:=x;     a:=sqrt(3)/4/x/x;     h:=sqrt(x-(x/2));   end;   if edit1.Text[1]='h' then begin     h:=x;     a:=sqrt(3)/4/x/x;     s:=sqrt(3)/4*x*x;   end;   memo1.Lines.add('h='+floattostrf(h,fffixed,8,3)+' a='+floattostrf(a,fffixed,8,3)+' s='+floattostrf(s,fffixed,8,3)); end;

[NAZE]

спасибо!!!!!