Варианты задания 3
1. Вычислить уровень выполнения плана розничного товарооборота
,
где F - фактический розничный товарооборот,
T - план розничного товарооборота.
2. Рассчитать степень новизны изделия
,
где M - сумма высших рангов новизны
изделия,
K - число баллов, характеризующих новизну анализируемого из делия.
3. Рассчитать эстетический показатель качества товаров
,
где R - значение обобщенного эстетического
показателя,
N - число экспертов.
4. Вычислить коэффициент стабильности ассортимента товаров
, где
N - количество проверок,
K1 - количество разновидностей товаров в момент проверки,
K2 - количество разновидностей товаров, предусмотренных ас сортиментным минимумом.
5. Вычислить номинальную цену акции
,
где Рn – номинальная цена акции,
Сар – уставный капитал акционерного общества,
М – число выпущенных акций.
6. Определить котировку акции на вторичном рынке ценных бумаг
,где
К – курс акции,
Рr – рыночная цена акции,
Pn – номинальная цена акций.
7. Рассчитать конечную сумму по погашению долга с процентами:
S = P * (1 + n * i), где S – наращенная сумма долга,
Р – первоначальная сумма ссуды,
n – срок кредита,
i – процентная ставка.
8. Вычислить величину разового погасительного платежа.
, где
R – величина разового погасительного
платежа,
S – наращенная сумма долга,
m – число платежей в год,
n – срок кредита.
9. Найти балансовую прибыль предприятия
ПБ = П + ПП +ПВ, где ПБ – прибыль балансовая,
П – прибыль от реализации,
ПП– прибыль от прочей реализации,
ПВ – прибыль от внереализационных доходов.
10. Рассчитать долю населения трудоспособного возраста в общей численности населения.
D = TH / H, где D – долю населения трудоспособного возраста,
ТН – трудовое население,
Н – все население.
Лабораторная работа №3 Тема: Разработка программ разветвленной структуры в среде vba
Цель работы:
Применить умения при составлении алгоритма решения задачи в виде блок-схемы.
Освоить приемы программирования разветвлений.
Получить навыки составления программ разветвленной структуры.
Ход работы:
1) Понятие разветвленной вычислительной структуры.
Разветвлённая алгоритмическая структура применяется в том случае, когда в зависимости от условия необходимо выполнить одно или другое действие. Действия могут содержать одну или несколько операций
Пример 2. Составить в виде блок-схемы и программы алгоритм назначения стипендии студентам в зависимости от среднего балла сессии.
Решение: Пусть стипендия не назначается тем студентам, у которых средний балл меньше 4, поэтому в алгоритме необходимо проверить это условие. В зависимости от введённого значения Среднего_балла условие может принять значение <4, тогда выполняется действие по ветви Да. Если условие принимает значение >4, то выполняется действие по ветви Нет.
Блок-схема данного алгоритма имеет вид (рис 17):
Рис. 17 Блок-схема алгоритма Пример 2
2) Реализовать данную программу в среде VBA Microsoft Excel для Средний_балл<4:
Sub Пример2( )
Dim Средний_балл As Single
Dim Назнач_стипендии As String
Средний_балл = InputBox("Введите средний балл сессии", "Окно ввода")
If Средний_балл < 4 Then
Назнач_стипендии = "Нет"
Else
Назнач_стипендии = "Да"
End If
MsgBox "Назначать стипендию?" & Назнач_стипендии
End Sub
На экран монитора будет выведено диалоговое окно с ответом, характеризующим решение для условия Средний_балл<4.
3) Повторить решение задачи для случая, когда Средний_балл>=4.
На экран монитора будет выведено диалоговое окно с ответом, характеризующим решение для условия Средний_балл>=4.
Пример 3. Составить в виде блок-схемы и программы алгоритм назначения стипендии студентам и перевода их на следующий курс в зависимости от среднего балла сессии.
Решение: В этой задаче возможно три варианта решения, так как средний балл может быть >=4; <3; >=3, но <4. В зависимости от выполнения этих условий студента назначают на стипендию и переводят на следующий курс. Так же существует правило: если условий несколько, то проверять надо на одно меньше. В данном случае два (>=4; <3), так как из не выполнения выбранных условий следует выполнение третьего.
Блок-схема данного алгоритма имеет вид (рис.18):
Рис. 18 Блок-схема алгоритма Пример 3
4) Реализовать данную программу в среде VBA Microsoft Excel для Средний_балл>=4, затем для Средний_балл<3 и для случая, когда Средний_балл >=3, но <4.
Sub Пример3( )
Dim Средний_балл As Single
Dim Назнач_стипендии, Перевод_след_курс As String
Средний_балл = InputBox("Введите средний балл сессии", "Окно ввода")
Select Case Средний_балл
Case Is < 3
Назнач_стипендии = "Нет"
Перевод_след_курс = "Нет"
Case Is >= 4
Назнач_стипендии = "Да"
Перевод_след_курс = "Да"
Case Else
Назнач_стипендии = " " ‘Самостоятельно заполните
Перевод_след_курс = " " ‘пропущенные значения
End Select
MsgBox "Назначать стипендию?" & Назнач_стипендии
MsgBox "Переводить на следующий курс?" & Перевод_след_курс
End Sub