Пособие_по_алгоритмизации_и_программированию

31

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 – количество акций.