- •Вычислительная математика
- •Решение задачи на компьютере. Алгоритмизация и программирование.
- •Алгоритм и программирование
- •Начало
- •Программа в VBA оформляется в виде модуля и состоит из раздела объявлений (declarations),
- •Инструкция объявления переменных
- •Инструкции описания процедуры
- •Инструкции описания функции
- •СЛЕДОВАНИЕ
- •ВЕТВЛЕНИЕ
- •Составить блок-схему алгоритма и программу вычисления суммы n чисел
- •ЦИКЛ БЕЗУСЛОВИЯ
- •ЦИКЛ C ПАРАМЕТРОМ
Составить блок-схему алгоритма и программу вычисления суммы n чисел
натурального ряда. |
S=1+2+3+….+n |
|
ЦИКЛ C ПРЕДУСЛОВИЕМ |
начало
n 1
s:=0; i:=1 2
нет |
|
да |
|
|
i <= n |
3 |
|
|
|||
|
|
||
|
|
|
|
s |
|
5 |
s := s+i |
|
|
||||
|
i := i+1 4 |
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
конец |
|
|
|
Sub Blok3() Dim S!, i%, n% n=Cells(2,1) S=0
i=1
Do While i<=n S=S+i i=i+1
Loop cells(2,2)=S
End Sub
11
Инструкция Exit Do – Выход из цикла в произвольном месте
|
|
|
|
|
|
|
|
|
|
ЦИКЛ C ПОСТУСЛОВИЕМ |
|
|
|
|
|
начало |
|
|
|
|
|
||
|
|
|
|
n |
|
1 |
|
Sub Blok4() |
|||
|
|
|
|
|
|
||||||
|
|
|
|
|
|
Dim S!, i%, n% |
|||||
|
|
|
|
|
|
|
|
|
|
|
n=Cells(2,1) |
|
|
|
|
s:=0; i:=1 |
|
2 |
|
s=0 |
|||
|
|
|
|
|
|
i=1 |
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Do |
|
|
|
|
|
|
|
|
|
|
|
S=S+i |
|
|
|
|
|
|
|
|
|
|
|
i=i+1 |
|
|
|
|
s :=s+i |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Loop While i<=n |
||
|
|
|
|
i := i+1 |
3 |
|
|
||||
|
|
|
|
|
cells(2,2)=S |
||||||
|
|
|
|
|
|
|
|
|
|
|
|
нет |
|
|
|
да |
End Sub |
||||||
|
|
|
|
i <= n |
|
4 |
|
|
|||
|
|
|
|
|
|
||||||
s |
|
6 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
конец
12
Инструкция Exit Do – Выход из цикла в произвольном месте
ЦИКЛ БЕЗУСЛОВИЯ
начало
n1
s:=0; i:=0 2
|
i := i+1 |
|
3 |
|
|
|
|
|
|
|
|||
|
|
|
|
|
да |
|
|
|
|
|
|
|
|
нет |
|
|
|
|||
|
i <= n |
|
4 |
|
||
|
||||||
|
|
|
|
|
|
|
s |
|
6 |
s := s+i |
|
5 |
|
||
|
|
|
||||||
|
|
|||||||
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
конец
Sub Blok5() Dim s!, i%, n% n=Cells(2,1) s=0
i=0 Do
i=i+1
if I > n Then Exit do s=s+i
Loop cells(2,2)=s
End Sub
13
ЦИКЛ C ПАРАМЕТРОМ
Начало
n
S:=0
i:=1 шаг 1 до n
S:=S+i S
Sub Blok6() Dim S!, i%, n% n=Cells(2,1) S=0
For i=1 T0 n S=S+i
Next i cells(2,2)=S
End Sub
Конец
Инструкция Exit For – Выход из цикла в произвольном месте
14