y = f (x) , . , .
(, ). , , , .
:
,
i ; f (i) i.
, i 1, i - :
.
, n . , , (). , , .
. 2.
. 2.
. 3.
. N .
Sub Demo_Summa()
Dim i As Integer
Dim sStart, sEnd As Integer
Dim Sum As Long
sStart = 1
sEnd = InputBox(" :", " ")
Sum = 0
For i = sStart To sEnd
Sum = Sum + i
Next i
MsgBox " " & sStart & " " & sEnd & " " & Sum,, " "
End Sub
DoLoop.
Sub Demo_Summa()
Dim i As Integer
Dim sStart, sEnd As Integer
Dim Sum As Long
sEnd = InputBox(" :", " ")
sStart = 1
i = sStart
Sum = 0
Do
Sum = Sum + i
i = i + 1
Loop While i <= sEnd
MsgBox " " & sStart & " " & sEnd & " " & Sum,, " "
End Sub
. , .
Sub Demo_Summa()
Dim n, m, i, u As Integer
n = InputBox(" ", " ")
m = InputBox(" ", " ")
summa = 0 '
j = 0 '
For i = 1 To n
u = i
' ,
If i Mod m = 0 Then
summa = summa + u
' ,
|
|
j = j + 1
End If
Next i
MsgBox " " & summa & ", " & " " & j,, " "
End Sub
, Mod, . , . If.
.
,
.
.
. 3.
. N.
:
.
, N n .
Sub Demo_Proizvedenie()
Dim n, i, u As Integer
Dim p As Double
n = InputBox(" n= ", " ")
p = 1
For i = 1 To n
u = i
p = p * u
Next i
MsgBox " 1 " & n & " " & p,, " "
End Sub