[SmaZz]

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

Код:

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

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]

Код:

1 2 3 4 5 6

Function SmaZz(m:real;n:real;k:real):real; var r:real; begin r:=(m+n+k)/2; <font color="Red">SmaZz</font>:=sqrt(r*(r-m)*(r-n)*(r-k)); end;

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

[SmaZz]

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