Смекни!
smekni.com

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

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

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

коммерции


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

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

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


Разработкаинтерфейсапользователя.




Результатвыполненияпрограммы накомпьютере.