Лабораторная работа №4

Продолжительность 1,5 часа

Цель работы является изучение структур разветвлённых алгоритмов и освоение методов работы с классами и объектами в среде Visual Studio.

Вопросы, которые должны быть изучены:

1. Типы структур разветвления.

2. Как создаётся объект класса?

3. Почему внутренние переменные класса должны быть закрытыми?

Задание

1. Выбрать вариант индивидуального задания из таблицы.

2. Написать программы методов класса для реализации задания двумя способами: с использованием двойного ветвления и обхода.

3. Запустить Visual Studio 2012. В меню Visual Studio File щелкнуть New Project.

4. В окне New Project выбрать шаблон Windows Application.

5. В поле name ввести Lab4 и нажать кнопку ОК. Откроется новый проект.

6. Из области элементов перенести на форму необходимые для выполнения работы кнопки, метки и текстовые поля.

7. Выбрать команду Проект Добавить класс.

8. Выбрать шаблон класса. Имя по умолчанию Class1.vb.

9. Создать 4 командные кнопки: Button1 – для вызова метода ввода данных, Button2 – для вызова метода, реализующего алгоритм двойного ветвления, Button3 – для вызова метода, реализующего алгоритм обхода, Button4 – для выхода.

Тема 5. Циклическая структура алгоритма. Табулирование. Построение графиков и сплайнов функций.

Циклом называется алгоритм, который обеспечивает повторение каких либо действий. В Visual Basic существует три разновидности операторов цикла – цикл со счетчиком (или параметром), условный оператор цикла и перечислимый оператор цикла. Рассмотри цикл со счетчиком, реализуется при помощи оператора For .

Циклы со счетчиком называются также циклами For/Next, поскольку их операторы должны быть размещены между ключевыми словами For и Next. Этот цикл применяется тогда, когда число повторений цикла известно до начала его работы. При создании такого цикла надо определить его переменную, которая служит счетчиком числа повторений цикла, и задать ее начальное и конечное значение. В качестве дополнительного параметра можно указать величину изменения счетчика, который добавляется к нему или вычитается из него после завершения каждого шага цикла. Эта величина указывается в операторе For после ключевого слова Step, и она не является обязательным параметром. Если начальное значение счетчика больше конечного значения, а значение параметра записанного после слова Step, положительно, то цикл For не выполняется ни разу. Счетчик (или параметр) цикла может быть любого числового типа, и его можно использовать в выражениях программы, однако его значение при этом не должно изменяться пользователем, поскольку это нарушает правильное функционирование цикла.

Структура цикла For/Next имеет вид:

В общем виде оператор записывается следующим образом:

For счетчик=начальное значениеTOконечное значение [Step шаг изменения]

Операторы цикла

Next i

Счетчик (или параметр) цикла предназначен для обеспечения повторений операторов цикла. Он принимает начальное значение, которое затем увеличивается на величину шага, и работает до тех пор, пока не будет достигнуто его окончательное значение. Шаг изменения параметра цикла должен быть указан после слова Step. Если шаг равен 1, то его можно не писать. После ключевого слова Next обычно указывается имя параметра цикла (Next i), например:

For I =1 to n

……..

Next i

Если обозначить начальное значение a, конечное значение b и шаг изменения h, тогда количество повторений цикла, необходимое для вычисления всех значений функции

1. Задача

Дан массив действительных чисел A(n). Найти среднее арифметическое и среднее геометрическое его элементов.

Sub sra()

Dim i As Integer

Dim k As Integer

Dim n As Integer

Dim Sr As Single

Dim Sg As Single

Dim p As Single

Dim S As Single

Dim a() As Single

n = Val(InputBox("n="))

ReDim a(1 To n)

Debug.Print "Массив:"

For i = 1 To n Step 1

a(i) = Val(InputBox("Введите очередной элемент массива"))

Debug.Print a(i)

Next i

Debug.Print

S = 0

k = 0

p = 1

For i = 1 To n Step 1

S = S + a(i)

k = k + 1

p = p * a(i)

Next i

For i = 1 To n Step 1

Sr = S / k

Sg = Sqr(p ^ (1 / k))

Next i

Debug.Print "Sr="; Sr

Debug.Print "Sg="; Sg

End Sub

1. Дан массив целых чисел A(n). Найти сумму и количество тех элементов, которые делятся на 3, не делятся на 5.

Sub qwe()

Dim i As Integer

Dim k As Integer

Dim n As Integer

Dim a() As Single

n = Val(InputBox("n="))

ReDim a(1 To n)

Debug.Print "Массив:"

For i = 1 To n Step 1

a(i) = Val(InputBox("введите элемент"))

Debug.Print a(i)

Next i

Debug.Print

k =0

For i = 1 To n Step 1

If a(i) > 5 Then

k = k + 1

End If

Next i

Debug.Print "k="; k

End Sub