Стоимость ремонтных работ

Курсовая работа

по дисциплине «информатика»

 

 

Студента (ки) Торопчиной Ольги Валерьевны

Группа         2У3

Тема              Вариант№13

Факультет     Учетный

Специальность Бухучет, анализ и аудит

Отделение     Очное

Научный руководитель

 

………………	…………………..	…………………..
Дата поступления работы в деканат	Допуск к защите. Подпись преподавателя.	Защита работы. Оценка. Подпись преподавателя.

 

Москва

200_

 

 

ОГЛАВЛЕНИЕ.

1.ЗАДАНИЕ НА VISUAL BASIC………………………………..3

1.1.ФОРМА РАБОТАЕТ ПО СЛЕДУЮЩЕЙ ЛОГИКЕ…….5

1.2.ПРОЦЕДУРЫ ОБРАБОТКИ СОБЫТИЙ………………….6

1.3.РАБОТА ПРИЛОЖЕНИЯ………………………………………..18

1.3.1.РАСЧЕТ ПОКАЗАТЕЛЯ…………………………………………….19

1.3.2.ПОСТРОЕНИЕ ГРАФИКА…………………………………………20

1.3.3.ПРИМЕР ОКНА СООБЩЕНИЯ……………………………………20

2.ЗАДАНИЕ НА EXCEL………………………………..21

2.1.СОСТАВИТЬ ИНВАРИАНТНУЮ КАЛЬКУЛЯЦИЮ РЕМОНТА АВТОМОБИЛЯ НА ОСНОВЕ СЛЕДУЮЩИХ ДАННЫХ………………………………………21

2.1.1 РАСЧЕТ ИНВАРИАНТНОЙ КАЛЬКУЛЯЦИИ РАСХОДОВ НА РЕМОНТ АВТОМОБИЛЯ……..22

2.1.2. ПОСТРОЕНИЕ ДИАГРАММЫ СТРУКТУРЫ РАСХОДОВ….25

2.1.3. РАЗРАБОТКА ДВУХ СЦЕНАРИЕВ ДЛЯ РАСЧЕТА РАСХОДОВ ПРИ ИЗМЕНЕНИИ ЦЕН НА ЗАПЧАСТИ И РАСЦЕНОК НА ВЫПОЛНЕНИЕ РАБОТ...26

2.1.4. ПОДБОР ПАРАМЕТРОВ ДЛЯ РАСЧЕТА ВОЗМОЖНЫХ РАЗМЕРОВ ЦЕН ПРИ ЗАДАННОЙ ВЕЛИЧИНЕ РАСХОДОВ……..26

2.1.5. ПЛАН ПОГАШЕНИЯ КРЕДИТА НА РАСХОДЫ ПО СМЕТЕ И РАСЧЕТ БУДУЮЩЕЙ СТОИМОСТИ РАСХОДОВ……….27

3. ЗАДАНИЕ НА WORD…..29

3.1.ВВЕДЕНИЕ..29

3.2.ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ И ЕГО ВИДЫ….30

3.2.1.СИСТЕМНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ……31

3.2.2.ИНСТРУМЕНТАЛЬНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ…..34

3.2.3.ПРИКЛАДНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ….34

3.3.ЗАКЛЮЧЕНИЕ….36

1.ЗАДАНИЕ НА VISUAL BASIC.

 

 

Вариант №13

Задание. Вычислить значение наращенной суммы платежа по формуле р-срочной ренты и построить график зависимости наращенной суммы (S) от срока платежа (n).

Расчетная формула :

 

 

S=r*((1+i/100)^n-1)/(p*[(1+i/100)^(1/p)-1]),

 

 

где n – число периодов наращения;

 i – годовая процентная ставка;

S – наращенная сумма;

r – годовой взнос ренты;

m – число начислений процентов в год;

p – число платежей в год.

 

Комментарий1. Для более удобного введения годовой процентной ставки я внесла некоторые изменения в формулу(i/100 вместо i).

 

Комментарий2. р-срочная рента выплачивается р-раз в год, проценты начисляются раз в год (в данной формуле рассматривается случай m=1).

 

Для выполнения данного задания была создана форма:

