Law of cosines - triples: Difference between revisions

Content added Content deleted
No edit summary
Line 659: Line 659:
var S: string;
var S: string;
begin
begin
Memo.Lines.Add(Format('Gamma=%d Degrees',[Angle]));
Memo.Lines.Add(Format('Gamma= %d°',[Angle]));
Count:=0;
Count:=0;
S:='';
S:='';
Line 671: Line 671:
if (Count mod 3)=0 then S:=S+CRLF;
if (Count mod 3)=0 then S:=S+CRLF;
end;
end;
⚫
Memo.Lines.Add(S);
Memo.Lines.Add(Format('Number of triangles = %d',[Count]));
Memo.Lines.Add(Format('Number of triangles = %d',[Count]));
⚫
Memo.Lines.Add(S);
end;
end;


Line 705: Line 705:


Elapsed Time: 9.768 ms.
Elapsed Time: 9.768 ms.
⚫
</pre>


⚫
</pre>


=={{header|Factor}}==
=={{header|Factor}}==
Retrieved from "https://rosettacode.org/wiki/Law_of_cosines_-_triples"