Автор: A**************@gmail.com, 26 Ноября 2011 в 15:47, курсовая работа
Разработчики Excel максимально облегчили пользователю освоение программы и работу с ней. Благодаря этому Excel быстро завоевала популярность среди широкого круга пользователей. В настоящее время имеющиеся на рынке табличные процессоры способны работать в круге экономических приложений и могут удовлетворить практически любого пользователя.
Введение
1. Постановка задачи
1.1 Характеристика задачи
1.2 Перечень входной и выходной информации
1.3 Математическое описание задачи
1.4 Описание алгоритма решения задачи
2. Характеристика компьютера
3. Входная информация
4. Выходная информация
Выводы и предложения
Список использованной литературы
Программа вычисления на языке Visual Basic:
Sub Rezultat()
Dim B(4), C(4), D(4), E(4), F(4), G(4), L(4), K(4) As Single
Dim S1, S2, N, M As Single
Worksheets("Результаты реализации").Activate
S1 = 0
S2 = 0
For i = 1 To 4
B(i) = Cells(i + 3, 2).Value
C(i) = Cells(i + 3, 3).Value
D(i) = Cells(i + 3, 4).Value
E(i) = Cells(i + 3, 5).Value
F(i) = Cells(i + 3, 6).Value
G(i) = Cells(i + 3, 7).Value
L(i) = B(i) * (F(i) - D(i))
K(i) = C(i) * (G(i) - E(i))
Cells(i + 3, 8).Value = L(i)
Cells(i + 3, 8).NumberFormat = "0.00"
Cells(i + 3, 9).Value = K(i)
Cells(i + 3, 9).NumberFormat = "0.00"
N = N + B(i)
M = M + C(i)
S1 = S1 + L(i)
S2 = S2 + K(i)
Next i
Cells(8, 8).Value = S1
Cells(8, 8).NumberFormat = "0.00"
Cells(8, 9).Value = S2
Cells(8, 9).NumberFormat = "0.00"
Cells(8, 2).Value = N
Cells(8, 2).NumberFormat = "0.00"
Cells(8, 3).Value = M
Cells(8, 3).NumberFormat = "0.00"
End Sub
Рисунок
5-Отклонение фактической
прибыли от плановой
за счет изменений объемов
реализации.
Рисунок
6-Отклонение фактической
прибыли от плановой
за счет изменения себестоимости
продукции.
Рисунок
7-Отклонение фактической
прибыли от плановой
за счет изменения цены
продукции.
Информация о работе Анализ поступления средств и резервов от реализации продукции