Question

Впаскале 1. написать программу, запрашивающую три стороны треугольника a, b, c и вычисляющую его площадь по формуле герона s=√(p(p-a)(p-b)(p- где p=(a+b+c )⁄2 - полупериметр2. вычислить(написать программу)а) 1/(1+1/(2+1/(2+3/ б) (-b+√(b^2-4"ac" ))/2a

Answer 1

ответ:

var a,b,c,e,f,g,h,i,j,k: double;

begin

a: =strtoint(edit1.caption);

b: =strtoint(edit2.caption);

c: =strtoint(edit3.caption);

j: =a+b+c;

k: =j/2;

e: =k-a;

f: =k-b;

g: =k-c;

h: =e*f*g*k;

i: =sqrt(h);

label4.caption: =floattostr(i);

end;

объяснение: