Задача 7. Найти максимальное из 10-ти чисел, вводимых с клавиатуры.

Решение. При нахождении максимума в последовательности значений, нужно определить начальное значение переменной (max), в которой будет храниться этот максимум. Затем каждое число в последовательности (здесь - каждое введенное число) сравнивается со значением max и, если это число превышает max, то оно теперь считается максимальным и поэтому заносится (присваивается) в max, стирая предыдущее значение. Таким образом, основной оператор алгоритма решения – это цикл, в котором тело составляют два действия: ввод нового значения и проверка, не является ли это значение максимальным  (из тех, что уже были введены). По окончании цикла (когда все числа уже введены и проверены) в max будет находиться наибольшее из них. Что взять в качестве начального значения max? Верное решение – взять любое из анализируемой последовательности, например, первое. Неверное решение – взять «с потолка», например, 0. Ноль сгодится, если вводятся только положительные числа (тогда любое из них «закроет» первоначальный максимум). Но, если могут быть введены только отрицательные числа, то этот 0 и окажется максимальным, хотя и не был введен. Ответ будет неверным. Итак, возьмем в качестве начального значения первое из вводимых чисел и откроем цикл с проверкой оставшихся 9-ти чисел на максимум. Поскольку число шагов известно, проще воспользоваться циклом For:

 

Sub МаксЧисло()

Dim max As Single, a As Single  ‘типпеременных – Single 

max = InputBox("Введите число")

For i = 1 To 9  

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

If a > max Then    

max = a  

End If

Next

MsgBox (max)

End Sub

 

Аналогично решаются задачи на поиск минимума, нужно только заме- нить знак неравенства на < и переобозначить переменную (для ясности): вместо max взять, например, min.

Задачи для самостоятельной работы:

1. Найти максимальный из отрицательных элементов среди произвольных 20 чисел, вводимых с клавиатуры.

2. Найти первый отрицательный член последовательности sin(tg(n)) для n, изменяющегося так: n=1, 2, 3,…

3. Вычислить положительные значения функции y=sin(x)+4cos(x-2) для x, изменяющемся на отрезке [-15,10] с шагом 1.

4.  Найти количество чисел, кратных трем, из последовательности, вводимой с клавиатуры до тех пор, пока не встретится ноль.

 

Лабораторная работа № 4. Итерации (рекуррентные соотношения) и вложенные циклы

 

Задачи такого типа можно представить как определение некоторой величины Y, которая является результатом последовательности вычислений Y_i=F(Y_i-1) , т.е. каждое последующее значение Y вычисляется на основе его предыдущих значений. Процесс заканчивается при достижении какого-либо условия или конкретного значения.  Для решения подобных задач нужно понять закономерность образования каждого последующего значения, т.е. задать функцию (или выражение) F. Очевидно, что процесс вычисления является циклом и для начала проще всего определить его тело: какие действия повторяются, какие величины и на сколько изменяются на каждом шаге. После этого будет яснее условие продолжения (окончания) цикла.