Поиск максимумаи минимума

Ищем максимальное число.

Задача программисту: Найти максимальное из вводимых в компьютер чисел.

Задача рыбаку: Принести домой самую большую из выловленных рыб.

Решение рыбака: Рыбак приготовил для самой большой рыбы пустое ведро с водой. Первую пойманную рыбу рыбак не глядя бросает в это ведро. Каждую следующую рыбу он сравнивает с той, что в ведре. Если она больше, то он бросает ее в ведро, а ту, что была там раньше, выпускает в реку.

Решение программиста: Программист приготовил для самого большого числа ячейку и придумал ей название, скажем, max. Первое число программист не глядя вводит в эту ячейку. Каждое следующее число (назовем его chislo) он сравнивает с max. Если оно больше, то он присваивает переменной max значение этого числа.

Напишем программу для определения максимального из 10 вводимых чисел:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim max, chislo, i As Integer

max = InputBox("Введите число") 'первую рыбу - в ведро

For i = 2 To 10 'ловим остальных рыб:

chislo = InputBox("Введите число") 'поймали очередную рыбу

If chislo > max Then max = chislo 'и если она больше той, что в ведре, бросаем ее в ведро

Next i

Debug.WriteLine(max) 'несем самую большую рыбу домой

End Sub

В этой программе переменная max исполняла роль «памяти». Она сохраняла в себе нужное значение и передавала его из цикла в цикл, благодаря чему каждый следующий цикл «знал», с чем сравнивать очередное число. Эта идея – использовать переменные для запоминания нужной информации на всем процессе выполнения программы – весьма продуктивна и широко используется программистами.

Примечание: Не путайте изобретенную нами переменную max со стандартной функцией Math.Max, которая нужна немножко для другого.

Задание 58.

В нашей программе функция InputBox("Введите число") встречается два раза. Не всем нравится такая избыточность. А. Попробуйте избавится от одной из них, усложнив If. Б. Можно избавиться и по-другому: заранее присвоив переменной max очень маленькое число, такое, что все числа заведомо больше него.

Ищем порядковый номер максимального числа. Дополним нашу программу, чтобы она искала также порядковый номер максимального числа из N заданных чисел, для чего организуем переменную Номер_макс_числа:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim max, chislo, i, N, Номер_макс_числа As Integer

N = InputBox("Сколько чисел?")

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

Номер_макс_числа = 1

For i = 2 To N

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

If chislo > max Then

max = chislo

Номер_макс_числа = i

End If

Next i

Debug.WriteLine(max)

Debug.WriteLine(Номер_макс_числа)

End Sub

Задание 59.

Найти из N чисел минимальное. Каким по порядку было введено минимальное число?

Задание 60.

У вас есть результаты забега на 100 метров (в секундах). Правда ли, что результат самого быстрого бегуна отличается от результата самого медленного больше, чем на 0,4 сек.?

Задание 61.

На небе 10 звезд. Напечатайте координаты самой правой звезды.

Глава 11. Процедуры и функции

Понятие процедур и функций точно так же, как и понятие объектов – основополагающее в современном программировании. В этой главе вы разберетесь в процедурах и функциях и научитесь писать собственные процедуры и функции.

Процедуры

До сих пор мы с вами имели дело только с процедурами, задающими реакцию компьютера на те или иные события (нажатие на кнопку, загрузка формы и т.д.). Если вспомнить пример программы из 1.1, то это процедуры типа "Что делать, если …". Обязательно перечитайте 1.1, если вы забыли, что это такое, так как настала пора познакомить вас с другими процедурами – процедурами типа "Как…". Будем называть их процедурами пользователя.

Понятие о процедурах пользователя

Рассмотрим бессмысленную программу:

Public Class Form1

Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Dim a, b, d, f As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

d = 100

a = 2

b = 30

Debug.WriteLine(a + b)

Debug.WriteLine(a * b + 1)

Debug.WriteLine(a ^ b - 20)

d = 9 - b

f = 0

a = 2

b = 30

Debug.WriteLine(a + b)

Debug.WriteLine(a * b + 1)

Debug.WriteLine(a ^ b - 20)

d = a + 1

a = 2

b = 30

Debug.WriteLine(a + b)

Debug.WriteLine(a * b + 1)

