Пособие_по_алгоритмизации_и_программированию
..pdf31
Public Sub Амортизация3()
Dim N As Single, OS As Single 'Объявление типов переменных
Dim PA As Integer, PR As Integer, GA As Single 'Ввод начальных данных
N = InputBox("Введите начальную стоимость имущества")
OS = InputBox("Введите стоимость имущества в конце периода амортиза-
ции")
PA = InputBox("Введите время эксплуатации имущества") 'Создание заголовков столбцов результатов расчётов
Range("A1") = "Год"
Range("B1") = "Амортизация имущества"
'Выполнение расчётов и вывод результатов с помощью цикла
PR = 1
GA = (2 * (N - OS) * PA) / (PA * (PA + 1))
Do While GA > 2500
GA = (2 * (N - OS) * (PA - PR + 1)) / (PA * (PA + 1))
Cells(PR + 1, 1) = PR
Cells(PR + 1, 2) = GA
PR = PR + 1
Loop
End Sub
32
Заключение
В рамках пособия рассмотрены начальные сведения об алгоритмизации и основах программирования на языке Visual Basic for Application в среде MS Excel. Приводимых сведений вполне достаточно для ознакомления студентов с ос-
новными этапами процесса создания компьютерных программ, предназначен-
ных для решения вычислительных задач. Приводимые в пособии примеры программного кода для алгоритмов различной структуры могут быть полезны для разработки сложных приложений, решающих прикладные экономические задачи, реализация которых невозможна с помощью стандартных средств
MS Excel.
В то же время ограниченный объём пособия не позволил рассмотреть многие важные вопросы. В частности, несмотря на то, что VBA является языком объ-
ектно-ориентированного программирования, основные идеи и понятия этого со-
временного и перспективного направления программирования (инкапсуляция,
полиморфизм, наследование, объекты, коллекции, контейнеры, классы и свойст-
ва объектов и т. д.) в пособии не приводятся. Поэтому задача создания методи-
ческих разработок, посвященных данной проблеме, является весьма своевремен-
ной и актуальной.
Представляется также необходимым ознакомление студентов с расширен-
ными возможностями программирования. Темами первоочередного изучения являются работа с массивами и строковыми данными, передача аргументов ме-
жду процедурами, управление файлами, реализация типовых алгоритмов обра-
ботки данных (сортировка, определение экстремальных значений, расчёт сум-
марных и средних характеристик).
Так как решение прикладных экономических задач на языке программирова-
ния VBA выполняется в среде MS Excel, может быть полезным освоение студен-
тами основных действий по управлению рабочими книгами и листами, диаграм-
мами, сводными таблицами. VBA предоставляет эффективные средства для работы с диапазонами ячеек, системой меню, панелями инструментов. Малове-
роятно, что перечисленные темы будут изучаться на учебных занятиях. Поэтому можно только надеяться, что среди студентов найдутся энтузиасты, которые поймут, какие широкие возможности предоставляет им программирование для решения нестандартных, сложных задач, и будут самостоятельно совершенство-
вать свои знания в этой области.
33
Библиографический список
1. Гарнаев А. Excel, VBA, Internet в экономике и финансах / А. Ю. Гарнаев. –
СПб. : БХВ, 2005. – 816 с.
2.Гарнаев А. VBA / А. Ю. Гарнаев. – СПб. : БХВ, 2005. – 848 с.
3.Киммел П. и др. Excel 2003 и VBA. Справочник программиста : пер.
с англ. / П. Киммел, Д. Грин, С. Буллен, Р. Боуви, Р. Розенберг. – М. :
Вильямс, 2006. – 1088 с.
4. Комова О. С. Средства автоматизации решения экономических за-
дач с использованием VBA : учеб. пособие / О. С. Комова. – Хабаровск :
РИЦ ХГАЭП, 2004. – 80 с.
5. Комова О. С. Работа с редактором Visual Basic в среде MS Excel :
метод. указания по выполнению лабораторных работ для студентов 1 и 2-
го курсов дневной формы обучения / О. С. Комова, Ю. В. Любицкий. – Ха-
баровск : РИЦ ХГАЭП, 2007. – 20 с.
6. Комова О. С. Начала программирования на VBA в Excel : метод.
указания / О. С. Комова, С. В. Коломийцева. – Хабаровск : Изд-во ДВГУПС, 2008. – 23 с.
7. Любицкий Ю. В. Разработка пользовательских форм на языке про-
граммирования VBA в среде MS Excel : метод. указания по выполнению лабораторных и самостоятельных работ для студентов 1 и 2-го курсов оч-
ной формы обучения / Ю. В. Любицкий. – Хабаровск : РИЦ ХГАЭП, 2008. – 24 с.
8. Любицкий Ю. В. К вопросу об оценке довузовского уровня знаний
студентов по информатике / Ю. В. Любицкий, О. С. Комова // Проблемы высшего образования: материалы международной науч.-метод конф. – Ха-
баровск : Изд-во Тихоокеан. гос. ун-та, 2009. – |
С. 147 – 151. |
||
9. Слепцова |
Л. Д. |
Программирование |
на VBA. Самоучитель / |
Л. Д. Слепцова. – |
М. : Диалектика, 2004. – 384 |
с. |
10.Уокенбах Дж. Профессиональное программирование на VBA в Excel 2003 : пер. с англ. / Дж. Уокенбах. – М. : Диалектика, 2005. – 800 с.
11.Эйткен П. Интенсивный курс программирования в Excel за выход-
ные : пер. с англ. / П. Эйткен. – М. : Диалектика, 2004. – 432 с.
34
Приложение А – Индивидуальные задания для алгоритмов
линейной структуры
Вариант 1
Составьте программу для вычисления нормы скидки для ценных бумаг
|
NS = |
V − C |
× |
B |
, |
|
|
|
|||
|
|
C |
DD |
||
где V – |
выкупная цена ценных бумаг за 100 руб. номинальной стоимости; C – |
||||
стоимость ценных бумаг за 100 руб. номинальной стоимости; B – число дней в |
|||||
году; |
D – количество дней между датой продажи ценных бумаг покупателю и |
||||
датой их погашения. |
|
|
Выполните расчёт при следующих значениях исходных данных: V = 100 руб.,
C = 98 руб., B = 365 дней, D = 75 дней.
Вариант 2
Составьте программу для расчёта фактической себестоимости продукции предприятия.
Нормативная себестоимость всех изделий N = V NS ,
где V – выпуск изделий; NS – нормативная себестоимость одного изделия.
Индекс отклонений от норм ION = ON ,
N
где ON – отклонения от норм.
Индекс изменений норм IIN = IN ,
N
где IN – изменение норм.
Фактическая себестоимость одного изделия FS = NS (1 + ION + IIN ) .
Выполните расчёт при следующих значениях исходных данных: V = 550 шт.;
NS = 1 500 руб.; ON = – 18 000 руб.; IN = 2 500 руб.
35
Вариант 3
Составьте программу для расчёта расходов на доставку грузов.
Стоимость перевезенных товаров S = C K ,
где C – средняя цена товара за 1 кг; K – количество товара.
Транспортные расходы TR = S D ,
где D – ставка транспортных расходов в процентах к стоимости товаров.
Выполните расчёт при следующих значениях исходных данных: C = 75 руб.;
K = 55 т; D = 4,13 %.
Вариант 4
Составьте программу для расчёта индексов физического объёма товарооборота.
Индивидуальный индекс количества проданных товаров Iq = |
q1 |
, |
|||||
q0 |
|||||||
|
|
|
|
|
|
||
где q1 и q0 |
– количество товаров, |
проданных в текущем и базисном периодах |
|||||
соответственно. |
|
|
|
||||
Индивидуальный индекс цен I p = |
p1 |
|
, |
|
|
||
p0 |
|
|
|||||
|
|
|
|
|
|||
где p1 и |
p0 – цена товаров, проданных в текущем и базисном периодах |
||||||
соответственно. |
|
|
|
||||
Товарооборот базисного периода T0 =q0 p0 , текущего периода – |
T1 =q1 p1 , текуще- |
||||||
го периода в базисных ценах – T2 =q1 |
p0 . |
|
Выполните расчёт при следующих значениях исходных данных: q1 = 23,5 т; q0 = 20,0 т, p1 = 116 руб./кг; p0 = 105 руб./кг.
Вариант 5
Составьте программу для расчёта показателей использования оборотных активов предприятия.
Коэффициенты оборачиваемости за базисный и отчётный периоды
KB |
= |
VB |
и Ko |
= |
Vo |
, |
|
SB |
So |
||||||
|
|
|
|
|
где VB и Vo – выручка от реализации продукции в базисном и отчётном
периодах;
36
SB и So – средняя годовая стоимость оборотных средств в базисном и отчётном периодах соответственно.
Коэффициенты закрепления оборотных средств за базисный и отчётный
периоды R |
= |
SB |
и R |
= |
So |
. |
||||||
|
|
|
||||||||||
|
|
|
B |
|
|
|
|
|
o |
|
Vo |
|
|
|
|
|
|
|
VB |
|
|||||
Средняя |
продолжительность оборота за базисный и отчётный периоды |
|||||||||||
T = |
180 |
|
и T |
|
= |
180 |
. |
|
|
|
||
|
|
|
|
|
|
|||||||
B |
KB |
o |
|
|
Ko |
|
|
|
||||
|
|
|
|
|
|
|
|
Выполните расчёт при следующих значениях исходных данных: VB = 9 900 млн руб.; Vo = 9 980 млн руб.; SB = 1 250 млн руб.; So = 1 210 млн руб.
Вариант 6
Составьте программу для расчёта расходов на оплату труда фасовщиков продо-
вольственных товаров в универсаме.
Количество товаров, расфасованных в универсаме M = R − S ,
где R – общее количество поступивших товаров, S – количество товаров, по-
ступивших в расфасованном виде.
Фактические расходы на оплату труда F = M K ,
где K – стоимость расфасовки одной тонны товара.
Уровень расходов на оплату труда фасовщиков, выраженный в процентах к
товарообороту N = F 100 ,
T
где T – товарооборот.
Выполните расчёт при следующих значениях исходных данных: R = 35 т,
S = 20 т; K = 120 руб.; T = 920 тыс. руб.
Вариант 7
Составьте программу для расчёта затрат на командировочные расходы.
Суточные S = D k , где D – количество дней, затраченных на командировку, k = 100 руб. (утверждённая норма суточных расходов).
Фактические суммарные затраты R = S + P + G ,
где P – затраты на проезд; G – затраты на проживание в гостинице.
Остаток или перерасход средств O = A − R ,
37
где A – аванс на командировочные расходы.
Выполните расчёт при следующих значениях исходных данных: D = 7 дн.,
P = 3 000 руб.; G = 5 000 руб.; A = 10 000 руб.
Вариант 8
Составьте программу для расчёта массы среднего товарного запаса и количества массы среднего товарного запаса с учетом коэффициента соотношения товарных ставок.
Масса среднего товарного запаса M = S ,
C
где S – средний товарный запас; C – средняя цена за 1 кг товара.
Количество массы среднего товарного запаса с учётом коэффициента соотноше-
ния товарных ставок K = M R ,
где R – коэффициент соотношения тарифных ставок.
Выполните расчёт при следующих значениях исходных данных: S = 14 500 руб.;
C = 47 руб.; R = 1,25.
Вариант 9
Составьте программу для расчёта акцизов на единицу продукции для хозяйст-
вующего субъекта, осуществляющего переработку и доработку подакцизных то-
варов, приобретённых с акцизом от предприятия-изготовителя.
Стоимость работ по улучшению качества продукции S =Z +PR ,
где Z – затраты хозяйствующего субъекта по улучшению качества продукции
(без НДС); PR – прибыль.
Стоимость работ с акцизом, включаемым в отпускную цену R= S 100 ,
100− A
где A – ставка акциза.
Сумма акциза, уплачиваемая в бюджет хозяйствующим объектом SB= R A .
100
Отпускная цена товара (без НДС) OCT =F +SB ,
где F – стоимость приобретенной продукции (без НДС), отнесённая на себе-
стоимость (включая акциз).
Выполните расчёт при следующих значениях исходных данных: Z = 100 тыс. руб.; PR = 60 тыс. руб.; A = 20 %; F = 240 тыс. руб.
38
Вариант 10
Составьте программу для расчёта рыночной стоимости новых объектов недви-
жимости предприятия затратным методом.
Стоимость земельного участка R=10 i S ,
где i – ставка земельного налога, S – площадь земельного участка.
Косвенные издержки (расходы на консультации, юридическое обслуживание,
оформление документов, страхование, рекламу, эксплуатацию сооружения
и т. д.) K =0,2 T ,
где T – стоимость строительства объекта по смете.
Прибыль предпринимателя за вложенный капитал P= j (R + T + K ) ,
где j = 0,2 (норма прибыли).
Износ объекта I = k T , где k = 0,02 (коэффициент износа).
Рыночная стоимость права собственности на объект RS = R + T + K + P − I .
Выполните расчёт при следующих значениях исходных данных: i = 3,5 руб./кв. м; S = 4 000 кв. м; T = 100 000 руб.
Вариант 11
Составьте программу для расчёта показателей платежеспособности и финансо-
вой устойчивости предприятия.
Денежные средства, расчёты и прочие активы предприятия D = R + S ,
где R – расчеты с дебиторами; S – денежные средства.
Коэффициент текущей ликвидности KT = |
Z + D |
|
, |
|
|
T − DK − FP |
|
||||
|
|
|
|
||
где Z – запасы и затраты; T |
– общая сумма расчётов и прочих пассивов; |
DK – |
|||
долгосрочные кредиты; FP – |
фонды потребления. |
|
|
||
Выполните расчёт при следующих значениях исходных данных: R = 2 000 тыс. |
|||||
руб.; S = 4 000 тыс. руб.; |
Z = 14 000 тыс. руб.; T |
= 6 000 тыс. руб.; |
DK = |
||
700 тыс. руб.; FP = 300 тыс. руб. |
|
|
|
|
39
Вариант 12
Составьте программу для расчёта наращения сумм и выплаты процентов в по-
требительских кредитах, выданных банком при простых кредитных ставках.
Наращенная сумма долга S = P (1+n i);
величина разового погасительного платежа |
R = |
S |
, |
|
|
||||
|
|
|
m n |
|
где |
P – первоначальная сумма ссуды; n – |
срок кредита; i – ставка наращения; |
||
m – |
число платежей в году. |
|
|
|
Выполните расчёт при следующих значениях исходных данных:
P = 100 000 руб.; n = 5 лет; i = 0,15; m = 4.
Вариант 13
Составьте программу для расчёта наращения в потребительских кредитах, вы-
данных банком при сложных процентных ставках.
|
|
j |
n m |
|
Наращенная сумма |
S =P 1+ |
|
|
; |
|
||||
|
|
m |
|
|
величина дисконта |
D = S −P , |
|
|
где P – первоначальная сумма кредита; j – годовая номинальная ставка; m –
количество периодов капитализации (присоединение начисленных процентов к основной сумме процентов) в году; n – число лет наращения; S – наращенная сумма; D – дисконт.
Выполните расчёт при следующих значениях исходных данных:
P = 850 000 руб.; j = 0,135; m = 2; n = 10.
Вариант 14
Составьте программу для расчёта рентабельности капитала хозяйствующих субъектов.
Коэффициент оборачиваемости оборотных средств K0 = B ,
SO
где B – выручка; SO – средний остаток оборотных средств.
Фондоотдача основных фондов F = B ,
C
где C – среднегодовая стоимость основных фондов.
40
Фондоотдача нематериальных активов FN = B ,
CN
где CN – |
среднегодовая стоимость нематериальных активов. |
|
|
|
|
|
|
|
|
|
Уровень |
рентабельности капитала (в процентах) R= |
BP×100 |
|
|
|
1 |
|
|
, |
|
B |
|
1 |
|
1 |
|
|
||||
|
|
+ |
+ |
1 |
|
|
||||
|
|
|
|
K0 |
F |
FN |
||||
|
|
|
|
|
|
|||||
где BP – |
балансовая прибыль. |
|
|
|
|
|
|
|
|
Выполните расчёт при следующих значениях исходных данных: B = 58 000 руб.;
SO =5 132 руб.; C = 42 000 руб.; CN = 215 руб.; BP = 9 700 руб.
Вариант 15
Составьте программу для расчёта доходности краткосрочных бескупонных облигаций.
Доходность облигации Y = N - P K ×100 ,
P
где N – номинал облигации; P – цена покупки облигации;
K = 365 ; t – количество дней до погашения облигации. t
Выполните расчёт при следующих значениях исходных данных: N = 120 руб.;
P = 110 руб.; t = 120 дней.
Вариант 16
Составьте программу для расчёта ожидаемых годовых доходов при инвестиро-
вании капиталов.
Текущее отношение цены акций к балансовой стоимости активов PB = P ,
B
где P – цена акции; B – балансовая стоимость активов в расчёте на одну акцию.
Ожидаемый относительный доход по одной акции R = E p + E (1 - p) + PB I - PB ,
P B PB
где E – прибыль в расчёте на одну акцию; p – доля прибыли, распределяемая в виде дивидендов; PB I – отношение цены акций к балансовой стоимости активов к концу года.
Ожидаемый суммарный годовой доход S = N P R , где N – количество акций.