Введение в информатику процессов первичной переработки нефти. Новиков А.А - 74 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

73
вычисления натуральный логарифм от аргумента необходимо разделить на нату-
ральный логарифм от 10.
Полный список и описание всех функций можно найти в справочной системе
VBA. Ниже приведены только наиболее часто употребляемые из них.
Fix(N) − возвращает значение целой части аргумента, Fix(-8.4) даст -8.
Int(N) − аналогично Fix, но округление в сторону меньшего целого значения ар-
гумента, Int(-8.4) даст -9.
Rnd(N) − вычисляет псевдослучайное число типа Single в диапазоне от 0 до 1.
Для получения целого случайного числа в диапазоне от lowerbound до upperbound
использовать формулу:
Int((upperbound – lowerbound + 1) * Rnd + lowerbound).
Randomize – настраивает запуск встроенного генератора случайных чисел на
системный таймер Вашего компьютера. Если эту функцию не использовать, то по-
следовательность псевдослучайных чисел будет всегда одинаковой при запуске
программы.
CInt(выражение) – возвращает значение типа Integer для любого допустимого
выражения. Обычно выражение содержит текстовые символы чисел, которые в ре-
зультате применения этой функции преобразуются в целое число. Имеются анало-
гичные функции и для других типов данных, – CDbl, CSng, CByte и т. п.
Chr(число) – возвращает символ, соответствующий по таблице кодировке ANSI
числу, указанному в качестве аргумента.
Пример
Известно, что давление насыщающих паров компонентов нефти вычисляется по
формуле Ашворта (1.27) – (1.30). Фрагмент программы, реализующий вычисления
по этим формулам, приведен ниже. В нем задействованы многие конструкции языка
VBA, описанные выше.
Sub Ashvort()
Const k1 = 3158, k2 = 7.6715, k3 = 2.68
ti = InputBox("Введи температуру кипения узкой фракции, С", "Ввод исходных
данных", 36.6)
ti = CSng(ti)
t = InputBox("Введи температуру, для которой выполняется расчет", " Ввод
исходных данных", 36.6)
t = CSng(t)
Pn = k1 + 10 ^ (k2 - k3 * f(t) / f(ti))
Pn = CSng(Pn)
Call MsgBox("Давление насыщения = " & Pn & " Па", 0, "Результат расчета по
формуле Ашворта")
End Sub
Function f(ByVal t) As Single
Const k1 = 1250, k2 = 273, k3 = 108000, k4 = 307.6
f = k1 / (((t + 273) ^ 2 + k3) ^ 0.5 - k4) - 1
End Function

Страницы