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

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

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

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

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