спс вашему сайту!!!! вы лучшие!!!!!
заработало)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,s,p,pp:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
if (a<0) or (b<0) or (c<0) then
Begin
Label1.Caption:=' Одна из сторон отрицательна!!!';
Exit;
end;
if (a+b<c) or (b+c<a) or (a+c<b) then
begin
Label1.Caption:='Нельзя построить треугольник!!!!';
Exit;
end;
if RadioButton1.Checked then
begin
p:=a+b+c;
Label1.Caption:='Периметр равен = ' + FloatToStr(p);
end else
if RadioButton2.Checked then
begin
pp:=(a+b+c)/2;
s:=sqrt(abs(pp*(pp-a)*(pp-b)*(pp-c)));
Label1.Caption:='Площадь равна = ' + FloatToStr(s);
end;
Админ: Пользуемся тегами для оформления кода!
хочу для S(площади) прописать ограничение типа S:2:2.. но прога ругается.. что делать??