Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Топ:
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Эволюция кровеносной системы позвоночных животных: Биологическая эволюция – необратимый процесс исторического развития живой природы...
Интересное:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Дисциплины:
2024-02-15 | 35 |
5.00
из
|
Заказать работу |
|
|
Задача 3. Найти минимальное из двухчисел, вводимых с клавиатуры.
Решение. Вход алгоритма: два неравных числа, назовем их a и b. Выход – число, меньшее другого числа. Алгоритм: сравнить значения a и b: если a>b, то вывести в качестве результата значение a, иначе - значение b. Блок-схема алгоритма:
Определим тип переменных a и b. Для простоты используем целые числа, т.е. тип – Integer. По условию задачи значения этих переменных вводятся с клавиатуры, поэтому используем функцию InputBox с текстовым аргументом. Для вывода используем функцию MsgBox.
Public Sub min2()
Dim a As Integer, b As Integer
a = InputBox("Vvedi a")
b = InputBox("Vvedi b")
If a > b Then
MsgBox "min = " & b
Else
MsgBox "min = " & a
End If
End Sub
Задача 4. Найти максимальное из трех чисел, вводимых с клавиатуры.
Решение. Вход алгоритма: три произвольных числа, назовем их a, b, c. Выход: наибольшее из них. Алгоритм состоит в попарном сравнении этих чисел и выборе максимального в паре. Программа иллюстрирует применение вложенных операторов If… Then… Else… , причем новые If… появляются как в части Then, так и в части Else. Блок-схема алгоритма:
В программе тип всех переменных для простоты выбран Integer. Для сокращения двустрочной записи:
Else
Max = c
использована однострочная Else: Max = c, допустимая в VBA.
Public Sub max3()
Dim a As Integer, b As Integer, c As Integer, Max As Integer
a = InputBox ("Vvedi a")
b = InputBox ("Vvedi b")
c = InputBox ("Vvedi c")
If a > b Then
If a > c Then ‘вложенный условный оператор If…
Max = a
Else: Max = c
End If ‘конец вложенного If…
Else
If b > c Then ‘вложенный условный оператор If…
Max = b
Else: Max = c
End If ‘конец вложенного If…
|
End If
MsgBox Max
End Sub
Задачи для самостоятельной работы:
1. Вывести на печать переменные А, В, С в порядке их возрастания. Зна- чения переменных: а) ввести с клавиатуры; б) взять из диапазона В2:В4 листа Excel; с) задать оператором присваивания.
2. Даны значения x, y, z. Определить, могут ли они быть сторонами: а) обычного треугольника; б) равнобедренного треугольника.
3. Список доходов клиентов расположен в диапазоне А2:А11 листа Excel. Определить налог конкретного клиента (его номер в списке ввести с клавиатуры), если налоговое начисление составляет 13% от дохода при доходе меньшем 5000 руб., 20% от дохода, если он находится в промежутке от 5000 до 40000 руб. и 30%, если доход превышает 40000 руб.
4. Даны действительные числа x, y, z. Получить минимальное из них по модулю.
|
|
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!