Law of cosines - triples: Difference between revisions
→{{header|Delphi}}
No edit summary |
|||
Line 659:
var S: string;
begin
Memo.Lines.Add(Format('Gamma= %d
Count:=0;
S:='';
Line 671:
if (Count mod 3)=0 then S:=S+CRLF;
end;
Memo.Lines.Add(S);▼
Memo.Lines.Add(Format('Number of triangles = %d',[Count]));
▲Memo.Lines.Add(S);
end;
Line 705:
Elapsed Time: 9.768 ms.
</pre>▼
▲</pre>
=={{header|Factor}}==
|