Find square difference: Difference between revisions

Content added Content deleted
No edit summary
No edit summary
Line 269: Line 269:
<pre>501</pre>
<pre>501</pre>


=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
repeat
i += 1
square = pow i 2
diffSquare = pow (i - 1) 2
difference = square - diffSquare
until difference > 1000
.
print i
</syntaxhighlight>

=={{header|F_Sharp|F#}}==
<syntaxhighlight lang="fsharp">
let n=1000 in printfn $"%d{((n+1)/2)+1}"
</syntaxhighlight>
{{out}}
<pre>
501
</pre>


=={{header|Delphi}}==
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}
{{libheader|SysUtils,StdCtrls}}



<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
Line 320: Line 299:
Smallest Difference N^2: < 32000 is: 16001
Smallest Difference N^2: < 32000 is: 16001
Smallest Difference N^2: < 2000000000 is: 1000000001
Smallest Difference N^2: < 2000000000 is: 1000000001
</pre>


=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
repeat
i += 1
square = pow i 2
diffSquare = pow (i - 1) 2
difference = square - diffSquare
until difference > 1000
.
print i
</syntaxhighlight>

=={{header|F_Sharp|F#}}==
<syntaxhighlight lang="fsharp">
let n=1000 in printfn $"%d{((n+1)/2)+1}"
</syntaxhighlight>
{{out}}
<pre>
501
</pre>
</pre>