Создан заказ №711242
11 сентября 2015
Составить программу расчета индекса стоимостного объема продукции по формуле где q0 и q1 − объем продукции в базисном и отчетном периодах
Как заказчик описал требования к работе:
Выполнить контрольную по информатике за 2 дня в двух вариантах. Пишите сразу сколько будет стоить контрольная.
Фрагмент выполненной работы:
Составить программу расчета индекса стоимостного объема продукции по формуле:
,
где q0 и q1 − объем продукции в базисном и отчетном периодах; p0 и p1 − цена продукции в базисном и отчетном периодах.
Option Explicit
Dim q0 As Double, q1 As Double, p0 As Double, p1 As Double, N As Double, C As Double, I As Double
Private Sub Form_Load()
AutoRedraw = True
N = Val(Replace(InputBox("Введите значение N", , 1), ",", "."))
For C = 1 To N Step 1
q0 = Val(Replace(InputBox("Введите значение q0", , 1), ",", "."))
p0 = Val(Replace(InputBox("Введите значение p0", , 1), ",", "."))
q1 = Val(Replace(InputBox("Введите значение q1", , 1), ",", "."))
p1 = Val(Replace(InputBox("Введите значение p1", , 1), ",", "."))
I = I+(q1*p1) / (q0*p0)
Print " I = " & Round(I, 3)
End Sub
Решение:
Option Explicit
Dim q0 As Double, q1 As Double, p0 As Double, p1 As Double, N As Double, C As Double, I As Double
Private Sub Form_Load()
AutoRedraw = True
N = Val(Replace(InputBox("Введите значение N", , 1), ",", "."))
C=1
jamplabel1:
q0 = Val(Replace(InputBox("Введите значение q0", , 1), ",", "."))
p0 = Val(Replace(InputBox("Введите значение p0", , 1), ",", "."))
q1 = Val(Replace(InputBox("Введите значение q1", , 1), ",", "."))
p1 = Val(Replace(InputBox("Введите значение p1", , 1), ",", "."))
I = I+(q1*p1) / (q0*p0)
C = C + 1
If C <= N Then GoTo jamplabel1
Prin...Посмотреть предложения по расчету стоимости
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
12 сентября 2015
Заказ завершен, заказчик получил финальный файл с работой
5
Составить программу расчета индекса стоимостного объема продукции по формуле
где q0 и q1 − объем продукции в базисном и отчетном периодах.docx
2016-02-11 18:15
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Отличная работа, преподаватель даже попросил скинуть ему, для примера заочникам как нужно делать, Спасибо большое!
Хочешь такую же работу?
300 ₽