Рисунок№1

 

ИМЕНА И ТИПЫ ИСПОЛЬЗУЕМЫХ ОБЪЕКТОВ УПРАВЛЕНИЯ:

 

Text1- объект типа TextBox (текстовое окно) для задания годовой процентной ставки;

Text2- объект типа TextBox (текстовое окно) для задания годового взноса ренты;

Text3- объект типа TextBox (текстовое окно) для задания числа платежей в год;

Text4- объект типа TextBox (текстовое окно) для задания числа периодов наращения;

Text5- объект типа TextBox (текстовое окно) для задания годовой процентной ставки;

Text6- объект типа TextBox (текстовое окно) для задания годового взноса ренты;

Text7- объект типа TextBox (текстовое окно) для задания числа платежей в год;

Text8- объект типа TextBox (текстовое окно) для задания числа периодов наращения;

Text9- объект типа TextBox (текстовое окно) для задания шага построения графика;

Text10- объект типа TextBox (текстовое окно) для вывода результатов расчета показателя;

Frame1 – объект типа Frame (рамка) для группировки объектов, используемых для задания параметров расчета показателя(«Расчет показателя»);

Frame2– объект типа Frame (рамка) для группировки объектов, используемых для задания параметров графика(«Построение графика»);

Command1 - объект типа CommandButton (командная кнопка) для активизации фрейма "Расчет показателя" (кнопка "Расчет показателя");

Command2 - объект типа CommandButton (командная кнопка) для активизации фрейма "Построение графика" (кнопка "Построение графика");

Command3 - объект типа CommandButton (командная кнопка) для вызова процедуры расчета показателя (кнопка "ОК");

Command4 - объект типа CommandButton (командная кнопка) для вызова процедуры построения графика (кнопка "ОК");

Picture1 - объект типа PictureBox для вывода графика;

Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10 поясняющие метки;

Label11 – метка для вывода наращенной суммы при построении графика.

 

1.1.ФОРМА РАБОТАЕТ ПО СЛЕДУЮЩЕЙ ЛОГИКЕ:

§ при запуске программы на форме активизируются две командные кнопки («Построение графика» и «Расчет показателя»);

§ при нажатии кнопки «Расчет показателя» становится активным фрейм «расчет показателя»;

§ при нажатии кнопки «Построение графика» становится активным фрейм «Построение графика».

§ после активизации соответствующего фрейма все остальные элементы формы становятся недоступными.

§ вывод результата расчета показателя производится в текстовое окно «Наращенная сумма» после нажатия кнопки «ОК» во фрейме «расчет показателя»;

§ вывод графика производится в элемент PictureBox после нажатия кнопки «ОК» во фрейме «Построение графика»; при повторном построении графика производится очистка элемента PictureBox от предыдущего построенного графика.

 

Рисунок№2

 

1.2.ПРОЦЕДУРЫ ОБРАБОТКИ СОБЫТИЙ:

 

‘При загрузке формы производится задание начального вида формы и задание недоступности фреймов.

Private Sub Form_Load()       

Picture1.Cls                             ` очистка PictureBox

Label1.Enabled = False           ` метка недоступна

Label2.Enabled = False           ` метка недоступна

Label3.Enabled = False           ` метка недоступна

Label4.Enabled = False           ` метка недоступна      

Label6.Enabled = False           ` метка недоступна

Label7.Enabled = False           ` метка недоступна

Label8.Enabled = False           ` метка недоступна

Label9.Enabled = False           ` метка недоступна

Label10.Enabled = False         ` метка недоступна

Label12.Visible = False          ` метка недоступна

Label5.Caption = «»                ` очистка текста метки

Text1.Text = «»                        ` очистка текстовых окон

Text2.Text = «»                        ` очистка текстовых окон

Text3.Text = «»                        ` очистка текстовых окон

Text4.Text = «»                        ` очистка текстовых окон

Text5.Text = «»                        ` очистка текстовых окон

Text6.Text = «»                        ` очистка текстовых окон

Text7.Text = «»                        ` очистка текстовых окон

Text8.Text = «»                        ` очистка текстовых окон

