Find square difference: Difference between revisions

=={{header|Delphi}}==

{{works with|Delphi|6.0}}

{{libheader|SysUtils,StdCtrls}}

<syntaxhighlight lang="Delphi">

procedure LeastSquareDiff(Memo: TMemo; Limit: integer);

var N: integer;

var S: string;

begin

for N:=1 to High(integer) do

if (N*N)-((N-1)*(N-1))>Limit then break;

S:=Format('Smallest Difference N^2: <%12d is: %12d',[Limit,N]);

Memo.Lines.Add(S);

end;

procedure ShowLeastSquareDiff(Memo: TMemo);

begin

LeastSquareDiff(Memo,1000);

LeastSquareDiff(Memo,32000);

LeastSquareDiff(Memo,2000000000);

end;

</syntaxhighlight>

{{out}}

<pre>

Smallest Difference N^2: < 1000 is: 501

Smallest Difference N^2: < 32000 is: 16001

Smallest Difference N^2: < 2000000000 is: 1000000001

</pre>