Задача 1.6 (Программы 3)
Описание файла
Файл "Задача 1.6" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 1.6"
Текст из документа "Задача 1.6"
Sub Main()
Dim T, M, p, p0, k, u As Double
Const R As Double = 8.31441
k = 1.402
T = 293
M = 28.96
p0 = 2.4
p = 1.2
u = Math.Sqrt((2 * R * T * (k / (k - 1)) / (M / 1000)) * (1 - p / p0) ^ ((k - 1) / k))
Console.WriteLine("При температуре {0} K", T)
Console.WriteLine(" молярной массе {0} г/моль", M)
Console.WriteLine(" Cp/Cv {0} ", k)
Console.WriteLine(" внешнем давлении {0} атм.", p)
Console.WriteLine(" внутреннем давлении {0} атм.", p0)
Console.WriteLine(" ")
Console.WriteLine("u ={0} м/с", u)
Console.ReadLine()
End Sub
Module Module1
Sub Main()
Dim T, M, p, p0, k, u As Double
Dim pmin As Double = 1.1
Dim pmax As Double = 1.9
Dim dp As Double = 0.1
Const R As Double = 8.31441
k = 1.402
T = 293
M = 28.96
p0 = 2.4
Console.WriteLine("При температуре {0} K", T)
Console.WriteLine(" молярной массе {0} г/моль", M)
Console.WriteLine(" Cp/Cv {0} ", k)
Console.WriteLine(" внутреннем давлении {0} атм.", p0)
Console.WriteLine(" ")
Console.WriteLine("Выполнены расчеты для значений внешнего давления от {0}атм. до {1}атм. с шагом {2}атм.", pmin, pmax, dp)
Console.WriteLine(" p(атм.) | u(м/с)")
For i As Integer = 0 To CInt((pmax - pmin) / dp)
p = pmin + i * dp
u = Math.Sqrt((2 * R * T * (k / (k - 1)) / (M / 1000)) * (1 - p / p0) ^ ((k - 1) / k))
Console.WriteLine("{0} | {1}", p, u)
Next i
Console.ReadLine()
End Sub
End Module