Решение. Этап 1. Математическая часть

Этап 1. Математическая часть

Дано: три числа a, b, c.

Найти: наибольшее из трех чисел.

(!) Самостоятельно разработать алгоритм на естественном языке и составить блок-схему.

Этап 2. Ввод данных в таблицу Excel

В ячейку А1 вводится значение числа a, в ячейку B1 – значение числа b, в ячейку C1 – значение числа c.

Этап 3. Определение переменных

Вводятся: a, b, c.

Выводятся (результат): max.

Этап 4. Написание процедуры

На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).

Навести курсор мыши на Кнопку в режиме конструктора (на панели Элементы управления нажата первая кнопка (линейка с треугольником)). Вызвать контекстное меню ПКМ Выбрать пункт Свойства ® закладку Alpabetic, в списке свойств выбрать Caption, справа в поле ввода удалить старое название и ввести новое название кнопки Максимальное число.

Навести курсор на Кнопку в режиме конструктора. Вызвать контекстное меню ПКМ. Выбрать пункт Исходный текст. Автоматически попадаем в режим редактора VBA и появляется заголовок Процедуры-События:

Набирать процедуру на месте курсора:

Private Sub CommandButton1_Click()

Dim a, b, c As Single

Dim max As Single

’Ввод данных

a = Range("A1").Value

b = Range("B1").Value

c = Range("C1").Value

’Вычисление

If a > b And a > c Then

max = a

Else

If b > c Then

max = b

Else

max = c

End If

End If

’Вывод результатов в ячейку B4

Range("B4").Value = "Максимальное число = " & max

End Sub

Этап 5. Выполнение.

Перейти на рабочий лист (View®Microsoft Excel или Alt+F11). Выйти из режима Конструктора, левой клавишей мыши (ЛКМ) нажать Кнопку. В ячейке В4 появится результат «Максимальное число = 10».

 

Этап 6. Переименование листа. Навести курсор на закладку Лист1, правой клавишей мыши (ПКМ) вызвать контекстное меню, выбрать пункт Переименовать, удалить старое название листа и с клавиатуры набрать новое Максимальное_чсило, нажать Enter.

 

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

Задача 7. Определить если x Î [a,b], то вычислить y=[x]. Вывести соответствующее сообщение.

 

Задача 8. Найти значение функции y в точке x. .

 

Задача 9. Числа a, b, c тогда только тогда являются сторонами треугольника, когда существуют такие положительные числа x, y, z, что

 

Лабораторная работа № ПР3 «Программирование циклов с параметром»

Цель работы: научиться использовать оператор VBA «Цикл с параметром» и вычислять с его помощью сумму и произведение.