Составить блок-схему алгоритма и программу вычисления суммы 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