1.6 (Программы 2)
Описание файла
Файл "1.6" внутри архива находится в папке "Программы 2". Документ из архива "Программы 2", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "1.6"
Текст из документа "1.6"
Option Strict On
Module Module1
Sub Main()
Dim T, pA, pB, N, dA, dB, R, mA, mB As Double
Dim z0, z, nA, nB, rA, rB As Double
R = 8.31441
N = 6.002
T = 273
pA = 0.75
pB = 0.25
dA = 2.73
dB = 4.158
mA = 2
mB = 16
Console.WriteLine("При температуре {0} K", T)
Console.WriteLine()
Console.WriteLine("Для вещества А:")
Console.WriteLine()
Console.WriteLine(" парциальное давление {0} атм.", pA)
Console.WriteLine(" диаметр молекулы {0} A", dA)
Console.WriteLine(" молярная масса {0} г/моль", mA)
Console.WriteLine()
Console.WriteLine("Для вещества В:")
Console.WriteLine()
Console.WriteLine(" парциальное давление {0} атм.", pB)
Console.WriteLine(" диаметр молекулы {0} A", dB)
Console.WriteLine(" молярная масса {0} г/моль", mB)
N = N * 10 ^ 23
pA = pA * 101325
pB = pB * 101325
dA = dA * 10 ^ (-10)
dB = dB * 10 ^ (-10)
mA = mA * 10 ^ (-3)
mB = mB * 10 ^ (-3)
nA = (N * pA) / (R * T)
nB = (N * pB) / (R * T)
rA = dA / 2
rB = dB / 2
z0 = (rA + rB) ^ 2 * Math.Sqrt(8 * Math.PI * R * T * (1 / mA + 1 / mB))
z = z0 * nA * nB
Console.WriteLine()
Console.WriteLine("z0 = {0} м3/с", z0)
Console.WriteLine("z = {0} м3/с", z)
Console.ReadLine()
End Sub
End Module