Реферат: «информатика»
Название: «информатика» Раздел: Остальные рефераты Тип: реферат | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
МИНИСТЕРСТВО общего и профессионального образования российской федерации АКАДЕМИЯ БЮДЖЕТА И КАЗНАЧЕЙСТВА министерства финансов российской федерации Курсовая работапо дисциплине «информатика»
Москва 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,1855 -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.Построить диаграмму структуры расходов по смете. 3.Разработать два сценария для расчета расходов при изменении цен на материалы и расценок на выполнение работ. 4.Подобрать параметры для расчета возможных размеров цен при заданной величине расходов. 5.Составить план погашения кредита на расходы по смете и рассчитать будущую стоимость расходов. 2.1.1 РАСЧЕТ ИНВАРИАНТНОЙ КАЛЬКУЛЯЦИИ РАСХОДОВ НА РЕМОНТ АВТОМОБИЛЯ. Смета на ремонт автомобиля составляется на основе следующих данных: 1.Стоимость ремонтных работ. 2.Стоимость запасных частей. Исходные данные, используемые для калькуляции расходов, выглядят следующим образом:
Таблица№2
Таблица№3 Калькуляция расходов состоит из 3 частей: 1. Расчет стоимости работ. 2. Расчет стоимости запчастей. 3. Расчет общей стоимости. Все эти расчеты приведены ниже: Таблица№4
Таблица№5
Таблица№6
«Цена» в таблице «Расчет стоимости работ» рассчитывается инвариантно, т.е. при помощи функции ЕСЛИ в зависимости от марки автомобиля, а «Сумма» в той же таблице рассчитывается в зависимости от количества работ: Таблица№7
«Цена» в таблице «Расчет стоимости запчастей» рассчитывается так же инвариантно, при помощи функции ЕСЛИ в зависимости от марки автомобиля, а «Сумма» в той же таблице рассчитывается в зависимости от количества работ: Таблица№8
Расчет общей стоимости осуществляется с помощью использования функции СУММ:
Таблица№9 2.1.2. ПОСТРОЕНИЕ ДИАГРАММЫ СТРУКТУРЫ РАСХОДОВ. Диаграмма отражает структуру расходов на ремонт автомобиля (автомобиль Шкода), для этих целей была использована круговая диаграмма следующего вида: Рисунок№6 2.1.3. РАЗРАБОТКА ДВУХ СЦЕНАРИЕВ ДЛЯ РАСЧЕТА РАСХОДОВ ПРИ ИЗМЕНЕНИИ ЦЕН НА ЗАПЧАСТИ И РАСЦЕНОК НА ВЫПОЛНЕНИЕ РАБОТ. В приведенных ниже сценариях показано как при изменении расценок на выполнение работ и цен запчастей на автомобиль Шкода изменяются расходы по смете: Таблица№10
2.1.4. ПОДБОР ПАРАМЕТРОВ ДЛЯ РАСЧЕТА ВОЗМОЖНЫХ РАЗМЕРОВ ЦЕН ПРИ ЗАДАННОЙ ВЕЛИЧИНЕ РАСХОДОВ. При выполнении подбора параметров устанавливаются расходы по смете в размере 104000 и выполняется подбор необходимой стоимости окраски автомобиля Шкода: Рисунок№7 Рисунок№8 В результате подобран необходимый размер стоимости окраски автомобиля Шкода в размере 72000 рублей. Таблица№11
Таблица№12
2.1.5. ПЛАН ПОГАШЕНИЯ КРЕДИТА НА РАСХОДЫ ПО СМЕТЕ И РАСЧЕТ БУДУЮЩЕЙ СТОИМОСТИ РАСХОДОВ. Допустим, что взят кредит на ремонт автомобиля Шкода в сумме 68200 рублей на 1 год под 20% годовых с ежеквартальными платежами. Требуется рассчитать сумму ежеквартальных выплат, в том числе по процентам и основному долгу: Таблица№13
План погашения кредита рассчитывается с использованием финансовых функций ПЛТ, ПРПЛТ и ОСПЛТ: Таблица№14
Финансовая функция БС используется для расчета будущей стоимости вклада. На ремонт автомобиля Шкода в настоящее время, согласно смете, требуется 68200 рублей. Через 3 года стоимость ремонта автомобиля при ставке 20% и ежеквартальном начислении процентов будет 122477,40 рублей. Окно расчета функции БС приведено ниже: Рисунок№9
Таблица№15 3. ЗАДАНИЕ НА WORD . 3.1.ВВЕДЕНИЕ. Когда люди приходят в магазин и покупают компьютер им почти всегда помимо самой машины предлагается приобрести программное обеспечение, причем чаще всего лицензионное, а следовательно дорогое. Рядовой пользователь, особенно если он покупает ЭВМ впервые, считает, что, купив компьютер, он принесет его домой, воткнет вилку в розетку, и все будет работать как часы, однако это не так. Любой персональный компьютер, даже самый современный, без наличия установленного на него необходимого программного обеспечения является грудой железа. В таком состоянии ни один компьютер не способен выполнить даже самые элементарные операции. Так что же такое программное обеспечение (ПО или software)? 3.2.ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ И ЕГО ВИДЫ. Программное обеспечение – набор программ, которые обеспечивают выполнение задач, решаемых на компьютере. Всё программное обеспечение поставляется на флоппи-дисках, лазерных дисках (CD, DVD) или через международную сеть Интернет. Иногда программный продукт может стоить гораздо дороже самого компьютера! В условиях «бедной» России наши пользователи ПК не покупают дорогостоящие лицензионные продукты, а вынуждены, по сути дела, нарушать Уголовный Кодекс, приобретая дешёвые пиратские копии программ. В России авторский контроль фирм распространяется только на коммерческие предприятия: заводы, фабрики, фирмы, учебные заведения. Однако для учебных заведений предоставляется скидка при покупке лицензионного ПО – до 70%. Рисунок№10 При построении классификации ПО нужно учитывать тот факт, что стремительное развитие вычислительной техники и расширение сферы приложения компьютеров резко ускорили процесс эволюции программного обеспечения. Если раньше можно было по пальцам перечислить то сейчас ситуация коренным образом изменилась. Развитие ПО пошло как вглубь (появились новые подходы к построению операционных систем, языков программирования и т.д.), так и вширь (прикладные программы перестали быть прикладными и приобрели самостоятельную ценность). Соотношение между требующимися программными продуктами и имеющимися на рынке меняется очень быстро. Даже классические программные продукты, такие, как операционные системы, непрерывно развиваются и наделяются интеллектуальными функциями, многие из которых ранее относились только к интеллектуальным возможностям человека. Кроме того, появились нетрадиционные программы, классифицировать которые по устоявшимся критериям очень трудно, а то и просто невозможно, как, например, программа — электронный собеседник. Отслеживая рынок всего программного обеспечения, можно составить его схему классификации: Программное обеспечение. Программное обеспечение
- комплекс программ: Жизненный цикл программного обеспеченияЖизненный цикл программного обеспечения
- период разработки и эксплуатации программного обеспечения, в котором обычно выделяют этапы:
|