Программирование разветвляющихся и циклических процессов

Изменить последовательность выполнения операторов можно с помощью операторов ветвления.

Одним из них является условный оператор If … Then. Он имеет несколько форматов записи.

1. Однострочный формат

If условие Then Оператор1 [ Else Оператор2]

(в квадратные скобки взята необязательная часть). Если условие истинно, Оператор1 выполняется, в противном случае он пропускается и выполняется Оператор2, если он указан.

2. Блочный формат.

If условие Then

Операторы1

[ Else

Операторы2]

End If

Эта форма применяется, когда нужно при выполнении заданного условия выполнить не один, а несколько операторов.

Еще одним оператором ветвления является Select Case.

Select Case Выражение

Case Список_значений1

Операторы1

Case Список_значений2

Операторы2

……….

[ Case Else Список_значений3

Операторы3 ]

End Case

Здесь в качестве параметра Выражение может быть как имя переменной, так и арифметическое выражение, а параметры Список_значений1, Список_значений2 и т.д. могут быть как одиночными числовыми значениями, так и списками – несколькими числами, разделенными запятыми.

Для многократного выполнения одного или нескольких операторов применяются операторы цикла. Имеется несколько типов оператора цикла.

1. Оператор цикла типа пересчета:

For Счетчик = Начальное_значение To Конечное_значение [ Step Шаг ]

Операторы

Next [Счетчик]

Здесь Счетчик – параметр цикла, переменная целого или вещественного типа, Начальное_значение и Конечное_значение – числа, задающие границы интервала изменения параметра цикла, Шаг – шаг изменения параметра цикла, если он не указан, то по умолчанию он принимается равным 1. Операторы – один или несколько операторов, которые повторяются до тех пор, пока Счетчик не достигнет конечного значения.

2. Оператор повторений с предусловием Do While … Loop:

Do While Условие

Операторы

Loop

Указанные Операторы повторяются до тех пор, пока Условие остается истинным.

3. Оператор повторений с постусловием Do … Loop While:

Операторы

Loop While Условие

Операторы повторяются до тех пор, пока Условие остается истинным. Отличие от предыдущего случая в том, что если Условие к моменту начала цикла ложно (имеет значение False ), указанные операторы будут хотя бы один раз выполнены.

4. Оператор повторений с предусловием Do Until … Loop:

Do While Условие

Операторы

Loop

Операторы повторяются до тех пор, пока Условие не станет истинным.

5. Оператор повторений с постусловием Do … Loop Until:

Операторы

Loop Until Условие

Здесь Операторы повторяются до тех пор, пока Условие не станет истинным. Отличие от предыдущего случая в том, что если Условие к моменту начала цикла уже является истинным (имеет значение True ), указанные операторы будут хотя бы один раз выполнены.

Задание:

1) создать экранную форму, разместив на ней элементы управления: кнопку и два текстовых поля – одно для ввода чисел, другое – для вывода результата вычислений;

2) поместить на форму поясняющие надписи около этих элементов, а также фамилию, номер группы, текущую дату и номер варианта;

4) создать процедуру, запускаемую при нажатии кнопки на форме и выполняющую необходимые вычисления.

Варианты задания

1. В заданном массиве подсчитать количество четных и нечетных чисел:

В зависимости от полученного результата вывести сообщение «четных больше», «нечетных больше» или «одинаковое количество».

2. Для заданного массива значений случайной величины вычислить среднее арифметическое и сформировать новый массив из квадратов разностей элементов заданного массива и средним арифметическим

3. В заданном массиве отыскать наибольший элемент, вывести его номер и значение

–23

–29

–2

4. Вычислить длины векторов А и В:

–1

В зависимости от полученного результата вывести сообщение «длина А больше», «длина В больше» или «длины одинаковы».

5. Упорядочить заданный массив по возрастанию

6. Даны три вектора:

Определить, какой из векторов, А или В, ближе по направлению к вектору С.

7. В заданном массиве подсчитать количество чисел, делящихся без остатка на 3:

8. Вводится целое число N. Вычислить и вывести значение Z=N! =1× 2× …× N. Учесть, что по определению 0! =1. Предварительно сделать проверку знака N и если N< 0 вычислений не проводить, а вывести сообщение “N< 0”. Провести расчеты для N=4.

9. Упорядочить заданный массив по убыванию

10. Вводятся три числа А, В и С. Определить действительные корни Х1 и Х2 квадратного уравнения Ах²+Вх+C=0. Если действительных корней нет, вывести соответствующее сообщение. Для расчетов взять А=1, В= –1, С= –6.

11. В заданном массиве отыскать наименьший элемент, вывести его номер и значение.

12. В заданном массиве поменять местами наибольший и наименьший элементы

13. Найти наибольшее значение функции y=x²–A× x на отрезке [0, A], изменяя аргумент x от 0 до А с шагом h. Вывести значения x_max и y_max. Для расчетов взять A=2, h=0.2

14. В заданном массиве подсчитать количество чисел, кратных 5:

15. Вводятся 6 чисел – координаты вершин треугольника: x₁, y₁, x₂, y₂, x₃, y₃. Вычислить его площадь. Для расчетов взять числа (0, 0, 1, 1, 2, 0).

16. Разделить заданный массив на два, один из которых содержит только отрицательные числа исходного массива, а другой – нулевые и положительные:

–23

–27

–20

–34

–16

17. Для заданного массива вычислить среднее геометрическое Z и сформировать новый массив, вычитая из заданных значений величину Z:

18. Нормализовать заданный вектор, то есть сделать его длину равной единице. Для этого надо вычислить длину вектора и разделить на нее все элементы заданного вектора:

19. Даны три вектора:

Определить, какой из векторов, А или В, дальше по направлению отстоит от вектора С.

20. Вводятся 6 чисел – координаты вершин треугольника: x₁, y₁, x₂, y₂, x₃, y₃. Вычислить его периметр. Для расчетов взять числа (1, 0, 1, 1, 2, 1).

21. Разложить заданный массиве на два, первый состоит из четных значений исходного массива, второй – из нечетных:

22. Найти наименьшее значение функции y=A²/16+A× x –x² на отрезке [0, A], изменяя аргумент x от 0 до А с шагом h. Вывести значения x_min и y_min. Для расчетов взять A=1, h=0.1

23. В заданном массиве подсчитать количество чисел, делящихся без остатка на 7:

24. Вводятся 6 чисел – координаты A, B, C вершин треугольника. Вычислить его площадь. Для расчетов взять числа A=(0, 0, ), B=(1, 1) C=(2, 0).

25. Нормализовать заданный вектор, то есть сделать его длину равной единице. Для этого надо вычислить длину вектора и разделить на нее все элементы заданного вектора:

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

⇐ Предыдущая 123 4 Следующая ⇒