Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология
Образование Политология Производство Психология Стандартизация Технологии 


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




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

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

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:

Do

Операторы

Loop WhileУсловие

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

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

Do WhileУсловие

Операторы

Loop

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

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

Do

Операторы

Loop UntilУсловие

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

Задание:

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

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

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

 

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

 

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

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

 

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

 

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

–23 –29 –2

 

–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 квадратного уравнения Ах2+Вх+C=0. Если действительных корней нет, вывести соответствующее сообщение. Для расчетов взять А=1, В= –1, С= –6.

 

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

 

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

 

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

 

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

 

15. Вводятся 6 чисел – координаты вершин треугольника: x1, y1, x2, y2, x3, y3. Вычислить его площадь. Для расчетов взять числа (0,0,1,1,2,0).

 

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

–23 –27 –20 –34 –16

 

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

 

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

 

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

           
     
 

 


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

 

20. Вводятся 6 чисел – координаты вершин треугольника: x1, y1, x2, y2, x3, y3. Вычислить его периметр. Для расчетов взять числа (1,0,1,1,2,1).

 

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

 

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

 

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

 

 

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

 

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


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





Рекомендуемые страницы:


Читайте также:

Последнее изменение этой страницы: 2016-03-17; Просмотров: 737; Нарушение авторского права страницы


lektsia.com 2007 - 2020 год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! (0.01 с.) Главная | Обратная связь