Расчет финансового левериджа
Министерствоторговли РоссийскойФедерации
Московскийгосударственныйуниверситет
коммерции
Краснодарскийфилиал
ФакультетУФФ
Курс1-ый
Группа0212
Курсоваяработа
покурсу:”Информатикаи вычислительная
техника”
натему:”Расчетфинансовоголевериджа”
Выполнил:
Студентка
ТоричневаН.А.
Руководитель:
Ст.преподаватель
НиколаеваИ.В.
Курсоваяработа защищена
“____”________1999г.
Оценка_________
Краснодар1999 г.
СОДЕРЖАНИЕ
Введение.......................................................................3
1.Заданиена выполнениекурсовой работы..........4
2.Анализпроблемы...................................................5
3.Разработкаинтерфейсапользователя............6
4.Список идентификаторов..................................7
5.Схема алгоритма..................................................8
6.Текст программы..................................................9
7.Результатвыполненияпрограммы на
компьютере...........................................................14
8.Тестовая задача....................................................15
9.Сравнительныйанализ результатавыполнения
задачина компьютереи тестовойзадачи ......15
10.Руководствопользователя...............................16
Заключение................................................................17
Литература..............................................................18
Введение.
ИспользованиеЭВМ позволяетоблегчитьработу с информациейпредставителямсамых разныхпрофессий.Существуютготовые многоцелевыепрограммныепродукты дляразличных видовработ - текстовыередакторы, базыданных, электронныетаблицы и т.д.Но иногда удобнеесоставитьнебольшуюпрограммурешения конкретныхзадач. Для этогоможно использоватьразличные языкипрограммирования- Паскаль, Си,FoxPro и другие. ЯзыкVisual Basic и ему подобныеудобен длятаких целей,т.к. имеет оченьудобный интерфейси при минимальномзатрате временипозволяетполучить хорошийрезультат. Напримере предложенногозадания рассмотримприменениеэтого языкадля решениязадачи.
Задание.
Расчетфинансовоголевериджа.
Разработатьциклическуюсхему алгоритмаи программус защитой отнеправильноговвода исходныхданных длярасчета финансовоголевериджа.
Финансовыйлеверидж являетсяпоказателемфинансовойустойчивостиакционерногообщества иопределяетсясоотношением:
О+А1
Л= ------------
А2
ГдеЛ - уровеньлевериджа;
О -облигации, руб;
А1- привелегерованныеакции, руб;
А2- обыкновенныеакции, руб.
Разработатьи решить контрольныйпример расчетафинансовоголевериджа длякаждого из 8акционерныхобществ и среднегозначения левериджа.
Анализпроблемы.
Припокупки акцийи облигацийодного акционерногообщества инвесторуследует исходитьиз принципафинансовоголевериджа.
Финансовыйлеверидж (англ.Leverage - средстводля достиженияцели ) представляетсобой соотношениемежду облигациямии привелегированнымиакциями с однойстороны, иобыкновеннымиакциями с другой.
О+А1
Л = ------------
А2
ГдеЛ - уровеньлевериджа; О- облигации,руб; А1- привелегерованныеакции, руб; А2- обыкновенныеакции, руб.
Финансовыйлеверидж являетсяпоказателемфинансовойустойчивостиакционерногообщества, чтоотражаетсяи на доходностипортфельныхинвестиций.Высокий уровеньлевериджа -явление опасное,так как ведетк финансовойнеустойчивости.
Пример: Акционерноеобщество выпустило10%-ные облигациина сумму 10.000.000 рублей,привелегированныеакции на сумму2.000.000 рублей, сфиксированнымдивидендом40% и обыкновенныеакции на сумму20.000.000 рублей, тоесть акцииобщества имеютвысокий уровеньлевериджа
10+2
Л = ---------- = 0,6
20
Прибыльобщества краспределениюсоставляет2.200.000 рублей еераспределяютследующимобразом : науплату процентовпо облигациям- 1.000.000 рублей, надивиденды попривелегированнымакциям - 800.000 рублей,на дивидендыпо обыкновеннымакциям - 400.000 рублей.Если прибылснизится до1.100.000 рублей, тоакционерноеобщество нетолько “съест”то, что предназначалосьна выплатудивидендовпо обыкновеннымакциям, но и несможет за счетприбыли выплатитьдивиденды попривелегированнымакциям. В этомзаключаетсяопасность акцийс высоким уровнемлевериджа ипроявляетсяосновная слабостьтех обществу которых имеетсябольшая суммадолга в видеоблигаций ипривелегированныхакций. Осторожныеинвесторыобычно избегаютпокупки такихценных бумаг.
Списокидентификаторов.
kol- количествообсчитанныхакционерныхобществ (Integer).
summa- сумма финансовоголевериджа всехобсчитанныхАО (Single).
pr_ak- цена привелегированныхакций текущегоАО (Currency).
ob_ak- цена обыкновенныхакций текущегоАО (Currency).
obl- цена облигацийтекущего АО(Currency).
lev- значениефинансовоголевериджатекущего АО(Currency).
t1,t2- промежуточныепеременные(String).
Таблицасвойств формы.
BeginForm FIN_LEV
Caption = "Расчетфинансовоголевериджа"
ClientHeight = 4560
ClientLeft = 1410
ClientTop = 1995
ClientWidth = 7305
Height = 4965
Icon = (Icon)
Left = 1350
LinkTopic = "Form1"
ScaleHeight = 304
ScaleMode = 3 'Pixel
ScaleWidth = 487
Top = 1650
Width = 7425
BeginCommandButton EXT
Caption = "ВЫХОД"
Height = 495
Left = 5040
TabIndex = 7
Top = 3960
Width = 1455
End
BeginCommandButton calc
Caption = "РАСЧЕТ"
Height = 495
Left = 720
TabIndex = 6
Top = 3960
Width = 1455
End
BeginTextBox V_OB_AK
Height = 375
Left = 3240
TabIndex = 5
Text = "0"
Top = 2400
Width = 2295
End
BeginTextBox V_PR_AK
Height = 375
Left = 3240
TabIndex = 4
Text = "0"
Top = 1560
Width = 2295
End
BeginTextBox V_obl
Height = 375
Left = 3240
TabIndex = 1
Text = "0"
Top = 720
Width = 2295
End
BeginLabel srd_lev
BorderStyle = 1 'Fixed Single
Caption = "Средний финансовыйлеверидж покане вычислен"
Height = 255
Left = 120
TabIndex = 10
Top = 3480
Width = 6975
End
BeginLabel Titul
Caption = "Расчет1"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Left = 2520
TabIndex = 9
Top = 120
Width = 2295
End
BeginLabel vivod
BorderStyle = 1 'Fixed Single
Caption = "Финансовыйлеверидж покане вычислен"
Height = 255
Left = 120
TabIndex = 8
Top = 3000
Width = 6975
End
BeginLabel T_OB_AK
Caption = "Введите обыкновенныеакции , руб"
Height = 495
Left = 120
TabIndex = 3
Top = 2400
Width = 2895
End
BeginLabel T_PR_AK
Caption = "Введитепривелегированныеакции , руб"
Height = 495
Left = 120
TabIndex = 2
Top = 1560
Width = 2895
End
BeginLabel T_obl
Caption = "Введите облигации, руб"
Height = 255
Left = 120
TabIndex = 0
Top = 840
Width = 2895
End
End
Текстпрограммы.
Modulefin_lev.bas
Globalkol As Integer
Globalsumma As Single
EndModule
Subcalc_Click ()
IfVal(v_obl.Text)
MsgBox "Невсе введено"
Exit Sub
EndIf
IfVal(v_pr_ak.Text)
MsgBox "Невсе введено"
ExitSub
EndIf
IfVal(v_ob_ak.Text)
MsgBox "Неверныеданные"
Exit Sub
EndIf
obl =Val(v_obl.Text)
pr_ak= Val(v_pr_ak.Text)
ob_ak= Val(v_ob_ak.Text)
lev =(obl + pr_ak) / ob_ak
kol= kol + 1
t1= "Финансовыйлеверидж предприятия№"
vivod.Caption = t1 + Str(kol) + "равен" + Mid$(Str(lev), 1, 10)
summa= summa + lev
t1= "Среднее значениелевериджа "
t2= " предприятийравно "
srd_lev.Caption = t1 + Str(kol) +t2 + Str(summa / kol)
titul.Caption = "Расчет#" + Str(kol + 1)
v_pr_ak.Text= "0"
v_obl.Text= "0"
v_ob_ak.Text= "0"
End Sub
SubEXT_Click ()
End
End Sub
SubForm_Load ()
kol =0
summa= 0
End Sub
SubV_OB_AK_Change ()
IfVal(v_ob_ak.Text)
MsgBox "Требуетсяввести положительноечисло"
v_ob_ak.Text = "0"
EndIf
End Sub
SubV_obl_Change ()
IfVal(v_obl.Text)
MsgBox "Требуетсяввести положительноечисло"
v_obl.Text = "0"
EndIf
End Sub
SubV_PR_AK_Change ()
IfVal(v_pr_ak.Text)
MsgBox "Требуетсяввести положительноечисло"
v_pr_ak.Text = "0"
EndIf
End Sub
Тестоваязадача.
Рассчитатьфинансовыйлеверидж дляданной группыиз 8 акционерныхобществ, а такжерассчитатьсреднее значениелевериджа дляэтих предприятий.
Облигации(млн.руб) | Привелегированные акции(млн.руб) | Обыкновенные акции(млн.руб) | |
| 1 2 3 4 5 6 7 8 | 10 14 18 14 9 0 0.8 0.3 | 2 8 4 0 12 7 0.4 0.5 | 20 31 22 18 60 3.5 2.1 1.3 |
Сравнительныйанализ результатавыполненияна компьютереи тестовойзадачи.
| Значениелевериджаполученноена Компьютере | Значениелевериджаполученноена калькуляторе | |
| 1 2 3 4 5 6 7 8 | 0.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615 | 0.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615 |
| среднее значение | 0.828 | 0.828 |
Руководствопользователя.
Послезапуска программына экране появляетсяпустая форма.Пользователюнеобходимоввести данныедля первогоакционерногообщества ( влюбом порядке)- стоимостьвыпущенныхоблигаций,привелегированныхакций и обыкновенныхакций. Стоимостьоблигаций ипривелегированныхакций можетбыть любым неотрицательнымчислом, стоимостьобыкновенныхакций должнабыть положительнымчислом.
Послеввода данныхнажать кнопкуРАСЧЕТи если данныевведены правильно,то производитсявычислениефинансовоголевериджа дляданного акционерногообщества. Послевычисленияпроисходиточистка полейввода для вводаследующихданных. Покакнопка РАСЧЕТне нажата можноизменять значениевводимых данных.
При нажатии кнопкиРАСЧЕТпроизводитсявычислениесреднего значенияфинансовоголевериджа длявведенных ужеакционерныхобществ.
Еслинужно вычислитьсреднее значениефинансовоголевериджа длядругой группыакционерныхобществ, тонеобходимовыйти из программы( нажав кнопкуВЫХОД)и запуститьпрограммуснова. Значениелевериджа исреднего левериджавычисляетсяс точностьюдо 10 знаков.
Заключение.
ПрименениеЭВМ во многихвидах деятельностиуже сейчаспозволяетсущественноупроститьработу людейпо подготовке,накоплениюи переработкеинформации,проведениюпроектных работи научныхисследований.Электронно-вычислительныемашины уже естьв школах, и онибудут помогатьпри изучениифизики и математики,химии и биологиии многих другихучебных предметов.
Умениеобщаться с ЭВМи использоватьих в своей работе,так же как умениепользоватьсяручкой в ближайшие10-15 лет станетнеобходимымпрактическидля всех взрослыхи детей и составитоснову компьютернойграмотности1.
УмениеэффективноиспользоватьЭВМ в работепредполагаетопределеннуюкультуру. Онавключает в себязнание основныхвозможностейЭВМ; умениечетко ставитьзадачи, составлятьпланы их решенияи записыватьих в форме, понятнойЭВМ; умениевыделять данныедля решениязадач и анализироватьполучаемыерезультаты.Эта культураопирается назнание законовлогики и информатики.
Литература.
1. Маркова“Информатика”.
2. МаркусЛинке “Visual Basic 5.0справочник”- перевод с немецкогоиздательство“Бином”.
3.ЗельднерГ.А. “Quick Basic для носорога”- Омск 1994 год
4. Microsoft Visual Basic Шагзашагом/
5. БалабановИ.Т. “Основыфинансовогоменеджмента”.
1Компьютернаяграмотность- это умениечитать и писать,считать и рисовать,а так же искатьинформацию,применяя ЭВМ.
6
Разработкаинтерфейсапользователя.
Результатвыполненияпрограммы накомпьютере.
