про треугольник

[Выхухольxxx]

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

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,s,p,h : real;
begin

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
        if (a = b) and (b = c) and (c = a)
        then
        begin
             p := (a + b + c) / 2;
             s := sqrt ((p * (p - a) * (p - b) * (p - c)));

             h=a*(sqrt(3)/2) ;

             Edit4.Text := FloatToStr(s);
             Edit5.Text := FloatToStr(x);
     end
     else
     ShowMessage('Треугольник не равносторонний');
end;

подскажите пжлст, что дальше? что то торможу))



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) для того, чтобы проверить три числа на правильность достаточно выполнение всего двух условий:
(a=b) and (b=c)

2) Вы не проверяете, что заданные длины могут быть длинами треугольника
(т.е. если стороны не равны - то не факт, что это вообще треугольник)

3) а дальше Вам надо отсортировать три числа.
пара сравнений (ну и обменов значений переменных) легко решат эту проблему...