Методика и порядок выполнения работы

1. Изучите теоретическое обоснование.

2. Выполните контрольный пример 1: вывести числа натурального ряда от N до K и найти их сумму. Значения N и K – целые числа, введенные с клавиатуры. Для этого:

• запустите среду Visual Basic;

• с помощью стандартного набора инструментов Toolbox создайте экранную форму (рисунок 1). В нижней части которой расположите две метки («Начальное значение», «Конечное значение»); два текстовых поля Нач и Kон; командную кнопку с надписью Пуск и именем Command1, нажатием которой запускается программа.

• Создайте программный код:

Private Sub Command1_Click ()

N = Val (Нач.Text) ‘Преобразование введенных значений в числа

K = Val (Кон.Text)

Print "Числа из указанного диапазона"; N, K

s = 0 ‘присваивается начальное значение переменной S (сумма чисел)

For i = N To K ‘ начало цикла

Print i; s = s + i ‘ повторяющиеся в цикле операторы

Next i

Print " Сумма="; s ‘вывод суммы ряда на форму

End Sub

Проверяется условие i<=n, если оно истинно, то вычисляется очередное значение S. Запустите программу и исправьте ошибки. Сохраните проект.

Рисунок 1 – Вид формы и программного кода для Примера 1

Измените шаг параметра i на 2 следующим образом: For i=N To K Step 2 и запустите программу. Проанализируйте результат, в этой программе будет найдена сумма всех нечетных чисел из диапазона от N до K. Для вычисления произведения указанных чисел измените ее следующим образом: S=1 и S=S*i. Запустите программу на выполнение.

3. Создайте новый проект и выполните контрольный пример 2.

Дано значение K (K>=1), которое вводится с клавиатуры. Вычислить количество чисел, введенных с клавиатуры, сумма которых не превышает величину K.

Такую программу можно реализовать с помощью цикла с предусловием. Для этого создайте экранную форму из пяти объектов (рисунок 2):

• 4 метки с именами: «Введите конечное значение суммы», «Введенные числа», «Сумма введенных чисел» и «Количество введенных чисел»;

• 4 текстовых поля: Kon (для ввода величины К); А1 (для вывода всех введенных чисел) и S1 (для вывода полученной суммы); Num (для количества чисел). Для каждого из них в свойстве Text поставьте пробел;

• командную кнопку с надписью «Начало ввода» и именем Command1.

Создайте для командной кнопки Command1 программный код:

Private Sub Command1_Click()

Dim A, S, K As Single , N As Integer ‘объявление используемых переменных

A1.Text = ""

N = 0: S = 0

K = Val (Kon.Text)

Do While S < K ‘начало цикла с предусловием

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

N = N + 1 ‘подсчет количества введенных чисел

S = S + A ‘подсчет суммы чисел

A1.Text =A1.Text + Str(A)+ "; " ‘ заполнение окна A1 введенным числами

S1.Text = Str( S ) ‘заполнение S1 промежуточными суммами

Num.Text = Str (N)

Loop ‘ возвращение на начало цикла и проверка условия

End Sub

Запустите программу, введите конечное значение К, нажмите кнопку «Начало ввода», в появившемся окне ввода вводите числа и нажимайте ОК. В окне «Введенные числа» на форме он будут отражаться, а в окнах «Сумма введенных чисел» и «Количество введенных чисел» –– суммироваться и считаться по количеству до тех пор пока их сумма не превосходит К.

Запустите программу на выполнение. Сохраните проект.

В программе используется цикл, реализованный оператором цикла Do While...Loop, который позволяет многократно вводить исходные числа в окно ввода, пока сумма чисел S не превысит K. Однако этот цикл не выполнится ни разу, если ввести К <1. Убедитесь в этом.

1. В соответствии со своим вариантом разработайте блок-схемы и проекты для своего задания.

Таблица 1 – Варианты задания

№ варианта	Условия задания
1	Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел.
2	Вводится последовательность из N чисел. Найти, сколько в ней нулей и их порядковые номера.
3	Вводится последовательность из M чисел. Найти наименьшее из всех положительных чисел.
4	Вводится последовательность целых чисел, 0 – конец последовательности. Подсчитать, сколько в ней отрицательных, и сколько положительных элементов.
5	Вводится последовательность целых чисел, 0 – конец последовательности. Найти сумму и количество положительных чисел.
6	Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, и сколько положительных (включая нулевые) элементов.
7	Дана последовательность из М чисел. Вычислить сумму и количество чисел, которые меньше 5.
8	Дана последовательность из М чисел. Вычислить произведение и количество чисел, которые меньше 10.
9	Вводится последовательность ненулевых чисел, 0 – конец последовательности. Сколько из этих чисел больше 5, но меньше 10. Найти сумму таких чисел.
10	Дана последовательность из М чисел. Все отрицательные среди них числа возвести в квадрат и найти их сумму.
11	Дана последовательность из М чисел. Найти сумму и произведение всех положительных чисел.
12	Дана последовательность из М чисел. Найти наибольшее среди отрицательных из них.
13	Дана последовательность из М чисел. Найти наименьшее из всех чисел, больших 10, и его порядковый номер.
14	Дана последовательность из М чисел, все положительные среди них числа заменить их корнем и найти их сумму.
15	Дана последовательность чисел, заканчивающаяся 0. Найти сумму чисел меньших 3 и произведение чисел больших 10.
16	Дана последовательность из М чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел.

Содержание отчета и его форма

Выполните все описанные пункты задания, письменно оформите отчет, который должен содержать:

• тему, цель лабораторной работы;

• общий вид операторов циклов;

• условие, блок-схему, программный код и результат выполнения задания по своему варианту.