Pascal Program Using Hero’s Formular To Calculate Area Of A Triangle

Just came across a program I wrote then in school to calculate area of triangle using Hero’s formula.

Program flowchart


/**<br /> *<br /> * @Author: Aghatise Osazuwa<br /> * Website: www.cscprogrammingtutorials.com<br /> *<br /> */ <br /><br />Program AreaOfTriangle;<br />const<br />PI = 3.142;<br />type<br />r=array [1..3] of real; {hold the values of sides of triangle}<br />var<br />d:r;<br />A:real;<br />K:integer;<br />s:real;<br />begin<br />   For k:= 1 to 10 Do  {loop for the 10 sets of values}<br />     begin<br />        writeln ('Enter Values of first side');<br />        read (d[1]);<br />        writeln ('Enter Values of second side');<br />        read (d[2]);<br />        writeln ('Enter Values of third side');<br />        read (d[3]);<br />        s:= (d[1]+d[2]+d[3])/2;  {compute s}<br />           A:= Sqrt(s*((s-d[1])*(s-d[2])*(s-d[3]))); {compute area}<br />        writeln ('Area = ', A);<br />     end<br />end.       <br />

/** * * @Author: Aghatise Osazuwa * Website: www.cscprogrammingtutorials.com * */ Program AreaOfTriangle; const PI = 3.142; type r=array [1..3] of real; {hold the values of sides of triangle} var d:r; A:real; K:integer; s:real; begin For k:= 1 to 10 Do {loop for the 10 sets of values} begin writeln ('Enter Values of first side'); read (d[1]); writeln ('Enter Values of second side'); read (d[2]); writeln ('Enter Values of third side'); read (d[3]); s:= (d[1]+d[2]+d[3])/2; {compute s} A:= Sqrt(s*((s-d[1])*(s-d[2])*(s-d[3]))); {compute area} writeln ('Area = ', A); end end.

Pascal Program Using Hero’s Formular To Calculate Area Of A Triangle

1 Comment