Var p:real;
Begin
P:=(x+y+z)/2;
S:=sqrt(p*(p-x) *(p-y) *(p-z))
End;
Begin
Read(a,b,c,d,m);
{T o ‘g ‘ri to ‘rtb u rch ak tom onlari va diagonali u zu n lik larin i
kiritish}
S2:=0;
geron(a,d,m,sl);
{ Q ism -dasturga m urojaat}
s2:=s2+sl; geron(b,c,m,sl);
{Q ism -dasturga m urojaat}
s2:=s2+sl;
Write(‘yuza= ‘,s2:10:4);
End.
Funksiya qism-dasturi.
F unksiya qism -dasturi
odatda
function
operatori
deb y uritiladi ham d a u param etrii
function
< n om > (< form al p a ra m etrla r» ):
; va param etrsiz
function
< n om > : < tip>; k o ‘rinishlarda boMadi.
B u y e rd a fo rm al p aram etrlarn in g har birin in g tiplari k o ‘rsa tilg a n boMadi;