[SmaZz]

мне надо посчитать площадь треугольника по формуле s:=sqrt(r*(r-m)*(r-n)*(r-k)) где m,n,k - стороны треугольника, r - полупериметр треугольника. надо посчитать это через подпрограмму.
затем посчитать сумму и разность двух других через подпрограмму

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,p,l,f,S1,S2:real;
Function SmaZz(m:real;n:real;k:real):real;
var r,s:real;
begin
r:=(m+n+k)/2;
s:=sqrt(r*(r-m)*(r-n)*(r-k));
end;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
p:=strtofloat(edit4.text);
l:=strtofloat(edit5.text);
f:=strtofloat(edit6.text);
S1:=SmaZz(a,b,c);
S2:=SmaZz(p,l,f);
Label9.caption:=' Сложение = '+floattostr(s1+s2)+#13+' Вычитание = '+floattostr(s1-s2)
end;

end.

[lmikle]

А какую ошибку-то дает?

[Konrad]

Код:

Function SmaZz(m:real;n:real;k:real):real;
var r:real;
begin
r:=(m+n+k)/2;
SmaZz:=sqrt(r*(r-m)*(r-n)*(r-k));
end;

И, кстати, добавь проверку, иначе может получиться корень(-1*...)

[SmaZz]

lmikle
он не правильно считает
пишет что в когда сложение там число в 23 степени, а при вычитании 0
Konrad
эт то спасиб
просто первый раз с подпрограммами работаю