Microsoft Small Basic
Program Listing:
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=NXP803-0' /> </object>
'The sum of the squares of the first ten natural numbers is,
'1^(2) + 2^(2) + ... + 10^(2) = 385
'The square of the sum of the first ten natural numbers is,
'(1 + 2 + ... + 10)^(2) = 55^(2) = 3025
'Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 − 385 = 2640.
'Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.
sumots
=
0
squareots
=
0
Sub
sumOfTheSquares
For
i
=
1
To
100
sumots
=
sumots
+
Math
.
Power
(
i
,
2
)
EndFor
EndSub
Sub
squareOfTheSum
For
i
=
1
To
100
squareots
=
squareots
+
i
EndFor
squareots
=
Math
.
Power
(
squareots
,
2
)
EndSub
sumOfTheSquares
(
)
squareOfTheSum
(
)
TextWindow
.
WriteLine
(
squareots
-
sumots
)
Copyright (c) Microsoft Corporation. All rights reserved.