Расчет финансового левериджа

Министерство торговли Российской Федерации

Московский государственный университет коммерции

Краснодарский филиал

Факультет УФФ

Курс 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).

Таблица свойств формы.

Begin Form 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

Begin CommandButton EXT

Caption = "ВЫХОД"

Height = 495

Left = 5040

TabIndex = 7

Top = 3960

Width = 1455

End

Begin CommandButton calc

Caption = "РАСЧЕТ"

Height = 495

Left = 720

TabIndex = 6

Top = 3960

Width = 1455

End

Begin TextBox V_OB_AK

Height = 375

Left = 3240

TabIndex = 5

Text = "0"

Top = 2400

Width = 2295

End

Begin TextBox V_PR_AK

Height = 375

Left = 3240

TabIndex = 4

Text = "0"

Top = 1560

Width = 2295

End

Begin TextBox V_obl

Height = 375

Left = 3240

TabIndex = 1

Text = "0"

Top = 720

Width = 2295

End

Begin Label srd_lev

BorderStyle = 1 "Fixed Single

Caption = "Средний финансовый леверидж пока не вычислен"

Height = 255

Left = 120

TabIndex = 10

Top = 3480

Width = 6975

End

Begin Label 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

Begin Label vivod

BorderStyle = 1 "Fixed Single

Caption = "Финансовый леверидж пока не вычислен"

Height = 255

Left = 120

TabIndex = 8

Top = 3000

Width = 6975

End

Begin Label T_OB_AK

Caption = "Введите обыкновенные акции , руб"

Height = 495

Left = 120

TabIndex = 3

Top = 2400

Width = 2895

End

Begin Label T_PR_AK

Caption = "Введите привелегированные акции , руб"

Height = 495

Left = 120

TabIndex = 2

Top = 1560

Width = 2895

End

Begin Label T_obl

Caption = "Введите облигации , руб"

Height = 255

Left = 120

TabIndex = 0

Top = 840

Width = 2895

End
End

Текст программы.

Module fin_lev.bas
Global kol As Integer
Global summa As Single
End Module

Sub calc_Click ()
If Val(v_obl.Text) < 0 Then

MsgBox "Не все введено"

Exit Sub

End If
If Val(v_pr_ak.Text) < 0 Then

MsgBox "Не все введено"

Exit Sub

End If
If Val(v_ob_ak.Text)