Debug.WriteLine(a ^ b - 20)

f = f - a

End Sub

End Class

Предположим, эта программа раздражает нас не своей бессмысленностью, а своей длиной. Как сократить ее?

Замечаем, что программа содержит 3 одинаковых фрагмента (в тексте я их выделил полужирным курсивом):

a = 2

b = 30

Debug.WriteLine(a + b)

Debug.WriteLine(a * b + 1)

Debug.WriteLine(a ^ b - 20)

В этом случае программисты всего мира сокращают программу так. Они придумывают повторяющемуся фрагменту произвольное имя, например,

Печать_разных_чисел

Затем они вписывают в окно кода этот фрагмент отдельно, снабдив его заголовком

SubПечать_разных_чисел()

и конечной строкой

End Sub

Получается вот что:

Sub Печать_разных_чисел()

a = 2

b = 30

Debug.WriteLine(a + b)

Debug.WriteLine(a * b + 1)

Debug.WriteLine(a ^ b - 20)

End Sub

Они называют все это процедурой пользователя, после чего имеют право во всем окне кода вместо полного текста фрагмента писать только его имя Печать_разных_чисел. Посмотрите на получившуюся программу целиком:

Public Class Form1

Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Dim a, b, d, f As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

d = 100

Печать_разных_чисел()

d = 9 - b

f = 0

Печать_разных_чисел()

d = a + 1

Печать_разных_чисел()

f = f - a

End Sub

Sub Печать_разных_чисел()

a = 2

b = 30

Debug.WriteLine(a + b)

Debug.WriteLine(a * b + 1)

Debug.WriteLine(a ^ b - 20)

End Sub

End Class

Получившаяся программа выполняет абсолютно то же самое, что и исходная.

Как видите, программа получилась короче, а если бы в исходной программе фрагмент встретился не 3 раза, а больше (как часто и бывает), то укорочение было бы еще заметнее.

Все операторы, из которых состоит процедура, без заголовка и конечной строки, будем называть телом процедуры. А вместе с ними – объявлением процедуры.

Слово Печать_разных_чисел используется внутри процедуры Sub Button1_Click, как настоящий оператор, и выполняется, как настоящий оператор. Суть его выполнения в том, что когда VB в процессе выполнения программы натыкается на оператор Печать_разных_чисел, он ищет в программе объявление процедуры с именем Печать_разных_чисел и начинает выполнять тело этой процедуры. Этот процесс называется вызовомпроцедурыилиобращениемк процедуре. Говорят также, что управление передаетсяпроцедуре. После выполнения тела процедуры VB возвращается к выполнению программы. Говорят, что управление возвращается к программе.

Вы обязательно должны проверить то, что я только что сказал, и собственными глазами убедиться в правдивости моих слов. Для этого обязательно выполните эту программу в пошаговом режиме! Это самое необходимое из того, что вы должны сделать. При этом обязательно же обратите внимание вот на что:

Порядок исполнения операторов показывает желтая полоса. Она перескакивает с оператора Печать_разных_чисел() на строку Sub Печать_разных_чисел(), после чего пробегает по всем 5 операторам тела процедуры. Дойдя до конечной строки End Sub, она возвращается на тот же оператор Печать_разных_чисел(), с которого и «прыгала», после чего переходит на оператор, следующий сразу же за этим самым оператором (в первый раз в нашем случае это оператор d=9-b). Вы просто обязаны усвоить этот порядок на всю жизнь.

Два вида процедур. Вот у вас в окне кода две процедуры. Одна из них – Button1_Click и вы знаете, когда она выполняется – когда нажимается кнопка Button1. Она принадлежит к числу привычных нам процедур обработки событий. А когда выполняется другая – Печать_разных_чисел? Только тогда (и если), когда (и если) в других процедурах компьютер наткнется на оператор Печать_разных_чисел(). А если этот оператор мы забыли там написать, то процедура Печать_разных_чисел не выполнится никогда.

Вы усвоили, что когда завершает свою работу процедура пользователя, VB возвращается в процедуру, которая ее вызвала. А куда он возвращается, когда завершает свою работу процедураобработки событий? А никуда. Просто ждет ваших дальнейших действий, вызывающих события, например, нажатий на кнопку.