Окончание табл. 7

1

2

Select Case a

да

a>4

Case Is>4

a=sqr(a)

С

a=Sqr(a)

нет

Case Is<4

да

a=a*2

a<4

a=a*2

Case Else

a=a-2

нет

и

End Select

a=a-2

бА

циклы с условием, в которых тело цикла выполняется, пока

Д

условие истинно (циклы типа пока

и до).

Когда заранее известно, какое число повторений тела цикла

необходимо выполнить, можно воспользоваться циклической

структурой со счетчиком (табл. 8).

Таблица 8

Алгоритмическая структура «Цикл» типа « ля»

Язык программирования VBA

Язык блок-схем

И

For i=1

To N Step 2

i=1, N, 2

тело

цикла (последовательность

действий)

тело цикла

Next i

Язык программирования VBA

Язык блок-схем

s=0

s=0

С

For i=1 To

30

i=1, 30, 1

s:=s+i

Next i

и

s:=s+i

i=1; p=1

i=1: p=1

бА

While i<=30

i<=30

нет

p=p*i

i=i+1

Wend

да

p=p*i

i=i+1

Д

Практические задания

1. Описать следующие схемы условных операторов на VBA:

а)

b)

И

нет

x>0

да

да

y=x2+z2

Y=0

z=x/y

нет

y=x2

c)

d)

да

a>0 И

да

b=a2+b

2

a>b

b=a

+b

b>0

нет

нет

С2 3

a=a+b2

a=a+b

z=a+b

2. остав ть блок-схему вычисления функции у по формуле

y=24x–1,5x +1,5x

значениях

х от 1 до 9,9

включительно

с

шагом 0,1.

блок

c.

3. Пр сво ть переменной max наибольшее из значений a, b,

Решить задачу с помощью

лок-схем.

при4. Состав ть на VBA виде

-схемы фрагмент программы,

выполняющей следующие вычисления:

А

Если x<-3, то y=6x – c sinx.

Если -3<=x<0, то y=5ax2 + b + c cosx.

Если x=0, то y=10.

Если x>1, то y

x2

ccosx.

2

Д

5.Вычислить значения y для переменных а=3; b=4; c=5:

a)If (a-b)/(c*2)>=(b-c)/(a*c)

Then

y=a-b/c*6*(b-c)*2*a/b

И

Else

y=b/c/b*a*3*c*a/b

End If

б) If a>b Then

y=c

ElseIf b>c Then

y=a

Else

x

cos x,если y 0;

m y