Text9.Text = «»                        ` очистка текстовых окон

Text10.Text = «»                      ` очистка текстовых окон

Frame1.Enabled = False          ` фрейм недоступен

Frame2.Enabled = False          ` фрейм недоступен

End Sub

 

Private Sub Command1_Click()

‘После нажатия кнопки «Расчет показателя» становится доступным фрейм «Расчет показателя», остальные элементы формы становятся недоступными.

Frame1.Enabled = True           ` фрейм доступен

Frame2.Enabled = False          ` фрейм недоступен

Text1.SetFocus                        ` курсор переводится в текстовое окно Text1

Command1.Enabled = False    ` командная кнопка недоступна

Command2.Enabled = False    ` командная кнопка недоступна

Label1.Enabled = True             ` метка доступна

Label2.Enabled = True             ` метка доступна

Label3.Enabled = True             ` метка доступна

Label4.Enabled = True             ` метка доступна

Label5.Caption = «»                  ` очистка текста метки

End Sub

 

Private Sub Text1_Change()

‘При вводе значений показателя в текстовом окне производится проверка вводимых данных на их положительность и тип (число). Для этого Ascii- код введенного символа сравнивается с Ascii- кодами цифр (от 48 до 57) и символа-разделителя (точки – Ascii- код 46). Эта проверка происходит при вводе каждого символа в текстовом окне (событие Change).

' Используются встроенные функции Len (string) – возвращает длину строки и Mid(string, start[, length]) – возвращает часть строки, начиная с позиции start длины length

 

Dim i As Integer                         ` счетчик цикла

Dim KeyAscii As Integer           ` переменная, содержащая код Ascii символа

For i = 1 To Len(Text1.Text)     ` для каждого символа в строке

KeyAscii = Asc(Mid(Text1.Text, i, 1)) `получаем код Ascii этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then `если код не лежит в диапазоне кодов цифр или точки

Text1.Text = «»                            ` очистить текстовое окно

Exit Sub

End If

Next

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

'После нажатия кнопки «Enter» производится перевод курсора в следующее текстовое окно

If KeyAscii = 13 Then                 ` если нажата клавиша Enter

Text2.SetFocus                            ` перевести курсор в текстовое окно Text2

End If

End Sub

 

Private Sub Text2_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text2.Text)

