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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

200
Занятие 3 (Уровень А)
6. Заменить в примере циклы FOR-NEXT на циклы, указанные в
индивидуальном задании и добиться того же результата. В отчете привести все
внесенные изменения в программу.
(Уровень В)
7. Дополнить программу расчета (и очистки) одним из заданных
преподавателем циклов для заполнения столбца I (газ нефтяной), столбца J (нефть
товарная) или столбца K (газ балластный). Пример окна приведен на рис. П5.20 в
Приложении 5.
Расчетные формулы
100*
*
*
)1(
1
n
i
ii
ii
i
CM
CM
G
100/* )2(
ii
Gmm
i
i
i
M
m
N )3(
7
3
)4(
i
ig
mK
10
8
)5(
i
in
mK
2
1
)6(
i
ib
mK
Пример программы с использованием цикла FOR-NEXT
Option Base 1
Const kk = 10 ' количество компонент пластовой нефти
Dim C(kk), N(kk), G(kk), M(kk), Mn(kk), Kg, Kn, Kb As Double
Private Sub CommandButton1_Click()
Call RASCHET
End Sub
Private Sub CommandButton2_Click()
Call OCHISTKA
End Sub
Sub RASCHET()
‗---------------------------считываем с листа исходные данные
Mneft = Worksheets(1).Range("A15").Value

Страницы