4.4.Сумматоры

Сумматор - это переменная величина, в которой вы подсчитываете сумму чего-либо. Для чего нужны сумматоры? Ну хотя бы для того, чтобы подсчитать общее количество золота, которое вы нашли в нескольких кладах в компьютерной игре.

Если вы поняли идею счетчика, то понять идею сумматора вам будет нетрудно. Посмотрим, как будет работать следующий фрагмент:

s=0 'Обнуляем сумматор. Это не менее важно, чем обнулить счетчик

m: a = InputBox("Введите очередное число")

s=s+a 'Увеличиваем сумматор

Debug.Print "Сумма="; s

GoTo m

В ячейке s накапливается сумма вводимых чисел a, поэтому назовем эту ячейку сумматором. Отличие сумматора от счетчика в том, что счетчик увеличивается на 1 оператором c=c+1, а сумматор - на суммируемое число оператором s=s+a.

Задача: В компьютер вводится N чисел. Вычислить и один раз напечатать их сумму.

Программа:

Private Sub Command2_Click()

N = InputBox("Сколько чисел будем складывать?")

s = 0

For i = 1 To N

a = InputBox("Введите очередное число")

s = s + a

Next i

Debug.Print "Сумма равна"; s

End Sub

Задание 53: Пусть N=2, a=5 и 3. Тогда по этой программе Visual Basic напечатает 8. Что он напечатает, если:

1. Вместо s=0 написать s=10.

2. Вместо s=s+a написать s=s+a+1.

3. Строки Next и Debug.Print поменять местами.

4. Строки s=0 и For поменять местами.

5. Строки For и InputBox поменять местами.

6. Строки s=s+a и Next поменять местами.

7. Вместо For i=1 To N написать For i=2 To N.

Задания 54-56: Написать программы для следующих задач:

54. Во дворце 40 залов. Известны длина и ширина каждого зала. Вычислить площадь пола всего дворца.

55. Вычислить средний балл учеников вашего класса по физике.

56. Вычислить произведение N произвольных чисел. Подсказка: Несмотря на то, что произведение - не сумма, эта программа будет отличаться от программы суммирования всего двумя существенными символами (какими?), а структура обеих программ совершенно одинакова.

4.5.Вложение циклов в разветвления и наоборот

Реальная процедура на Visual Basic может представлять собой сложную мозаику из циклических и разветвляющихся частей, вложенных друг в друга. Мы уже видели в 2.3, как в оператор цикла были вложены операторы ветвления. В свою очередь в них могут быть вложены операторы цикла, и так до бесконечности.

Для тренировки определите, что напечатает следующий фрагмент:

Private Sub Command1_Click()

For i = 1 To 5

a = 9

If i * i = a Then

For k = 5 To 8

Debug.Print k;

Next k

Else

Debug.Print 1997

End If

Next i

End Sub

Здесь внутрь For i = 1 To 5 вложен If i * i = a , а внутрь него вложен For k = 5 To 8.

Ответ:

1997

1997

5 6 7 8 1997

1997

4.6.Вложенные циклы

Вложенные циклы или цикл внутри цикла - весьма распространенная конструкция при программировании.

Поставим себе задачу - напечатать таблицу умножения. В следующем виде:

1*1=	1	1*2=	2	1*3=	3	1*4=	4	1*5=	5	1*6=	6	1*7=	7	1*8=	8	1*9=	9	1*10=	10
2*1=	2	2*2=	4	2*3=	6	2*4=	8	2*5=	10	2*6=	12	2*7=	14	2*8=	16	2*9=	18	2*10=	20
3*1=	3	3*2=	6	3*3=	9	3*4=	12	3*5=	15	3*6=	18	3*7=	21	3*8=	24	3*9=	27	3*10=	30
4*1=	4	4*2=	8	4*3=	12	4*4=	16	4*5=	20	4*6=	24	4*7=	28	4*8=	32	4*9=	36	4*10=	40
5*1=	5	5*2=	10	5*3=	15	5*4=	20	5*5=	25	5*6=	30	5*7=	35	5*8=	40	5*9=	45	5*10=	50
6*1=	6	6*2=	12	6*3=	18	6*4=	24	6*5=	30	6*6=	36	6*7=	42	6*8=	48	6*9=	54	6*10=	60
7*1=	7	7*2=	14	7*3=	21	7*4=	28	7*5=	35	7*6=	42	7*7=	49	7*8=	56	7*9=	63	7*10=	70
8*1=	8	8*2=	16	8*3=	24	8*4=	32	8*5=	40	8*6=	48	8*7=	56	8*8=	64	8*9=	72	8*10=	80
9*1=	9	9*2=	18	9*3=	27	9*4=	36	9*5=	45	9*6=	54	9*7=	63	9*8=	72	9*9=	81	9*10=	90
10*1=	10	10*2=	20	10*3=	30	10*4=	40	10*5=	50	10*6=	60	10*7=	70	10*8=	80	10*9=	90	10*10=	100