KeyAscii = Asc(Mid(Text2.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text2.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub Text3_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text3.Text)

KeyAscii = Asc(Mid(Text3.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text3.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text4.Text)

KeyAscii = Asc(Mid(Text4.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text4.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command3.SetFocus

End If

End Sub

 

Private Sub Command3_Click()

`производится проверка на заполненность текстовых окон (если окно незаполненно, то происходит выдача сообщения и курсор переводится в соответствующее текстовое окно)

`после проверки происходит вызов функции для расчета финансового показателя (в качестве параметров передаются значения текстовых окон)

`результаты расчета передаются в текстовое окно «Наращенная сумма»

`оба фрейма становятся недоступными (доступ возможен к командным кнопкам «Построение графика» и «Расчет показателя»)

Dim i As Single                         ` годовая процентная ставка

Dim r As Single                         ` годовой взнос ренты

Dim p As Single                        ` число платежей в год

Dim n As Integer                       ` число периодов наращения

If Text1.Text = “” Or Val(Text1.Text) = 0 Then ` если нулевые или пустые параметры

Call MsgBox(«Не заданы параметры расчета», vbExclamation, «Ошибка при задании параметров»)                             ` вывести сообщение

Text1.SetFocus                           ` перевести курсор в текстовое окно Text1

Exit Sub

End If

If Text2.Text = “” Or Val(Text2.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета», vbExclamation, « Ошибка при задании параметров»)

Text2.SetFocus

Exit Sub

End If

If Text3.Text = “” Or Val(Text3.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета «, vbExclamation, « Ошибка при задании параметров»)

Text3.SetFocus

Exit Sub

End If

If Text4.Text = “” Or Val(Text4.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета «, vbExclamation, « Ошибка при задании параметров»)

Text4.SetFocus                                                                                      

Exit Sub

End If

 

i = Val(Text1.Text)                      ` Val(string) – возвращает числовую составляющую

                                                        строки                                                                                                                                           

r = Val(Text2.Text)                      ` присвоение переменным значений введенных

p = Val(Text3.Text)                     ` параметров из текстовых окон

n = Val(Text4.Text)                         

Text10.Text = s(i, r, p, n)             ` в текстовое окно передать результаты расчета показателя

Frame1.Enabled = False               ` фрейм недоступен

Frame2.Enabled = False               ` фрейм недоступен

Command1.Enabled = True         ` командная кнопка доступна

Command2.Enabled = True         ` командная кнопка доступна

Picture1.Cls                                  ` очистка PictureBox

Label1.Enabled = False                ` метка недоступна

Label2.Enabled = False                ` метка недоступна

Label3.Enabled = False                ` метка недоступна

Label4.Enabled = False                ` метка недоступна

Label6.Enabled = False                ` метка недоступна

Label7.Enabled = False                ` метка недоступна

Label8.Enabled = False                ` метка недоступна

Label9.Enabled = False                ` метка недоступна

Label10.Enabled = False              ` метка недоступна

Label5.Caption = «Наращенная сумма» ` установка метки

End Sub

 

Private Sub Command2_Click()

‘После нажатия кнопки «Построение графика» становится доступным фрейм «Построение графика», остальные элементы формы становятся недоступными

Frame1.Enabled = False               ` фрейм недоступен

Frame2.Enabled = True                ` фрейм доступен

Text5.SetFocus                             ` перевести курсор в текстовое окно Text5

Command1.Enabled = False         ` командная кнопка недоступна

Command2.Enabled = False         ` командная кнопка недоступна

Label6.Enabled = True                 ` метка доступна

Label7.Enabled = True                 ` метка доступна

Label8.Enabled = True                 ` метка доступна

Label9.Enabled = True                 ` метка доступна

Label10.Enabled = True               ` метка доступна

Label5.Caption = «»                      ` очистка текста метки

End Sub

 

Private Sub Text5_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text5.Text)

KeyAscii = Asc(Mid(Text5.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text5.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

Private Sub Text6_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text6.Text)

KeyAscii = Asc(Mid(Text6.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text6.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

Private Sub Text7_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text7.Text)

KeyAscii = Asc(Mid(Text7.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text7.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text8.Text)

KeyAscii = Asc(Mid(Text8.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text8.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

End If

End Sub

 

Private Sub Text9_Change()

Dim i As Integer

Dim KeyAscii As Integer

For i = 1 To Len(Text9.Text)

KeyAscii = Asc(Mid(Text9.Text, i, 1))

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then

Text9.Text = “”

Exit Sub

End If

Next

End Sub

 

Private Sub Text9_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command4.SetFocus

End If

End Sub

 

Private Sub command4_Click()

`производится проверка на заполненность текстовых окон (если окно незаполненно, то происходит выдача сообщения и курсор переводится в соответствующее текстовое окно)

`очистка объекта PictureBox от предыдущего графика

`построение графика в объекте PictureBox (масштабирование объекта PictureBox, рисование координатных осей и графика)

`рисование графика осуществляется в следующей последовательности: задается система координат формы, для чего находятся минимальное и максимальное значения функции на отрезке; рисуются координатные оси; рисуется жирная точка в начале графика; на отрезке определения функции с шагом, заданным пользователем, рисуется график.

`фреймы делаются недоступными (доступ возможен только к командным кнопкам «Построение графика» и «Расчет показателя»)

Dim i As Single                        ` годовая процентная ставка

Dim r As Single                        ` годовой взнос ренты

Dim p As Integer                      ` число платежей в год

Dim n As Integer                      ` число периодов обращения

Dim m As Integer                     ` счетчик цикла

Dim st As Single                       ` счетчик цикла

Dim minfx As Single                ` функции

Dim maxfx As Single               ` функции

Dim minx As Single                 ` минимальное значение аргумента

Dim maxx As Single                ` максимальное значение аргумента

Dim step_t As Double              ` шаг построения графика

If Text5.Text = “” Or Val(Text5.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета «, vbExclamation, « Ошибка при задании параметров «)

Text5.SetFocus

Exit Sub

End If

If Text6.Text = “” Or Val(Text6.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета», vbExclamation, « Ошибка при задании параметров «)

Text6.SetFocus

Exit Sub

End If

If Text7.Text = “” Or Val(Text7.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета», vbExclamation, « Ошибка при задании параметров «)

Text7.SetFocus

Exit Sub

End If

If Text8.Text = “” Or Val(Text8.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета», vbExclamation, « Ошибка при задании параметров «)

Text8.SetFocus

Exit Sub

End If

If Text9.Text = “” Or Val(Text9.Text) = 0 Then

Call MsgBox(«Не заданы параметры расчета», vbExclamation, « Ошибка при задании параметров «)

Text9.SetFocus

Exit Sub

End If

Picture1.Cls                               ` очистка элемента PictureBox

i = Val(Form1.Text5.Text)        ` Val(string) – возвращает числовую составляющую                        

r = Val(Form1.Text6.Text)       ` строки                                                       

p = Val(Form1.Text7.Text)       ` присвоение переменным значений введенных

n = Val(Form1.Text8.Text)       ` параметров из текстовых окон

`зададим систему координат формы

`для чего найдем максимальное и минимальное значение принимаемое

`функций на отрезке

'начальное значение выбираем произвольное

minfx = s(i, r, p, n)                      ` минимальное значение функции

maxfx = s(i, r, p, n)                     ` максимальное значение функции

minx = 0                                      ` минимальное значение аргумента

maxx = 0                                     ` максимальное значение аргумента

step_t = Val(Text9.Text)            ` присвоим переменной значение шага графика

For st = 0 To n Step step_t         ` вычислим min и max значение функции

If minfx > s(i, r, p, st) Then        ` вычисли минимальное значение функции

minfx = s(i, r, p, st)

minx = st

End If

If maxfx < s(i, r, p, st) Then        ` вычислим максимальное значение функции

maxfx = s(i, r, p, st) ‘

maxx = st ‘

End If ‘

Next st

`задание пользовательской системы координат в окне изображения

Picture1.Scale (0.1, maxfx)-(n, 0.1) ` установка масштаба

Picture1.DrawWidth = 2                ` толщина точки равна 2

`рисуем ось X

Picture1.Line (0, 0 + 0.01 * maxfx)-(n, 0 + 0.01 * maxfx), RGB(0, 255, 0) ` при рисовании оси Х задается отступ от края объекта PictureBox на 0.01 * maxfx для лучшей видимости координатной оси

`рисуем ось Y

Picture1.Line (0 + 0.01 * n, 0)-(0 + 0.01 * n, maxfx), RGB(0, 255, 0) ` при рисовании оси Х задается отступ от края объекта PictureBox на 0.01 * maxfx для лучшей видимости координатной оси

Picture1.DrawWidth = 1               ` толщина точки равна 1

Picture1.CurrentX = minx            ` задание координат пера

Picture1.CurrentY = s(i, r, p, minx) `задание координат пера

Picture1.DrawWidth = 8                    ` толщина точки равна 8

Picture1.Pset (Picture1.CurrentX, Picture1.CurrentY) ` рисование точки в начале графика

Picture1.DrawWidth = 1                     ` толщина точки равна 1        

Picture1.CurrentX = 0                         ` задание координат пера

Picture1.CurrentY = s(i, r, p, 0)          ` задание координат пера

`рисование графика

For m = 0 To n Step step_t

Picture1.DrawWidth = 5                     ` толщина точки равна 5

Picture1.Pset (Picture1.CurrentX, Picture1.CurrentY) ` рисование точек построения графика

Picture1.DrawWidth = 1                      ` толщина точки равна 1

Picture1.Line –(m, s(i, r, p, m))            ` рисование графика

Next m

Label11.Caption = maxfx                    ` значение метки – сумма наращенного платежа

Label12.Visible = True                        ` метка доступна

Frame1.Enabled = False                      ` фрейм недоступен

Frame2.Enabled = False                      ` фрейм недоступен

Command1.Enabled = True                 ` командная кнопка доступна

Command2.Enabled = True                 ` командная кнопка доступна

Label1.Enabled = False                        ` метка недоступна

Label2.Enabled = False                        ` метка недоступна

Label3.Enabled = False                        ` метка недоступна

Label4.Enabled = False                        ` метка недоступна

Label6.Enabled = False                        ` метка недоступна

Label7.Enabled = False                        ` метка недоступна

Label8.Enabled = False                        ` метка недоступна

Label9.Enabled = False                        ` метка недоступна

Label10.Enabled = False                      ` метка недоступна

End Sub

`функция для расчета финансового показателя

Public Function s(ByVal i As Single, ByVal r As Single, ByVal p As Single, ByVal n As Single) As Single

On Error GoTo err1                               `в случае ошибки – перейти на метку err1

s = r * ((1 + i / 100) ^ n – 1) / (p * ((1 + i / 100) ^ (1 / p) – 1)) ` функция наращения по формуле p-срочной ренты

On Error GoTo 0

Exit Function                                         ` выйти из функции

err1:                                                       ` обработка ошибки

If Err.Number = 6 Then          ` если ошибка – переполнение, вывести на экран сообщение

Dim Msg As String

Msg = «Ошибка при вычислении!»

MsgBox Msg, , «Переполнение»

Err.Clear                                                ` очистка поля ошибки

End If

End                                                         ` завершение работы проекта

End Function

 

1.3.РАБОТА ПРИЛОЖЕНИЯ.

 

Расчетная формула :

 

 

S=r*((1+i/100)^n-1)/(p*[(1+i/100)^(1/p)-1]),

 

 

Где n – число периодов наращения;

  i – годовая процентная ставка;

S – наращенная сумма;

r – годовой взнос ренты;

m – число начислений процентов в год;

p – число платежей в год.

 

 

Пример. Для обеспечения некоторых будущих расходов соз­дается фонд. Средства в фонд, поступают в виде постоянной го­довой ренты постнумерандо в течение пяти лет. Размер разово­го платежа – 4 млн. руб.На поступившие взносы начисляются проценты по ставке 18,5% годовых. Платежи выплачиваются поквартально: R/p=1 млн. руб., общее число платежей составит 20.

S= 4*(1,185⁵-1)/{4*[(1+0,185)^1/4-1]}=28,9 млн. Руб.

 

 

1.3.1.РАСЧЕТ ПОКАЗАТЕЛЯ.

Рисунок№3

1.3.2.ПОСТРОЕНИЕ ГРАФИКА.

Рисунок№4

 

1.3.3.ПРИМЕР ОКНА СООБЩЕНИЯ.

 

 

Рисунок№5

2.ЗАДАНИЕ НА EXCEL.

 

ЗАДАНИЕ.

 

2.1.СОСТАВИТЬ ИНВАРИАНТНУЮ КАЛЬКУЛЯЦИЮ РЕМОНТА АВТОМОБИЛЯ НА ОСНОВЕ СЛЕДУЮЩИХ ДАННЫХ:

 

Перечень ремонтных работ	Количество
Разборка /сборка авто	1
Установка на стапель	1
Замена переднего крыла	2
Замена бампера	1
Окраска авто	1

                        Таблица№1

Перечень запасных частей и их количество определяется соответственно видам работ.

 Ремонтные работы:

1.Составить расчет инвариантной сметы расходов на ремонт квартиры.

2.Построить диаграмму структуры расходов по смете.

3.Разработать два сценария для расчета расходов при изменении цен на материалы и расценок на выполнение работ.

4.Подобрать параметры для расчета возможных размеров цен при заданной величине расходов.

5.Составить план погашения кредита на расходы по смете и рассчитать будущую стоимость расходов.

 

 

2.1.1 РАСЧЕТ ИНВАРИАНТНОЙ КАЛЬКУЛЯЦИИ РАСХОДОВ НА РЕМОНТ АВТОМОБИЛЯ.

Смета на ремонт автомобиля составляется на основе следующих данных:

1.Стоимость ремонтных работ.

2.Стоимость запасных частей.

Исходные данные, используемые для калькуляции расходов, выглядят следующим образом:

 

Стоимость ремонтных работ