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

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

Лабораторная работа № 2. Разветвляющиеся алгоритмы

2024-02-15 75
Лабораторная работа № 2. Разветвляющиеся алгоритмы 0.00 из 5.00 0 оценок
Заказать работу

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

Задача 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. Получить минимальное из них по модулю.

 


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

Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...

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

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

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



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

0.01 с.