Задача 2.6 (Программы 3)
Описание файла
Файл "Задача 2.6" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 2.6"
Текст из документа "Задача 2.6"
Option Strict On
Module Module1
Sub Main()
Dim v As Double = 0
Dim v1 As Double = 0
Dim w As Double = 1
Dim e As Double = 10 ^ (-6)
Dim Ev As Double
Dim Ev1 As Double
Dim Fv As Double
Dim g, y As Double
Const k As Double = 1.381 * 10 ^ (-16)
Const h As Double = 1.986 * 10 ^ (-16)
Do While w < 1000
w = w * 10
Console.WriteLine()
Console.WriteLine("Частота колебания: {0} (см-1)", w)
Console.WriteLine()
Console.WriteLine("T | Fv | <Ev>/h (см-1) ")
Console.WriteLine("------------------------------------------------")
For T As Double = 100 To 2000 Step 100
Fv = 0
v = -1
v1 = -1
Ev1 = 0
Ev = 0
Do
v = v + 1
y = Math.E ^ (-(v + 0.5) * h * w / (k * T))
Fv = Fv + y
Loop While Math.E ^ (-(v + 0.5) * h * w / (k * T)) > e
Do
v1 = v1 + 1
g = ((v1 + 0.5) * h * w * (Math.E) ^ (-(v1 + 0.5) * h * w / (k * T))) / Fv
Ev = Ev + g
Loop While Math.E ^ (-(v1 + 0.5) * h * w / (k * T)) > e
Ev1 = Ev / h
Console.WriteLine("{0,-4} | {1,-8:F4} | {2,-15:E8} ", T, Fv, Ev1)
Next T
Loop
Console.ReadLine()
End Sub
End Module