Chiziqli dasturlar tuzish

2–misol. Tomonlari mos ravishda a, b, c bo‘lgan ixtiyoriy uchburchakning yuzini Geron formulasi orqali hisoblash dasturini tuzing va a=3, b=4, c=5 qiymatlarda hisoblang.

I usul	II usul
Program Uchburchak_yuzi; Var a,b,c:Integer; {uchburchak tomonlari} yp,s:Real; {yp-yarim perimetr, s-yuza} Begin a:=3; b:=4; c:=5; yp:=(a+b+c)/2; s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); WriteLn(‘S= ‘,s,‘ kvadrat birlik‘); Readln; End.	Program Uchburchak_yuzi; Var a,b,c:Integer; {uchburchak tomonlari} yp,s:Real; {yp-yarim perimetr, s-yuza} Begin Write(‘a,b,c ning qiymatlari kiritilsin ‘); ReadLn(a,b,c); yp:=(a+b+c)/2; s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); WriteLn(‘S=‘,s:2:2,‘ kvadrat birlik‘); readln; End.