Введение в информатику. Хамухин А.А. - 202 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

201
Kbarrel = Worksheets(1).Range("A17").Value
‘----- 1 цикл
‘ Из 3 и 4 столбцов листа Excel вводим в массивы М и С мол. массы и %
мольные
For i = 1 To kk
M(i) = Worksheets(1).Cells(i + 2, 3).Value
C(i) = Worksheets(1).Cells(i + 2, 4).Value
Next i
'-----------------------------расчет по формулам
‘----- 2 цикл
S1 = 0
For i = 1 To kk
S1 = S1 + M(i) * C(i)
Next i
'------во 2 цикле рассчитали знаменатель формулы (1)
‘----- 3 цикл
For i = 1 To kk
G(i) = M(i) * C(i) / S1 * 100
Mn(i) = Mneft * G(i) / 100
N(i) = Mn(i) / M(i)
Next i
'----в 3 цикле пересчитали % мольные в массы по формулам (1), (2), (3)
‘---- 4 цикл
Kb = 0
For i = 1 To 2
Kb = Kb + Mn(i)
Next i
'-----в 4 цикле рассчитали массу балластного газа по формуле (6)
‘-----5 цикл
Kg = 0
For i = 3 To 7
Kg = Kg + Mn(i)
Next i
'-----в 5 цикле рассчитали массу нефтяного газа по формуле (4)
‘----- 6 цикл
Kn = 0
For i = 8 To 10
Kn = Kn + Mn(i)
Next i
'------в 6 цикле рассчитали массу товарной нефти по формуле (5)
‘------запишем результаты на лист 1 в 7 цикле:
‘----- 7 цикл
For i = 1 To kk
Worksheets(1).Cells(i + 2, 6).Value = N(i)
Worksheets(1).Cells(i + 2, 7).Value = G(i)
Worksheets(1).Cells(i + 2, 8).Value = Mn(i)
Next i
Worksheets(1).Range("I14").Value = Kg

Страницы