Автор работы: Пользователь скрыл имя, 01 Октября 2012 в 17:45, курсовая работа
Посредством стратегических инвестиций реализуются структурные изменения в экономике, развиваются ключевые импортозамещающие производства или конкурентоспособные экспортно-ориентированные отрасли.
Актуальность курсовой работы обусловлена тем, что анализ инвести-ций, осуществляемых в форме капитальных вложений, дает возможность определить наличие необходимых ресурсов и возможные направления их привлечения для повышения эффективности деятельности предприятия.
Введение
Постановка задачи
Формулы для расчета показателей
Характеристика компьютера
Входная информация
Выходная информация
Заключение
Список использованной литературы
Приложения
На основе всей этой проделанной работы можно сделать следующие выводы:
Во-первых, капитальные вложения по федеральным округам имеют положительную тенденцию развития.
Во-вторых, капитальные вложения за счет собственных средств составляют львиную долю инвестиций, удельный вес их в общем объеме инвестиций растет.
В-третьих, в структуре инвестиций по округам больше всего инвестиции выделяются в Центральный, и Приволжский ФО, что говорит о большей привлекательности для инвесторов, а, следовательно, и большем экономическом потенциале.
Public Sub raschet()
Dim A (1 To 86) As Double
Dim B (1 To 86) As Double
Dim C (1 To 86) As Double
Dim D (1 To 86) As Double
Dim E (1 To 86) As Double
Dim F (1 To 86) As Double
Dim G (1 To 86) As Double
Dim H (1 To 86) As Double
Dim I (1 To 86) As Double
Dim J (1 To 86) As Double
Dim K (1 To 86) As Double
Dim Y As Integer
For Y = 1 To 86
A(Y) = Sheets("Ish").Cells(Y + 3, 3)
B(Y) = Sheets("Ish").Cells(Y + 3, 4)
C(Y) = Sheets("Ish").Cells(Y + 3, 5)
D(Y) = Sheets("Ish").Cells(Y + 3, 6)
E(Y) = Sheets("Ish").Cells(Y + 3, 7)
F(Y) = Sheets("Ish").Cells(Y + 3, 8)
G(Y) = A(Y) - (C(Y) + E(Y))
H(Y) = B(Y) - (D(Y) + F(Y))
I(Y) = H(Y) / G(Y)
J(Y) = G(Y) / A(Y) * 100
K(Y) = H(Y) / B(Y) * 100
Sheets("Res").Cells(Y + 3, 3) = G(Y)
Sheets("Res").Cells(Y + 3, 4) = H(Y)
Sheets("Res").Cells(Y + 3, 5) = I(Y)
Sheets("Res").Cells(Y + 3, 6) = J(Y)
Sheets("Res").Cells(Y + 3, 7) = K(Y)
Next Y
End Sub