Начнем с малого - пусть нужно напечатать

1*1=1

Вот фрагмент программы:

Фрагмент 1

a=1

b=1

proizv = a * b

Print a, "*" ,b, "=" ,proizv

Здесь в операторе Print 5 элементов:

• сомножитель a,

• символ знака умножения "*",

• сомножитель b,

• символ "=",

• значение произведения proizv

Усложним задачу. Попробуем заставить компьютер напечатать первую строку таблицы:

1*1=

1

1*2=

2

1*3=

3

1*4=

4

1*5=

5

1*6=

6

1*7=

7

1*8=

8

1*9=

9

1*10=

10

Замечаем, что здесь нам нужно решить 9 элементарных задач на вычисление произведения, первую из которых решает фрагмент 1. Все они очень похожи и различаются лишь значением второго сомножителя. Таким образом, для решения каждой из 9 задач подошел бы наш фрагмент 1, если бы в нем в операторе b=1 вместо единицы стояла нужная цифра. В данном случае идеально подходит оператор For:

Фрагмент 2

a = 1

For b = 1 To 10

proizv = a * b

Print a; "*"; b; "="; proizv;

Next b

Прокрутите программу в пошаговом режиме.

Следующая ступень усложнения - последняя - напечатать не одну строку таблицы, а девять. Для этого фрагмент 2 должен быть выполнен 9 раз, каждый раз - с новым значением a. Чтобы этого достичь, “обнимем” фрагмент 2 оператором For точно так же, как мы обнимали фрагмент 1.

Фрагмент 3

For a = 1 To 10

For b = 1 To 10

proizv = a * b

Print a; "*"; b; "="; proizv;

Next b

Next a

Прокрутите программу в пошаговом режиме, для удобства заменив 9 на 4.

Печатается все, что надо, но в одну строчку. Добавим в нужное место пустой Print, чтобы после окончания очередной строки печать начиналась с новой:

Фрагмент 4

For a = 1 To 10

For b = 1 To 10

proizv = a * b

Print a; "*"; b; "="; proizv;

Next b

Print

Next a

Прокрутите программу в пошаговом режиме. Прочувствуйте то, что пустой Print мы поместили именно в нужное место, строчкой выше или ниже он все бы испортил.

Печатает фрагмент 4 плохо. Акуратных столбцов не получается. Мы не будем добиваться идеальной картинки. Просто поменяем точку с запятой в конце оператора Print на запятую, чтобы результаты были выровнены по столбцам. Столбцы расположены на расстоянии 14 символов друг от друга. Поменяем шрифт (свойство Font) формы на Courier, потому что у этого шрифта в отличие от многих других символы имеют одинаковую ширину.

В целом программа иллюстрирует идею вложенных циклов, когда один, внутренний, цикл вложен внутрь другого, внешнего. У нас тело внешнего цикла выполняется 10 раз, а тело внутреннего - 100 раз, так как на каждое выполнение внешнего цикла он выполняется 10 раз.

Задание 57:

1. Распечатать все возможные сочетания из двух цифр - первая цифра может быть любой от 3 до 8, вторая - любой от 0 до 7. Например, 36, 44, 80.

2. Распечатать все возможные сочетания из четырех цифр, каждая из которых может принимать значения 1,2,3. Например, 2123, 3312, 1111.

3. Подсчитать количество таких сочетаний.

4. Подсчитать из них количество неубывающих сочетаний, то есть таких, где каждая следующая цифра не меньше предыдущей - 1123, 1223, 2222 и т.п., но не 3322. Распечатать все такие сочетания.