Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...

История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...

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

2024-02-15 75
Задача 7. Найти максимальное из 10-ти чисел, вводимых с клавиатуры. 0.00 из 5.00 0 оценок
Заказать работу

Вверх
Содержание
Поиск

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

 


Поделиться с друзьями:

Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...

Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...

Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...

Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...



© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!

0.007 с.