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